On Error Resume Next
Dim Fso,TxtFl,Str
Set Fso = CreateObject(
"
Scripting.FileSystemObject
"
)
Set TxtFl
= Fso.OpenTextFile (
"
文件位置
"
,
1
)
Str
= Replace ( TxtFl.ReadAll,
"
被替换内容
"
,
"
替换内容
"
)
Set TxtFl
= Fso.OpenTextFile (
"
文件位置
"
,
2
)
TxtFl.Write Str
TxtFl.Close
批处理代码：
@echo off
>
tmp.ini
for
/f
"
tokens=1* delims=:
"
%%i
in
(
'
findstr /n ".*" 文件位置
'
)
do
(
if
"
%%j
"
==
""
(echo.>>tmp.ini)
else
(
echo
%%j|find
"
被替换内容
"
>nul&&
(
call
set
tp=%%j&call echo %%tp:被替换内容=替换内容%%>>tmp.ini)||
(
>>tmp.ini echo %%
j)
copy tmp.ini 文件位置
/y >nul||(attrib -s -a -r -h 文件位置& copy tmp.ini 文件位置 /y >
nul)
del tmp.ini
pause
批处理打开和关闭文件
关闭 两种命令方法:
taskkill /f im "要关闭的进程名"
ntsd -c q -pn "要关闭进程名"
后者更强一点..~!
打开程序：
start "" “位置/程序名”
作者：
Agoly
出处：
https://www.cnblogs.com/qmfsun/
本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。
如果文中有什么错误，欢迎指出。以免更多的人被误导。
