Chinaunix
标题:
无分隔符文本重新格式化问题
[打印本页]
作者:
xxinganling
时间:
2021-08-23 09:28
标题:
无分隔符文本重新格式化问题
想请教一个文本重新格式化的问题
一文本文件每行有几百个字符(等长),没有分隔符,简化举例如下:
0001 张三 13366661234 01087700011
0002 李小四 13688884321041562240101
0003欧阳小强18058584567 02147668545
0004赵五 17001141212024937799888
0005 杨六17816668899 01637764669
合计:人数5人
要实现:
000001 01087700011|张三 13366661234
000002 041562240101|李小四 13688884321
000003 02147668545|欧阳小强 18058584567
000004 024937799888|赵五 17001141212
000005 01637764669|杨六 17816668899
合计:人数5人
即:
1、序号由四位变为六位(前补0);
2、固定电话号码由第四部分改为第二部分,位数变为15位(右对齐,补空格);
3、姓名变为10位(左对齐,补空格);
4、固定电话号码和姓名之间插入管道线(|);
5、最后一行合计不变。
情况比较复杂,能否用awk或sed实现?谢谢!
作者:
wh7211
时间:
2021-11-14 20:34
本帖最后由 wh7211 于 2021-11-14 20:46 编辑
回复
1#
xxinganling
cat 1
0001 张三 13366661234 01087700011
0002 李小四 13688884321041562240101
0003欧阳小强18058584567 02147668545
0004赵五 17001141212024937799888
0005 杨六17816668899 01637764669
合计:人数5人
awk '{a=match($0,"^([0-9]+) *([^ 0-9]+) *([0-9]{11}) *([0-9]+)$",b);if(a){c=10-2*length(b[2]);for(d=1;d<=c;d++){e=e" "};printf("%06d%15s|%s%s%s\n",b[1],b[4],b[2],e,b[3]);e=""}else{print}}' 1
000001 01087700011|张三 13366661234
000002 041562240101|李小四 13688884321
000003 02147668545|欧阳小强 18058584567
000004 024937799888|赵五 17001141212
000005 01637764669|杨六 17816668899
合计:人数5人
复制代码
作者:
legs
时间:
2021-11-18 08:35
perl -pe's#(\d+)\s*(\D+)\s*(\d{11})\s*(\N+)#sprintf"%06d%15s|%s\t%s",$1,$4,$2,$3#e'
复制代码
欢迎光临 Chinaunix (http://bbs.chinaunix.net/)
Powered by Discuz! X3.2