【Excel VBA】　改行コード(LF　と　CRLF)

皆様、お久しぶりです。エンジニアのIMMRです。

今までちょっと忙しく、バタバタして時間がなかったのですが、また時間が出来たので書いていこうと思いますので、よろしくお願い致します。

今回は、改行コードを説明していきます。

例えば、下記のようなテキストのLOGデータがあるとします。

図１　LOGデータ

テキストのLOGデータの１行１行を１つのセルに記載したい。

イメージとしてはこのような感じ

図２　イメージ図

にしたい。と思ったので

読み込みは、テキスト形式だから

Line Input　で１行ずつ読んでやればいいと思い、下記のコードを作成しました。

Sub abc()
    Dim i As Long
    Dim INFile As String
    Dim Data As String
    
    INFile = "C:\Users\T\LOG_A.txt"
    
    Open INFile For Input As #1
        i = i + 1

        Do Until EOF(1)
            Line Input #1, Data
            ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value = Data
            i = i + 1
        Loop

    Close
    MsgBox "終了"
End Sub

プログラムコード１

そして、実行を行うと

図３　プログラム実行結果

となり、１つのセルになってしまいます。

なぜこのようになってしまうのかと焦ってしまいました。

なぜこうなるのか。

WEBや本で調べるとこれは改行コードが「Lｆ」か「CrLf」が違うみたいです。

Line Inputでの読み込みはCrLfを対象に行っているみたいなので、Lｆを対応していないみたいです。

そもそも「Lf」と「CrLf」ってなにが違うのというところですが

イメージはこんな感じです。

図４　改行コードのLfとCrLf

テキストのファイルを目視しただけでは、わからないですよね。目では見えないけど改行コードが設定されています。

このような感じで実際は「Lf」の改行コードであったのに「CrLf」専用のLine Inputで読み込んでしまったため、

正しく読み込めなかったのです。

では、どうすればよいか。というと

「ADODB.Stream」を使用します。

そうすれば、改行コードなどを正確に読み取ることができます。

Sub abc()

Dim INFile As String
Dim stream As Object
Dim txtData As String
Dim i As Long
Dim Data As Variant
Dim textData As Variant
Dim Row As Long

INFile = "C:\Users\T\LOG_A.txt"

Set stream = CreateObject("ADODB.Stream")
stream.Type = 2
stream.Charset = "UTF-8"

stream.Open
stream.LoadFromFile INFile

textData = stream.ReadText

stream.Close
Set stream = Nothing

Row = 1

Data = Split(textData, vbLf)

For i = LBound(Data) To UBound(Data)
    Cells(Row, 1) = Data(i)
    Row = Row + 1
Next i

MsgBox "終了"

End Sub

プログラムコード２

プログラムコードは上記のような感じで

CreateObjectを作成し、Type = 2 'テキストデータ、Charset = "UTF-8"（LFを含む文字コード） 

を作成して、という感じで読んでいきます。

読んだデータをtextDataに代入して、

そのデータ（textData）をSplitで分けてセルに代入していきます。

そうして、このプログラムを実施したところ

図５　プログラムコード２の実行結果

CreateObjectを使用することにより、先ほどのように１つのセルの中で表示されるというとがなくなり、

１行１行表示することが出来ました。