查找含有特定字符串的行并替换
A.TXT中的某行有A字符串则整行替换为B字符串，A，B字符串中都可能有特殊字符
尽量用cmd内置的替换功能。
[ Last edited by yywd on 2008-9-4 at 10:10 AM ]
A.TXT中的某行有A字符串则整行替换为B字符串，A，B字符串中都可能有特殊字符
尽量用cmd内置的替换功能。
[ Last edited by yywd on 2008-9-4 at 10:10 AM ]
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 求助：查找含有特定字符串的行并替换
查看 823 回复 4
楼 主
求助：查找含有特定字符串的行并替换
发表于 2008-09-04 08:10 · 中国 广东 深圳 宝安区 电信
第 2 楼
发表于 2008-09-04 10:11 · 中国 广东 深圳 宝安区 电信
在线等呀
第 3 楼
发表于 2008-09-04 12:46 · 中国 江苏 苏州 中移铁通
批处理做这个挺麻烦,用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 楼
发表于 2008-09-04 12:56 · 中国 广东 深圳 宝安区 电信
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 楼
发表于 2008-09-04 13:24 · 中国 江苏 苏州 中移铁通
特殊字符能有多少.有的你统计出来给我看看
写个方法给你看看，酌量添加不就行了!~
写个方法给你看看，酌量添加不就行了!~
论坛跳转: