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

Rank: 3Rank: 3

帖子
134 
积分
232 
技术
0  
捐助
0  
注册时间
2012-9-21 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2012-12-19 15:14 | 只看该作者

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

本帖最后由 每天几分 于 2012-12-19 17:26 编辑 
  1. 扳机→板机 褊狭→偏狭 编纂→编篡 龅牙→爆牙 偏袒→偏坦

  2. 剽悍→骠悍 盘踞→磐踞 缥缈→飘渺 木讷→木纳 泯灭→抿灭

  3. ……

  4. 喜滋滋→喜孜孜 猩红热→腥红热 新郎官→新郎倌

  5. 称一称→秤一秤 撑杆跳→撑竿跳 涮羊肉→刷羊肉

  6. ……

  7. 怨天尤人→怨天由人 源远流长→渊源流长 水泄不通→水泻不通

  8. 为虎作伥→为虎作猖 乌烟瘴气→污烟瘴气 无远弗届→无远佛届

  9. ……
复制代码
要求：
因为左边的词组才是正确的，所以要将箭头→前后的词组位置互换。
1

评分人数

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

batman

Rank: 8Rank: 8

帖子
2702 
积分
14562 
技术
177  
捐助
630  
注册时间
2008-6-16 
2楼
发表于 2012-12-19 16:20 | 只看该作者 
  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

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
3楼
发表于 2012-12-19 16:48 | 只看该作者
本帖最后由 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

返回列表