标题: 求助：查找含有特定字符串的行并替换 [打印本页]
作者: yywd 时间: 2008-9-4 08:10 标题: 求助：查找含有特定字符串的行并替换
查找含有特定字符串的行并替换
A.TXT中的某行有A字符串则整行替换为B字符串，A，B字符串中都可能有特殊字符
尽量用cmd内置的替换功能。
[ Last edited by yywd on 2008-9-4 at 10:10 AM ]
作者: yywd 时间: 2008-9-4 10:11
在线等呀
作者: huahua0919 时间: 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) '要替换的文本
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
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
作者: yywd 时间: 2008-9-4 12:56
| Quote: | |
|
谢谢你的回复，特定字符串不能确定呀
作者: huahua0919 时间: 2008-9-4 13:24
特殊字符能有多少.有的你统计出来给我看看
写个方法给你看看，酌量添加不就行了!~