我正在尝试使用VBScript替换具有 <option value="UnifrakturCook">Google:UnifrakturCook</option>
的字符串。但是,在废止之后,其将转换为©
。
尝试使用UTF-8,但没有帮助。
©
Set objectFile = objFSOWrite.OpenTextFile(filePath, 1)
strText = objectFile.ReadAll
objectFile.Close
Set stream = CreateObject("ADODB.Stream")
stream.Open
stream.Type = 2 'text
stream.Charset = "UTF-8"
strNewText = Replace(strText, myLine, valueToUpdate)
stream.LoadFromFile strNewText
Set objectFile = objFSOWrite.OpenTextFile(filePath, 2, True, True)
objectFile.WriteLine strNewText
stream.Close
objectFile.Close
被©
取代。