[已解决]BAT怎样使词组位置左右互换？

每天几分

1. 扳机→板机 褊狭→偏狭 编纂→编篡 龅牙→爆牙 偏袒→偏坦
   
2. 剽悍→骠悍 盘踞→磐踞 缥缈→飘渺 木讷→木纳 泯灭→抿灭
   
3. ……
   
4. 喜滋滋→喜孜孜 猩红热→腥红热 新郎官→新郎倌
   
5. 称一称→秤一秤 撑杆跳→撑竿跳 涮羊肉→刷羊肉
   
6. ……
   
7. 怨天尤人→怨天由人 源远流长→渊源流长 水泄不通→水泻不通
   
8. 为虎作伥→为虎作猖 乌烟瘴气→污烟瘴气 无远弗届→无远佛届
   
9. ……

复制代码

要求：
因为左边的词组才是正确的，所以要将箭头→前后的词组位置互换。

batman

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. (for /f "delims=" %%a in (a.txt) do (
   
4.   for %%b in (%%a) do (
   
5.      for /f "tokens=1,2 delims=→" %%c in ("%%b") do set "str=!str! %%d→%%c"
   
6.   )
   
7.   echo,!str:~1!&set "str="
   
8. ))>new.txt
   
9. start new.txt
   

复制代码

apang

vbs，练习。。。

1. Set FSO = CreateObject("Scripting.FileSystemObject")
   
2. Text = FSO.OpenTextFile("a.txt").ReadAll
   
3. With New RegExp
   
4.    .Global = True
   
5.    .MultiLine = True
   
6.    .Pattern = "(.*?)→(.*?)(?: {1,}|$)"
   
7.    Text = .Replace(Text,"$2→$1 ")
   
8. End With
   
9. FSO.OpenTextFile("b.txt",2,True).Write Text

复制代码