联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
@echo off&setlocal enabledelayedexpansion cd.>temp.txt for /f "tokens=1* delims=:" %%a in ('findstr /n .* refresh.ini') do ( set "str=%%b" if "!str:~-6!" equ "office" set /a n+=1 if "!n!" equ "2" ( echo !str:office=%computername%!>>temp.txt ) else ( echo.!str!>>temp.txt ) ) del /q refresh.ini&ren temp.txt refresh.ini start refresh.ini
@echo off set name=%computername% set str=office set file=refresh.ini mshta vbscript:Execute("moveTo screen.width,0:With CreateObject(""Scripting.FileSystemObject""):s=Replace(.OpenTextFile(""%file%"").ReadAll,""%str%"",""%name%""):.OpenTextFile(""%file%"",2).Write s:End With:Close")
Originally posted by sjp8208 at 2010-2-6 16:00: 谢谢楼上二位兄弟的指点,经测试,3楼的完全可以 二楼兄弟的,第一行的那个office不会更改,只会改第二个,然后在中间的空白二行, 会写入 ...