Board logo

标题: [己结]如何把获取的计算机名写入.ini 文件的指定位置 [打印本页]
作者: sjp8208     时间: 2010-2-6 11:44    标题: [己结]如何把获取的计算机名写入.ini 文件的指定位置
@echo off
set name=%computername%

我想把得来的计算机名替换 .ini 文件里的二个 office

要写入的 refresh.ini 文件内容为:


web1=http://adlist.no1hdvdd.net/adlist.asp?uid=sjp8208&cn=office
web2=http://adlist.no1hdvdd.net/adlist2.asp?uid=sjp8208&cn=office
web3=about:blank
web4=about:blank
web5=about:blank
web6=about:blank
web7=about:blank
web8=about:blank
web9=about:blank


time1=1800
time2=1200
time3=1200
time4=1800
time5=600
time6=600
time7=600
time8=600
time9=600
time10=30
show=真

Last edited by sjp8208 on 2010-2-6 at 16:02 ]
作者: bat-zw     时间: 2010-2-6 13:15


@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


Last edited by bat-zw on 2010-2-6 at 13:51 ]
作者: s11ss     时间: 2010-2-6 13:52
@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")
作者: sjp8208     时间: 2010-2-6 16:00
谢谢楼上二位兄弟的指点，经测试，3楼的完全可以

二楼兄弟的，第一行的那个office不会更改，只会改第二个，然后在中间的空白二行， 会写入

office=该机器名
office=该机器名

Last edited by sjp8208 on 2010-2-6 at 16:03 ]
作者: bat-zw     时间: 2010-2-6 17:10
Originally posted by sjp8208 at 2010-2-6 16:00:
谢谢楼上二位兄弟的指点，经测试，3楼的完全可以

二楼兄弟的，第一行的那个office不会更改，只会改第二个，然后在中间的空白二行， 会写入

...

看错题意，汗。。。