Question

求助：批处理一个文本文件进行特定字符串替换

现在有一个txt格式unicode编码的文本文件，文件较大，有280K，要讲其中所有</mois>都替换成</mois>>>应该怎么写？用哪种脚本处理方式？用bat文件可行么？我们写了一个bat文件。但是处理前几行还行，处理整篇文章就运行不动了。如果用脚本文件应该用js,vbs还是php.我们用vbs写了如下一个程序
Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("Text.txt", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "</mois>>", "</mois>>>>>")

Set objFile = objFSO.OpenTextFile("Text.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close

也存在一个相同的问题——当文件太大的时候就无法运行了。
而且当我们把Text.txt改成其他文件名时运行也有问题~
麻烦哪位高人帮我们解答并给出解决这个难题的详细代码~谢谢大家啦...^_^

Answer 1

直接把处理的文件拖到这个vbs文件的图标上就行了

file=wscript.arguments(0)
set ws=CreateObject("wscript.shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
set f=objFSO.getfile(file)
name=f.name
ws.currentdirectory=f.parentfolder
Set objFile = objFSO.OpenTextFile(file, 1)
Set objFile1 = objFSO.OpenTextFile("Texttemp", 8,true)

do until objFile.atendofstream
str =str & objFile.Readline&chr(13)&chr(10)
i=1+i
if i=500 then
str=replace(str,"</mois>>","</mois>>>>>")
objfile1.write str
str=""
i=0
end if
loop
str=replace(str,"</mois>>","</mois>>>>>")
objfile1.write str
objfile.close
objfile1.close
objFSO.deletefile name
wscript.sleep 1000
objFSO.movefile "Texttemp",name

Answer 2

我看还是cmd + awk 算了.