中国DOS联盟

查找含有特定字符串的行并替换
A.TXT中的某行有A字符串则整行替换为B字符串，A，B字符串中都可能有特殊字符
尽量用cmd内置的替换功能。

Last edited by yywd on 2008-9-4 at 10:10 AM ]

在线等呀

批处理做这个挺麻烦,用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

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)   '要替换的文本 ... 


谢谢你的回复，特定字符串不能确定呀

特殊字符能有多少.有的你统计出来给我看看
写个方法给你看看，酌量添加不就行了!~