批处理或VBS批量替换指定内容?

一个文本里面有很多网址列表,我想批量替换每行尾部为".co" 的,全都都替换为".com"还有每行尾部为4位的,全部替换为".com" 例如: http://www.soso.comn 这样尾部为4位,替换为: http://www.soso.com

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")

Function write_text(file,str)
Set f = fso.OpenTextFile(file, 2 ,True)
f.Write str
f.Close
End Function

Function read(file)
Set f = fso.OpenTextFile(file, 1 ,True)
read= f.ReadAll
f.Close
End Function

s=read("1.txt") '1.txt源文件名
s=Replace(s,".comn",".com")
s=Replace(s,".co",".com")
s=Replace(s,".comm",".com")
write_text "1.txt",s '1.txt生成结果文件名
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-09-28
这个最简单,不过有点儿局限性。假设1.txt是源文件,替换后为2.txt
for /f "tokens=1-3 delims=." %%a in (1.txt) do echo %%a%%b.com>>2.txt

如何用批处理结合VBS实现批量替换修改txt文本???
批处理 放在txt文件夹下运行 echo off& for %%1 in (*.txt)do mshta vbscript:createobject("scripting.filesystemobject").opentextfile("wind-%%~1",2,true).writeline(replace(replace(createobject("scripting.filesystemobject").opentextfile("%%~1",1).readall,"name=1","name=19"),"path=e...

怎么将TXT里面的指定第5行替换掉,批处理VBS或其他都可以!
在Replace=>输入"${1}name=1"(不带双引号),点击OK。点击Start完成替换。注意提前备份,以防操作失误。

求个替换文本内容的批处理或vbs
set a=!a:密码错误=正常!echo "!a!">>b.txt)del a.txtren b.txt a.txt将这个比处理保存以后,点开始-控制面板-计划任务-创建任务 在触发器里设置出发条件和重复间隔 在操作了选择要启动的批处理 在常规里设置计划任务的名称,并点确定 按这样操作完,你指定的批处理程序就会在开机以后每小时...

求个替换文本内容的批处理或vbs
使用说明:将你的文件命名为A.txt,运行此批处理~~~注意:贴出来的批处理再复制过去要删去多余的空格,否则运行错误。很奇怪贴了几次还是一样,如果你自己还是弄不好,你给我消息留下邮箱我把批处理文件发你。echo off&cd.>okA.txt for \/f "delims=" %%i in ('type A.TXT') do (set "str...

批处理如何替换指定字串
wscript.shell").run "cmd \/c del th.bat",0,true wscript.quit end if loop 保存为vbs 呵 你认为批处理处理这样的事很简单么?只能靠纯vbs解决,我这个还不算是纯vbs,还调用了批处理 你把set b=%a:0=1% 改成set b=%a:==1 看你怎么替换 说话要负责!我上面的代码执行速度比你快 ...

dos(批处理)或VBS脚本批量修改CSV格式文件内容
set fso=createobject("scripting.filesystemobject")set fols=fso.getfolder("C:\\P")for each fol in fols.subfoldersfolPath = fol.pathfolName = fol.nameFile1 = folPath & "\\" & folName & "T.CSV"set f = fso.opentextfile(File1)text = f.readallf.close fso.deletefile File1arrT ...

如何用BAT批处理更改.ini文件指定的内容
批处理代码:echo off >tmp.ini set IniFn= ::在等号后面写上ini的文件名,如:set IniFn=configip.ini for \/f "tokens=1* delims=:" %%i in ('findstr \/n ".*" c:\\Windows\\%IniFn%') do (if "%%j"=="" (echo.>>tmp.ini) else (echo %%j|find "Item4=192.168.1.2">...

dos(批处理)或VBS脚本批量修改CSV格式文件内容
powershell -c "set-executionpolicy unrestricted"当然也可以管理员运行POWERSHELL,输入以下命令解除脚本限制 set-executionpolicy unrestricted4. WIN10以下系统如出错,可能需要去微软官网下载补丁升级powershell SrcDir="D:\\test";#源目录$ar=2,6;#替换的列dir $SrcDir -Filter *.csv|%{$str=$null...

dos(批处理)或VBS脚本批量重命名及修改批量修改文件内容
写好了.echo off for \/f "tokens=1,2 delims=," %%i in ('type "1234.csv"') do (((echo S\/N:%%i)(echo Writing MAC %%j)(echo Write MAC ^(%%j^)))>"%%i.txt")pause 测试:1234.csv(Excel保存的逗号分隔符文件)用记事本打开内容是:8A18517507,002185EE0E39 8A12345678,001d92...

批处理批量替换txt内容指定文字,输出结果中文乱码问题,怎么解决...
set "word1=!word1:你好=替换后!" set "word2=!word1!" echo,!word2! >>"%%~ni.tmp" ) del "%%~i" "%%~i.ansi" \/f \/q set aCode=GB2312 set bCode=UTF-8 call :CreatConvertTool ConvertTool.vbs "%%~ni....

相似回答