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