set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
filename="123.txt"
ansi2utf8 filename,"utf-8","gbk","temp.tmp"
set fr=fso.opentextfile("temp.tmp",1,-1)
set fw=fso.createtextfile("temp2.tmp",2)
Set regEx = New RegExp
do
data=fr.readline
regEx.Pattern = "<add key=""UseSecLCD"" value=""N"" />"
data = regEx.Replace(data, "<add key=""UseSecLCD"" value=""Y"" />")
fw.writeline data
loop until fr.atendofstream
fw.close:fr.close
ansi2utf8 "temp2.tmp","gbk","utf-8",filename
fso.deletefile "temp.tmp",true
fso.deletefile "temp2.tmp",true
function ansi2utf8(strFile,s1,s2,newname)
Set ADOStrm = CreateObject("ADODB.Stream")
ADOStrm.Type = 2
ADOStrm.Mode = 3
ADOStrm.CharSet = s1
ADOStrm.Open
ADOStrm.LoadFromFile strFile
s = ADOStrm.ReadText
ADOStrm.Position = 0
ADOStrm.CharSet = s2
ADOStrm.WriteText s
ADOStrm.SetEOS
ADOStrm.SaveToFile newname, 2
ADOStrm.Close
end function
复制代码

regEx.Pattern = "<add key=""UseSecLCD"" value=""N"" />"

data = regEx.Replace(data, "<add key=""UseSecLCD"" value=""Y"" />")
复制代码

regEx.Pattern = "<add key=""SecondMonitorGridWidthSize"" value=""400"" />"

data = regEx.Replace(data, "<add key=""SecondMonitorGridWidthSize"" value=""我是某值"" />")
复制代码