如何在VBScript中实现特殊字符（U+00FF）的查找替换自动化

针对你用VBScript自动化替换U+00FF（上方带两点的字母y）的需求，当前代码存在几个关键问题，以下是修正方案：

核心问题与修正点 #

• ChrW参数错误：原代码中ChrW(00FF)会被解析为十进制0，正确的十六进制写法应为ChrW(&HFF)，这才对应Unicode U+00FF字符。
• 文件编码不匹配：OpenTextFile默认使用系统ANSI编码读取文件，若目标文件是Unicode编码，会导致字符读取错误，需指定编码参数为-1（对应Unicode格式）。
• 额外换行问题：WriteLine会在写入内容末尾自动添加换行符，破坏原文件结构，应改用Write方法写入完整内容。

修正后的VBScript代码 #

' Find and Replace
Const ForReading = 1
Const ForWriting = 2
Const UnicodeFormat = -1 ' 指定Unicode编码格式

Set objFSO = CreateObject("Scripting.FileSystemObject")
' 确保objFSO已初始化，原代码中可能遗漏了这一行

Set objFile = objFSO.OpenTextFile("C:\TEST\" & JobNo & " " & strfolder & "\CustomerOriginals\" & FN, ForReading, False, UnicodeFormat)
strText = objFile.ReadAll
objFile.Close

' 替换U+00FF字符为空
strText = Replace(strText, ChrW(&HFF), "")

Set objFile = objFSO.OpenTextFile("C:\TEST\" & JobNo & " " & strfolder & "\CustomerOriginals\" & FN, ForWriting, False, UnicodeFormat)
objFile.Write strText ' 使用Write而非WriteLine避免额外换行
objFile.Close

补充说明 #

若目标文件是UTF-8编码，OpenTextFile无法直接支持，需改用ADODB.Stream对象来处理，示例如下：

Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "UTF-8"
objStream.Open
objStream.LoadFromFile "C:\TEST\" & JobNo & " " & strfolder & "\CustomerOriginals\" & FN
strText = objStream.ReadText
objStream.Close

strText = Replace(strText, ChrW(&HFF), "")

objStream.Open
objStream.WriteText strText
objStream.SaveToFile "C:\TEST\" & JobNo & " " & strfolder & "\CustomerOriginals\" & FN, 2 ' 2表示覆盖文件
objStream.Close

内容的提问来源于stack exchange，提问作者John D