VBScript中希腊字符UTF-8编码显示异常问题求助

核心问题分析 #

• 脚本文件编码错误：VBScript默认以系统ANSI编码读取脚本文件，如果你保存脚本时用的是UTF-8（不带BOM）或其他非UTF-16编码，代码里直接写的希腊字符会被错误解析，导致第一个MsgBox乱码。
• 二进制数据直接传递错误：第二个流程里，你把Stream读取的UTF-8二进制数据直接赋值给utfStr，但MsgBox接收的是Unicode字符串，二进制UTF-8会被按系统编码强制转成字符串，必然乱码。

正确解决步骤 #

1. 修复脚本文件编码 #

保存VBScript文件时，必须选择**UTF-16 LE（带BOM）**编码（记事本里对应「Unicode」选项）。这样VBScript才能正确识别代码里的希腊字符，直接调用MsgBox就能正常显示：

MsgBox "Θραύσεις Κρυστάλλων"

2. 若需处理UTF-8文本文件 #

如果你的需求是读取外部UTF-8编码的文本文件并显示，正确的ADODB.Stream用法是将二进制UTF-8转成Unicode字符串，而非直接读取二进制：

Set stream = CreateObject("ADODB.Stream")
stream.Open
stream.Type = 1 ' 二进制模式加载文件
stream.LoadFromFile "greek_text.txt" ' 加载UTF-8编码的文本文件
stream.Position = 0
stream.Type = 2 ' 切换到文本模式
stream.Charset = "utf-8" ' 指定源编码为UTF-8
Dim unicodeStr
unicodeStr = stream.ReadText ' 自动转换为Unicode字符串
stream.Close
Set stream = Nothing

MsgBox unicodeStr ' 正常显示希腊字符

关于变量直接使用的问题 #

不需要通过文本文件提供希腊文本，只要脚本文件编码是UTF-16 LE，直接在代码里写希腊字符变量完全可行。你之前的问题核心是脚本编码错误和Stream使用逻辑错误，而非变量本身的问题。

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