vbscript - 将字符串转换为 UTF-8

Question

我有一个字符串分配给编码为 ansi 的变量，例如 str = "Пирг"
如何将其编码为 UTF-8？

Answer 1

你的意思是将它写入文件？像这样:

Set stream = CreateObject("ADODB.Stream")
stream.Open
stream.Type     = 2 'text
stream.Position = 0
stream.Charset  = "utf-8"
stream.WriteText str
stream.SaveToFile filename, 2
stream.Close

编辑:如果您希望 UTF-8 字符串进入另一个变量，您可以这样做:

Set stream = CreateObject("ADODB.Stream")
stream.Open
stream.Type     = 2 'text
stream.Position = 0
stream.Charset  = "utf-8"
stream.WriteText str
stream.Flush
stream.Position = 0
stream.Type     = 1 'binary
stream.Read(3)      'skip BOM
utfStr = stream.Read
stream.Close