将字符串转换为UTF-8

Question

我有一个被赋值为ANSI编码的字符串变量，例如str = "Пирг"
如何将其转换为UTF-8编码？

- user2136786

---

请参考这个更新的问题。 - Frédéric

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

- Ansgar Wiechers

---

不，我不想写入文件。我将这个变量传递给只接受UTF-8编码字符串的服务器的URL。例如，如果我对字符串进行urlencode或使用Escape()函数，服务器会返回错误状态。 - user2136786