[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 每天几分 于 2012-12-19 17:26 编辑
  1. 扳机→板机 褊狭→偏狭 编纂→编篡 龅牙→爆牙 偏袒→偏坦
  2. 剽悍→骠悍 盘踞→磐踞 缥缈→飘渺 木讷→木纳 泯灭→抿灭
  3. ……
  4. 喜滋滋→喜孜孜 猩红热→腥红热 新郎官→新郎倌
  5. 称一称→秤一秤 撑杆跳→撑竿跳 涮羊肉→刷羊肉
  6. ……
  7. 怨天尤人→怨天由人 源远流长→渊源流长 水泄不通→水泻不通
  8. 为虎作伥→为虎作猖 乌烟瘴气→污烟瘴气 无远弗届→无远佛届
  9. ……
复制代码
要求:
因为左边的词组才是正确的,所以要将箭头→前后的词组位置互换。
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

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

评分人数

***共同提高***

TOP

本帖最后由 apang 于 2012-12-19 16:50 编辑

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
复制代码
1

评分人数

TOP

返回列表