中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-09 15:37

共 47,811 主题排行 / 349,896 发帖 / 今日 1 篇 / 48,254 会员排行

DOS批处理 & 脚本技术（批处理室） » 求助：查找含有特定字符串的行并替换

可打印版本　820 / 4

第1楼　yywd	发表于 2008-09-04 08:10
中级用户　发帖 130　积分 358
求助：查找含有特定字符串的行并替换查找含有特定字符串的行并替换 A.TXT中的某行有A字符串则整行替换为B字符串，A，B字符串中都可能有特殊字符尽量用cmd内置的替换功能。 [ Last edited by yywd on 2008-9-4 at 10:10 AM ]

第2楼　yywd	发表于 2008-09-04 10:11
中级用户　发帖 130　积分 358
在线等呀

第3楼　huahua0919	发表于 2008-09-04 12:46
银牌会员　发帖 780　积分 1,608
批处理做这个挺麻烦,用vbs吧 Dim A,fso,fs Dim fl,x set Fso=CreateObject("Scripting.FileSystemObject") set fs=Fso.OpenTextFile("a.txt",1) '要替换的文本 set fl=Fso.CreateTextFile("b.txt",2) '替换后的文本 A=Array("&","^","!") '这里添加你所有的特殊字符 Do While fs.AtEndOfLine <> True call Ffunction(fs.readline) '调用函数 Loop Function Ffunction(t) '定义函数 for each i in A x=replace(t,i,"dos") '这里输入替换成的字符默认"dos" t=x next fl.writeline x end Function

第4楼　yywd	发表于 2008-09-04 12:56
中级用户　发帖 130　积分 358
Originally posted by huahua0919 at 2008-9-4 12:46: 批处理做这个挺麻烦,用vbs吧 Dim A,fso,fs Dim fl,x set Fso=CreateObject("Scripting.FileSystemObject") set fs=Fso.OpenTextFile("a.txt",1) '要替换的文本 ... 谢谢你的回复，特定字符串不能确定呀

第5楼　huahua0919	发表于 2008-09-04 13:24
银牌会员　发帖 780　积分 1,608
特殊字符能有多少.有的你统计出来给我看看写个方法给你看看，酌量添加不就行了!~

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023