用Replace Pioneer按照以下步骤操作即可,公式比较复杂:
1. ctrl-o打开文本文件
2. ctrl-h打开replace窗口
* replace unit选Line
* replace with pattern输入${match}$b[$line_no]\n即可
* 选择Advanced选项页,在run following at the beginning of replace输入:
$N=count(page(),'[^\n]+')-3;
@a=split('\n',rand_str_unique(-3,'AA','bb','cc','dd',''));
@b=('','','','',split('\n',rand_str_unique(-$N,@a,map{''}(1..$N-($#a+1)))));
3. 点击replace即可。