替换将©转换为©的函数

时间:2019-06-20 12:50:42

标签: vbscript

我正在尝试使用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 ©取代。

0 个答案:

没有答案