vbscriptを使用してANSIテキストファイルを作成する

Question

vbsを使用してANSIエンコーディングのテキストファイルを作成する必要があります。

このコードを使用して、任意のテキストを書くことがなくて、私はただ、それを作成した場合...

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set ObjFileTxt = objFSO.objFSO.CreateTextFile("filename.txt", True, False) 
Set ObjFileTxt = nothing 
Set objFSO = nothing 

...私はANSIテキストファイルを取得しますが、私は、たとえば、いくつかのテキストを書くしようとした場合...

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set ObjFileTxt = objFSO.CreateTextFile("filename.txt", True, False) 
ObjFileTxt.Write "ok" 
Set ObjFileTxt = nothing 
Set objFSO = nothing 

...私はUTF8テキストファイルを取得します。

助けが必要ですか？

Answer 1

投稿したコードがUTF8でエンコードされた出力ファイルを作成する可能性はありません。 CreateTextFileメソッドは、ANSI（Windows-1252）およびUnicode（リトルエンディアンUTF-16）エンコーディングのみをサポートします。

Set stream = CreateObject("ADODB.Stream") 
stream.Open 
stream.Type  = 2 'text 
stream.Position = 0 
stream.Charset = "utf-8" 
stream.WriteText "some text" 
stream.SaveToFile "C:\path\to\your.txt", 2 
stream.Close 

または（BOMを含む）個々のバイトを書く：VBScriptでUTF8でエンコードされたファイルを作成するための

唯一の方法はADODB.Streamオブジェクトです。