UC知道批量处理 以文件名 修改文件 里面指定内容 救命呀死人了 高分送
来源：百度知道 编辑：UC知道 时间：2024/06/02 02:32:45
文件名是 705.vbs 文件有705.vbs - 2800.vbs内容一样 我要批量修改
set http=createobject("Microsoft.XMLHTTP")
Set objfs=CreateObject("scripting.filesystemobject")
Set objf=objfs.CreateTextFile("修改这里要以文件名.html",True) 著：前面不要提取成了 文件名.vbs.html
url="http://150.0.1.1/customer.php?value=修改这里要以文件名"
.........
set wshell = Wscript.CreateObject("Wscript.Shell")
set fso = CreateObject("Scripting.FileSystemObject")
set fn=fso.GetFolder(fso.GetParentFolderName(Wscript.ScriptFullName))
Wshell.Run "修改这里要以文件名.html"
wshell.Nothing
set http=createobject("Microsoft.XMLHTTP")
Set objfs=CreateObject("scripting.filesystemobject")
Set objf=objfs.CreateTextFile("修改这里要以文件名.html",True) 著：前面不要提取成了 文件名.vbs.html
url="http://150.0.1.1/customer.php?value=修改这里要以文件名"
.........
set wshell = Wscript.CreateObject("Wscript.Shell")
set fso = CreateObject("Scripting.FileSystemObject")
set fn=fso.GetFolder(fso.GetParentFolderName(Wscript.ScriptFullName))
Wshell.Run "修改这里要以文件名.html"
wshell.Nothing
批量改文件名：
在DOS窗口下，进到所要操作的目录，然后
dir /b >aa.bat (无顺序。要顺序dir/b/on)
这样就得到目录下的文件列表了。
然后用文本编辑器编辑aa.bat，推荐用UltraEdit，EditPlus，或者用
WORD也可以。
如何编辑呢？
1. Ctrl+A, Ctrl+N, 然后在新看的窗口Ctrl+V，这一步是把文件列表复制到新窗口，
供下一步使用
2. 在第一个窗口里，在文件列表的每一行开头添加ren "，末尾添加"
这可以用查找替换功能来实现，查找回车^p，将之替换成"^pren "。
3. 在第二个窗口（即第一步新开的窗口），将文件列表各行的文件名改成你想要的
相应文件名（可借助查找替换功能）。改完后全选，复制。切换到第一个窗口
4. 切换到列块编辑模式（UltraEdit的快捷键是Alt+C），移动光标到第一行末尾，按两
三下Tab键，然后Ctrl+V
5. 存盘。在DOS窗口该目录下运行aa.bat。
这样就搞定了。 "705"～"2800"可以在Excel里生成然后copy到txt里。
批量改查找替换文件里面的内容用这个应该可以：http://baiy.cn/utils/bwfr/index.htm 需要花点时间学习一下
用Replace Pioneer很容易实现把文件中的部分内容替换成文件名。
详细步骤：
1. 打开Tools->Batch Runner菜单
2. 点击Search files按钮，输入目录,并在过滤条件输入*.vbs,把待替换的文件都搜索出来
3. 如果要把替换结果文件放入新目录，创建一个新目