替换的问题

rtzd

把a中的生僻字替换成对应的b中相同的生僻字对应的拼音后，输出。

a

1. a   de   lu   骥
   
2. ai   鑫     yue
   
3. ai   ya   淇  
   
4. ai   鹄  睿
   
5. 邝  昊     wen

复制代码

b

1. ji(骥)
   
2. xin(鑫)
   
3. qi(淇)
   
4. hu(鹄)
   
5. rui(睿)
   
6. kuang(邝)
   
7. hao(昊)
   
8. heng(姮)
   
9. shi(奭)
   
10. yue(龠)

复制代码

输出

1. a   de   lu   ji
   
2. ai   xin     yue
   
3. ai   ya   qi  
   
4. ai   hu  rui
   
5. kuang   hao     wen

复制代码

haooooaaa

1. awk -F'[() ]+' 'NR==FNR{a[$2]=$1;next}{for(i=1;i<=NF;i++)$i=a[$i]?a[$i]:$i}1' b a

复制代码

rtzd

回复 2# haooooaaa



神速

完全正确

rtzd

不另开贴求助了，本帖继续求助

上面的生僻字不是太理想，有遗漏。另选一个数量多的

第一个求助命令：

a

1. 呵 呵
   
2. 吖 挨 孀
   
3. 矮 泷
   
4. 傱 呵 嗄 双

复制代码

b

1. A
   
2. 啊
   
3. 阿
   
4. 呵
   
5. 吖
   
6. 嗄
   
7. Ai
   
8. 爱
   
9. 矮
   
10. 挨
    
11. Shuang
    
12. 双
    
13. 霜
    
14. 爽
    
15. 泷
    
16. 孀
    
17. 傱
    
18. 注意：里面的拼音大小写不确定

复制代码

求助：当a文档与b文档汉字对比后，输出对应的拼音小写

结果

1. a a
   
2. ya ai shuang
   
3. ai shuang
   
4. shuang a a shuang

复制代码

第二个求助命令：

重新再给一个方法的命令（因为2楼已经给出下一步的方法）

file

1. A
   
2. 啊
   
3. 阿
   
4. 呵
   
5. 吖
   
6. 嗄
   
7. Ai
   
8. 爱
   
9. 矮
   
10. 挨
    
11. Shuang
    
12. 双
    
13. 霜
    
14. 爽
    
15. 泷
    
16. 孀
    
17. 傱
    
18. 注意：里面的拼音大小写不确定

复制代码

输出

1. a(啊)
   
2. a(阿)
   
3. a(呵)
   
4. a(吖)
   
5. a(嗄)
   
6. ai(爱)
   
7. ai(矮)
   
8. ai(挨)
   
9. shuang(双)
   
10. shuang(霜)
    
11. shuang(爽)
    
12. shuang(泷)
    
13. shuang(孀)
    
14. shuang(傱)

复制代码

haooooaaa

1. awk 'NR==FNR{if(/^[A-Za-z]/)s=$0;else a[$0]=s;next}{for(i=1;i<=NF;i++)$i=a[$i]?tolower(a[$i]):$i}1' b a

复制代码

moperyblue

#1.

1. awk 'NR==FNR{if(/[A-Za-z]/)s=tolower($1);else a[$1]=s;next}{while(i++<NF)if(a[$i])$i=a[$i]}1;i=0' b a

复制代码

moperyblue

#2.

1. awk '/[A-Za-z]/{s=tolower($1);next}{print s "("$1")"}' file

复制代码

rtzd

回复 5# haooooaaa
回复 6# moperyblue

用这两个命令
输出均是a的相同的数据（不截图了）
可能是我文档的问题？a文档直接用记事本及写字板打开没问题。但用UE打开是乱码。
把我的原始文档发上附件来了。若你们测试正确，请发回个正确的附件给我好吗？



附件已删除

rtzd

回复 7# moperyblue

这个命令输出是下面这种情况。请看附件中的b
能否测试正确后，也回复个正确的附件？
a
(啊
)
a
(阿
)
a
(呵
)
a
(吖
)
a
(嗄
)

jason680

回复 4# rtzd

$ awk 'NR==FNR{if(/[A-Za-z]/)k=tolower($1);a[$1]=k;next}{for(n=1;n<=NF;++n)$n=a[$n];print}' b a
a a
a ai shuang
ai shuang
shuang a a shuang

$ awk '{if(/[A-Za-z]/){k=tolower($1);next}print k"("$1")"}' b
a(啊)
a(阿)
a(呵)
...
shuang(孀)
shuang(傱)