VBA UTF-8形式のテキストファイルに書き込みでの先頭レコードについて

Question

いつもお世話になります

Webで紹介されている下記のコードを使って、UtF-8形式のテキストファイルに書き込んだ際
先頭レコードの頭に書かれる不明のコードを削除したいのですがその方法が分かれば教えてください

（プログラム）
Sub Sample2()
    Dim Target As String
    Target = "C:\Temp\Sample.txt"
    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
        .Open
        .WriteText "  0", 1
        .SaveToFile Target, 20
        .Close
    End With
End Sub

(出力：シフトJisで開いたとき）
・ｿ  0

この不明なコードのために次のプログラムステップへ自動的に進めなくて困っています

実際のプログラムでは1行目だけ"  0"を書き込んで後は下記の様に書き直してみましたが
途中所々で全角のコードが変わってしまいました

            Dim strRec As String
            Open Sample1 For Input As #1
            Open Sample2 For Output As #2        
                Line Input #1, strRec
                Print #2, "  0"
                Do Until EOF(1)
                    Line Input #1, strRec
                    Print #2, strRec
                Loop
                Close #1
                Close #2

以上、よろしくお願いいたします

WindFaller · Accepted Answer

こんばんは。

一例ですが、これは、思ったようにうまくいかないものです。
正しく読み込みできれば、ズラすことは可能ですが、決まったパターンのみしか、変換できませまん。

'//
Sub OutTextUTF()
　Dim Target As String
　Dim outStream As ADODB.stream '参照設定しました。
　Target = ""C:\Temp\Sample.txt"
　Set outStream = New ADODB.stream
　With outStream
　　.Type = adTypeText '2
　　.Charset = "UTF-8"
　　.LineSeparator = adCRLF '-1
　End With
　With outStream
　　.Open
　　.WriteText "あいうえおabcdefg", adWriteLine '2  'ここが出力値
　　.Position = 0
　　.Type = adTypeBinary
　　.Position = 3
　End With
　'ここまでは、BOM付きの普通のUTF-8出力
　'outStream.SaveToFile Target, adSaveCreateOverWrite
　'outStream.Close

Dim ReStream As ADODB.stream
　Set ReStream = New ADODB.stream
　With ReStream
　　.Open
　　.Type = adTypeBinary
　End With
　outStream.CopyTo ReStream
　ReStream.SaveToFile Target, adSaveCreateOverWrite
　ReStream.Close
　outStream.Close

End Sub

tatsu99 · Answer

先頭レコードの頭に作成されている文字列はBOMと呼ばれています。
文字コードをUTFｰ８で出力する場合（Sub Sample2()の方法で出力した場合）は、必ずBOMが作成されます。
もし、文字コードをUTF-8で出力するがBOMを作成しないで、出力する場合は、イレギュラーな方法ですが、
https://tonari-it.com/excel-vba-utf8n-bom/
に出力方法のサンプルがありますので、それを参考にしてください。

しかしながら、BOMを作成せずにUTF-8で書き込んだテキストファイルをあなたが、提示されている方法（下の方に書かれたコード）で読み込むことはできません。これは、テキストファイルがSJISの場合のみ有効です。

UTF-８（BOM付き）でかかれたものを、UTF-８としてきちんと読み込む場合は、
http://officetanaka.net/excel/vba/file/file10.htm
を参考にしてください。

VBA UTF-8形式のテキストファイルに書き込みでの先頭レコードについて

こんばんは。

先頭レコードの頭に作成されている文字列はBOMと呼ばれています。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング