中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

[己结]如何把获取的计算机名写入.ini 文件的指定位置

标题：[己结]如何把获取的计算机名写入.ini 文件的指定位置

作者：sjp8208 | 时间：2010-02-06 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-02-06 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-02-06 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-02-06 16:00

谢谢楼上二位兄弟的指点，经测试，3楼的完全可以

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

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

[ Last edited by sjp8208 on 2010-2-6 at 16:03 ]

作者：bat-zw | 时间：2010-02-06 17:10

Originally posted by sjp8208 at 2010-2-6 16:00:
谢谢楼上二位兄弟的指点，经测试，3楼的完全可以

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

...

看错题意，汗。。。

来源：https://www.cn-dos.net/forum/viewthread.php?tid=50193　·　打印时间 2026-08-12 22:23