[问题求助] 【已解决】VBS如何替换INI文本中指定内容？

74520

比如有一个“1.ini”文本，文本里面的内容如下：

[options]
resolutionheight = 这后面的数值是随机的，有可能是1、2、3、4、5
showwhims = 这后面的数值是随机的，有可能是1、2、3、4、5

我想直接用把它们设置成：

[options]
resolutionheight = 2
showwhims = 2

请问用VBS该如何写？希望得到帮助，谢谢大家

74520

回复 2# zaqmlp


    感谢您的帮助，谢谢你

zaqmlp

If LCase(Right(WSH.FullName,12)) = "\wscript.exe" Then
    CreateObject("WScript.Shell").Run "cmd /c cscript.exe -nologo """ & WSH.ScriptFullName & """&pause&exit"
    WSH.Quit
End If

WSH.echo "代码可用,扫码头像,感谢赞助;有什么问题,可加QQ956535081及时沟通"
Set fso=CreateObject("Scripting.FileSystemObject")
file="1.ini"
result=""
Set f=fso.OpenTextFile(file,1)
Do While f.AtEndOfStream<>true
    line=f.ReadLine
    arr=split(line,"=")
    Select Case arr(0)
        Case "resolutionheight " result=result & arr(0) & "= 2" & vbCrLf
        Case "showwhims " result=result & arr(0) & "= 2"  & vbCrLf
        Case Else result=result & line & vbCrLf
    End Select
Loop
f.Close
Set f=fso.OpenTextFile(file,2)
f.Write result
f.Close
复制代码