如何高效地给多行文本添加前后缀

序言

理论上，开发人员是不允许操作生产环境的，更别说是像商品、订单这样的重要业务数据。不过对小公司来说，后台系统往往不是很完善，总有一些需求让运营或客服部门的同事操作起来捉襟见肘，不得不寻求开发人员的帮助。

通常这些部门的同事会给过来一批需要处理的商品或订单的ID，我会将它们粘贴到一个脚本中，并将脚本放到生产环境的机器上运行，以实现他们的ad hoc需求。ID一般用Excel文件，或在线文档的方式提供过来，将它们粘贴到脚本的源码中之后，还要为它们添加必要的引号和逗号，以满足所用语言的语法要求。比如下图就是直接粘贴后，VSCode提示错误的样子

那么，怎样才能不失逼格地给这批ID加上前后的引号及行末的逗号呢？

八仙过海，各显神通

有很多方法可以完成这个任务，比如借助VSCodemulti-cursor功能，手动添加前后缀

当要添加光标的位置处于同一列时，更适合用VSCode的另一个功能在下面添加光标（快捷键是command+option+↓）来实现，免去了一遍遍点击鼠标的烦恼。multi-cursor所敲入的每个光标还可以在各自的行上沿同方向移动不同的距离，适合处理每行长度不一致的情况。

也可以用Vim中的列编辑模式，操作体验差不多，还可以比VSCode按更少的键——起码不需要一直压着option键。

但列编辑模式不方便在行末追加内容——必须先在第一行的末尾敲入一个空格，往右移动依次光标，然后才能继续用列编辑模式批量添加后缀。

Emacs也有类似列编辑模式的功能，它的string-insert-rectangle命令比Vim的更便于添加后缀。但它没有默认的快捷键，需要先按下M-x，再输入命令名并回车，略为繁琐（尽管命令名可以自动补全）。

除了各家编辑器内置的功能，命令行工具也适合完成这种处理，比如可以用sed

➜  /tmp cat b
5FEB1AE4-239A-4276-8E37-BE913CE6D117
5FEB1AE4-239A-4276-8E37-BE913CE6D117
5FEB1AE4-239A-4276-8E37-BE913CE6D117
5FEB1AE4-239A-4276-8E37-BE913CE6D117
5FEB1AE4-239A-4276-8E37-BE913CE6D117
5FEB1AE4-239A-4276-8E37-BE913CE6D117
5FEB1AE4-239A-4276-8E37-BE913CE6D117
➜  /tmp sed -e "s/^/'/" -i '' b
➜  /tmp sed -e "s/$/',/" -i '' b
➜  /tmp cat b
'5FEB1AE4-239A-4276-8E37-BE913CE6D117',
'5FEB1AE4-239A-4276-8E37-BE913CE6D117',
'5FEB1AE4-239A-4276-8E37-BE913CE6D117',
'5FEB1AE4-239A-4276-8E37-BE913CE6D117',
'5FEB1AE4-239A-4276-8E37-BE913CE6D117',
'5FEB1AE4-239A-4276-8E37-BE913CE6D117',
'5FEB1AE4-239A-4276-8E37-BE913CE6D117',

有些从在线文档上复制下来的ID会有一行空行存在于两两之间，如果是在命令行的话，只需要先用grep筛选一遍即可，可组合性比编辑器更强。

美中不足的是，用sed处理后需要手动将文件b的内容粘贴到脚本中——如果是用Emacs的话，也可以用C-x i让编辑器在光标处直接插入该文件的内容。

如果可以寸步不离Emacs，通过简单的命令或快捷键来完成这个操作，岂不美哉？

自己动手，丰衣足食

用上自定义的Elisp函数后的效果如下

其实实现思路很简单：

1. 首先用户会选中一片要添加前后缀的区域；
2. 使用buffer-substring-no-properties函数复制这个region中的字符串，绑定为text；
3. 用read-from-minibuffer提示并读取用户输入待添加的前后缀字符串；
4. 用split-string将text切割为一行行的字符串，给每一行添加前后缀，再用mapconcat拼回一个字符串；
5. 用delete-region删除被选中的内容，然后用insert插入新的字符串。

最终的Elisp函数的定义如下

(defun lt--insert-at-start-end ()
  "为TEXT中的每一行添加PREFIX前缀和SUFFIX后缀。"
  (interactive)
  (let* ((text (buffer-substring-no-properties (mark) (point)))
         (prefix (read-from-minibuffer "插入的前缀："))
         (suffix (read-from-minibuffer "插入的后缀："))
         (lines (split-string text))
         (decorated-lines
          (mapcar (lambda (line)
                    (concat prefix line suffix))
                  lines))
         (new-text (mapconcat 'identity decorated-lines "\n")))
    (delete-region (mark) (point))
    (insert new-text)))

欢迎读者朋友中的Emacs用户也来使用使用;-)

阅读原文