批量更改文本文件内容的方法

1、批量更改文本文件内容的方法作者：新空教程整理日期：2010年01月29日批量更改文本文件内容的方法：因为各种原因，有时需要批量更改文件文件中的内容，比如将“电脑”改成“计算机”，下面给出一个简单的方法。一、批处理方法：echo offfor /f "delims=" %i in ('dir /s/b *.txt') do批量更改文本文件内容的方法：因为各种原因，有时需要批量更改文件文件中的内容，比如将“电脑”改成“计算机”，下面给出一个简单的方法。一、批处理方法：ech

2、o offfor /f "delims=" %i in ('dir /s/b *.txt') do (        for /f "delims=" %a in ('type "%fi"') do (                set "foo=%a" 

3、;               call,set foo=%foo:电脑=计算机%                call,echo/%foo%>>"%fi._")move "%fi._" "%fi")exit将上面内容拷入文本文件，然后

4、更改成“bat”文件，双击执行即可。二、vb脚本的方法：Set WshShell = CreateObject("Wscript.Shell")WshShell.Run "cmd /c dir /s/b *.txt > list.txt",vbHideWscript.Sleep 1000sFile = "list.txt"Set objFSO = CreateObject("Scripting.FileSystemObject")Set oFile = objFSO.OpenTextFile(sFile,1)

5、Do While Not oFile.AtEndOfStream      strLine = oFile.ReadLine      If Len(strLine) > 0 Then            Set File = objFSO.OpenTextFile(strLine, 1)       

6、0;    aryLines = File.ReadAll            File.Close            aryLines = Replace(aryLines, "电脑", "计算机")        

7、60;   Set File = objFSO.OpenTextFile(strLine, 2)            File.Write aryLines            File.Close      End IfLoopoFile.CloseobjFSO.DeleteFile sFileSet

8、objFSO = Nothing保存扩展名为VBS，放到TXT文件所在目录，双击执行。 如何批量修改TXT文件中指定字符？此问题的推荐答案用批处理就可以，把原来的txt命名为1.txt，下面代码保存为bat运行后2.txt就是你想要的文件，有问题hi我echo offsetlocal enabledelayedexpansionset /a count=1for /F "tokens=*" %i in (1.txt) do call :. "%i"pauseexit:.set work=%1set work=%work:1=1(!count!)%set

9、work=%work:<=<%set work=%work:>=>%echo %work:1,-1%>>2.txtset /a count+=1 如何用批处理结合VBS实现批量替换修改txt文本？悬赏分：20 - 解决时间：2009-11-22 21:21 我这D:1目录里有很多TXT文档，1.txt,2.txt,3.txt.里面有2处内容需要替换：“name=1”替换成“name=19”，还有“path=e:game”替换成“path=e:game”因为bat很难实现对txt的替换，我这有2个VBS分别替换2处，要运行2个VBS才可以替换成功1个txt文本

10、，问题是运行1次bat不可以打开2个vbs,而且郁闷的是要指定路径D:11.txt，这样每次要修改，有没有可以结合bat和vbs同时批量替换2处的，谢谢！下面是我的代码：Set FSO = NothingDim strFile: strFile = "D:11.txt"Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")Dim objFile: Set objFile = FSO.OpenTextFile(strFile)Dim strContent: strContent = obj

11、File.ReadallobjFile.CloseDim objRegEx: Set objRegEx = CreateObject("VBScript.RegExp")objRegEx.Global = TrueobjRegEx.IgnoreCase = TrueobjRegEx.Pattern = "path=e:game"Dim objNewText: objNewText = objRegEx.Replace(strContent,"path=e:game")Dim objTextFile: Set objTextFile =

12、 FSO.CreateTextFile("D:11.txt")objTextFile.Write objNewTextobjTextFile.CloseSet FSO = Nothing 提问者： 1200729491 - 一级最佳答案突然来了点灵感，给你来一行另类的。注意，代码只有一行。批处理 放在txt文件夹下运行echo off& for %1 in (*.txt)do mshta vbscript:createobject("scripting.filesystemobject").opentextfile("wind-%1",2,true).writeline(replace(replace(createobject("scripting.filesystemobject"