将字符串转换为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