用vbs如何自动替换系统盘下的Program Files文件夹内的某个文件内的特定字符？

用vbs如何自动替换系统盘下的Program Files文件夹内的某个文件内的特定字符？~

1.你说自动替换是什么意思，是要像病毒一样的自动运行，还是手动触发程序

2.你说的某个文件有哪些特征

set fso=CreateObject("Scripting.FileSystemObject")Set RegExp = New RegExpfile="1.txt"find="需要剔除的字符"read=fso.opentextfile(file).readallWith RegExp .Global=-1:.ignorecase=-1:.multiline=-1 .pattern="(.*"&find&"*)[
]{0,2}" if .test(read) then read=.Replace(read,empty) fso.createtextfile("new.txt").write readend ifEnd With

个人认为VBS对字符处理的能力非常完美了。给你的代码如下：
on error resume next
p = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%")
file = P & "\abc\desktop.ini"
set fso = createobject("scripting.filesystemobject")
set f1 = fso.opentextfile (file,1)
allstr = f1.readall
rs = "folder.ico"
ms = "xxx.ico"
nstr = replace (allstr,rs,ms)
f1.close
set f2 = fso.opentextfile (file,2)
f2.write(nstr)
f2.close

在本机已经通过测试。

帮你写这个代码让我想到曾经给自己用的一个VBS很类似。目的是将E:\web文件夹下所有后缀名为*.asp的文件内容字符含有“ http://www.powereasy.net”替换成“http://www.baidu.com”。现将代码贴出供参考：

folderpaths="E:\web"
a = "http://www.powereasy.net"
b = "http://www.baidu.com"
set fso=createobject("scripting.filesystemobject")
set loadfolder=fso.GetFolder(folderpaths)
set listfolder=loadfolder.SubFolders
set listfile1=loadfolder.files
for each k in listfile1
if fso.GetExtensionName(k) = "asp" then
set file=fso.opentextfile(k,1)
s=file.readall
file.close
s=replace(s,a,b)
set file=fso.opentextfile(k,2)
file.write s
file.close
end if
next
'上面是替换根目录下的。
'下面是替换子目录下文件名为log.txt和*.asp的文件，并跳过空文件（文件大小=0B的）。
for each i in listfolder
set loadfolder=fso.GetFolder(i)
set listfile2=loadfolder.Files
for each j in listfile2
set asdf = fso.opentextfile("log.txt",8,true)
asdf.writeline j
asdf.close
set fo = fso.getfile(j)
fsize = fo.size
if fsize > 0 and fso.GetExtensionName(fo) = "asp" then
set file=fso.opentextfile(fo,1)
q=file.readall
file.close
q=replace(s,a,b)
set file=fso.opentextfile(fo,2)
file.write s
file.close
end if
next
next
msgbox "替换完成。"

---

洪湖市19295574175： 用vbs如何自动替换系统盘下的Program Files文件夹内的某个文件内的特定字符? - ？
帛缪喜心： 个人认为VBS对字符处理的能力非常完美了.给你的代码如下:on error resume nextp = CreateObject(＂WScript.Shell＂).ExpandEnvironmentStrings(＂%ProgramFiles%＂)file = P & ＂\abc\desktop.ini＂set fso = createobject(＂scripting....

洪湖市19295574175： 我想用vbs查找指定文件夹下的所有文本文档,并替换里面的内容,但是... - ？
帛缪喜心： 给你写个简单的 public function ReplaceStr(FilePath,ExtensioNname,Find,WreplaceStr) on error resume next '绕过读写错误 dim fso,read,list set fso = createobject(＂scripting.filesystemobject＂) for each list in fso.getfolder(filepath).files '遍历文件夹...

洪湖市19295574175： 100分跪求vbs代码:遍历文件夹并替换文件的代码 - ？
帛缪喜心： 类似代码我写过的,只需要改一行代码就行...文件夹支持无限级别,代码保密...你可以参考网上这篇文章:求vbs代码:两个文件夹下某一类型的同名文件替换,100分跪求大神了.2014-03-31 | 分

洪湖市19295574175： 如何利用vbs,查询注册表,获得winrar的路径,替换import函数中winrar=＂C:\PROGRA~1\WinRAR\WinRAR.exe＂ - ？
帛缪喜心： 本机没有winrar,不知道对应的键值是什么,所以我这里随便写一个,你自己替换.另外,import函数在哪里,我不知道,所以没法做替换.Dim WshShell, bKey Set WshShell = WScript.CreateObject(＂WScript.Shell＂) bKey = WshShell.RegRead(＂HKCU\Software\WinRAR\path＂) Set WshShell = Nothing MsgBox bKey, vbOKOnly, ＂WinRAR Path＂ HKCU 即 HKEY_CURRENT_USER 读注册表后用MsgBox将读取到的路径信息显示出来.

洪湖市19295574175： VBS 循环替换多个文本中的字符 - ？
帛缪喜心： 支持拖放功能 你只要把整个文件夹拖放到这个vbs文件上就可以了 他会自动识别txt格式的文件并修改 For Each a In WScript.Arguments w=w&a Next set ws=createobject(＂wscript.shell＂) set fso=createobject(＂scripting.filesystemobject＂) set ...

洪湖市19295574175： 求批处理或VBS脚本替换文本内容并更改文件后缀为ini. - ？
帛缪喜心： 便于测试只写修改一文本的,要是ok再补充(假定修改的文本是xx.txt,批处理放这测试文本同位置)@echo offsetlocal enabledelayedexpansionset file=xx(for /f...

洪湖市19295574175： 用BAT或者VBS 批量替换文件夹下任意文件名字包含.ABC的字符为空 - ？
帛缪喜心： @echo off (for /f ＂delims=＂ %%i in ('dir /b /a-d^|findstr /c:＂.ABC＂') do (set ＂var=＂%%i＂＂&call,set ＂var=%%var:.ABC=%%＂call,ren ＂%%i＂ %%var%% ))>nul将删除.ABC....

洪湖市19295574175： 请问怎样用Replacer替换系统文件? - ？
帛缪喜心： 第一步:把下载的文件解压后会得到一个文件夹,双击里面的Replacer.cmd文件即自动在命令行模式中打开,Replacer目录里自动生成一个临时文件夹ReplacerTemp. -{ M(1vV(= 第二步:根据提示,把你要替换掉的系统文件拖进刚才打开的窗...

洪湖市19295574175： 您可能是软件盗版的受害者?这是怎么回事?？
帛缪喜心： 很多D版用户在系统升级后,都会不断出现提示“你可能是盗版软件受害者”! 最简单的方法: 首先,新建个文本文件,输入下面这些: ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count<1 then VOL_PROD_KEY=...

洪湖市19295574175： 如何用批处理修改盘符? - ？
帛缪喜心： 请把下面代码保存为批处理(*.bat),这个批处理可以把d: 改为Z: ,你也可以修改这些参数达到自己的效果.rem =======Yobo_lily版权=del ＂%temp%＂\temp.vbs @echo on...