修改ini文件的批处理

用VBS更简单:
vbs代码:

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 
posted @ 2011-05-17 19:19  皮皮鲁PPL  阅读(574)  评论(0编辑  收藏  举报