批量更改文本文件內(nèi)容的方法

1、批量更改文本文件內(nèi)容的方法作者：新空教程整理日期：2010年01月29日批量更改文本文件內(nèi)容的方法：因?yàn)楦鞣N原因，有時(shí)需要批量更改文件文件中的內(nèi)容，比如將“電腦”改成“計(jì)算機(jī)”，下面給出一個(gè)簡(jiǎn)單的方法。一、批處理方法：echo offfor /f "delims=" %i in ('dir /s/b *.txt') do批量更改文本文件內(nèi)容的方法：因?yàn)楦鞣N原因，有時(shí)需要批量更改文件文件中的內(nèi)容，比如將“電腦”改成“計(jì)算機(jī)”，下面給出一個(gè)簡(jiǎn)單的方法。一、批處理方法：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:電腦=計(jì)算機(jī)%                call,echo/%foo%>>"%fi._")move "%fi._" "%fi")exit將上面內(nèi)容拷入文本文件，然后

4、更改成“bat”文件，雙擊執(zhí)行即可。二、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, "電腦", "計(jì)算機(jī)")        

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

8、objFSO = Nothing保存擴(kuò)展名為VBS，放到TXT文件所在目錄，雙擊執(zhí)行。 如何批量修改TXT文件中指定字符？此問(wèn)題的推薦答案用批處理就可以，把原來(lái)的txt命名為1.txt，下面代碼保存為bat運(yùn)行后2.txt就是你想要的文件，有問(wèn)題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 如何用批處理結(jié)合VBS實(shí)現(xiàn)批量替換修改txt文本？懸賞分：20 - 解決時(shí)間：2009-11-22 21:21 我這D:1目錄里有很多TXT文檔，1.txt,2.txt,3.txt.里面有2處內(nèi)容需要替換：“name=1”替換成“name=19”，還有“path=e:game”替換成“path=e:game”因?yàn)閎at很難實(shí)現(xiàn)對(duì)txt的替換，我這有2個(gè)VBS分別替換2處，要運(yùn)行2個(gè)VBS才可以替換成功1個(gè)txt文本

10、，問(wèn)題是運(yùn)行1次bat不可以打開(kāi)2個(gè)vbs,而且郁悶的是要指定路徑D:11.txt，這樣每次要修改，有沒(méi)有可以結(jié)合bat和vbs同時(shí)批量替換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 提問(wèn)者： 1200729491 - 一級(jí)最佳答案突然來(lái)了點(diǎn)靈感，給你來(lái)一行另類(lèi)的。注意，代碼只有一行。批處理 放在txt文件夾下運(yùn)行echo off& for %1 in (*.txt)do mshta vbscript:createobject("scripting.filesystemobject").opentextfile("wind-%1",2,true).writeline(replace(replace(createobject("scripting.filesystemobject"