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

每天几分

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

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

batman

@echo off&setlocal enabledelayedexpansion
(for /f "delims=" %%a in (a.txt) do (
  for %%b in (%%a) do (
     for /f "tokens=1,2 delims=→" %%c in ("%%b") do set "str=!str! %%d→%%c"
  )
  echo,!str:~1!&set "str="
))>new.txt
start new.txt
复制代码

apang

vbs，练习。。。

Set FSO = CreateObject("Scripting.FileSystemObject")
Text = FSO.OpenTextFile("a.txt").ReadAll
With New RegExp
   .Global = True
   .MultiLine = True
   .Pattern = "(.*?)→(.*?)(?: {1,}|$)"
   Text = .Replace(Text,"$2→$1 ")
End With
FSO.OpenTextFile("b.txt",2,True).Write Text
复制代码