將字符串轉換爲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