データにChr(13) CRコードの改行を含むCSVのline inputの取り込み方法

Question

はじめに

仕事の効率化のためにたまに勉強しながらvbaでマクロを作ってます。
現状はコードを調べて切り貼りする程度の知識ですが、調べても見つからないため質問しました。

前提

VBAでcsvを読み込んでline inputで配列に入れようとしている段階でエラーがおこっています。

###原因
csv作成段階でwebフォームの入力によってセル内改行がChr(13)になったため
Chr(13)を参照して行を判断するline inputが誤動作してることがわかりました。

###試したこと
そこで、line inputをする前に開いたcsv内の該当フォームの箇所に存在するChr(13)をChr(10)へ書き換えることにしましたが
それにより今度はどうすればline inputが使えるようになるかわからなくなっています。

「Chr(13)やCRコードをデータに含むcsvのline inputの取り込み方法」なども調べましたが下記サイトくらいしか見つかりませんでした。

参考にしたサイト
https://tonari-it.com/vba-csv-camma/

csvの読み込みと配列への格納

Sub test1()
    Dim s_buf As String
    Dim fname As String
    Dim buf As String　


    Call new_file_check(fname) 'ダウンロードフォルダにある当日の日付が入った最新ファイルを参照
    Open fname For Binary As #1

        ReDim b_buf(1 To LOF(1))
        Get #1, 1, b_buf
    Close #1
      
    '読み込んだデータをUnicodeに変換
    s_buf = StrConv(b_buf, vbUnicode)
    Debug.Print s_buf
    
    s_buf = replaceColon(s_buf)
    Debug.Print s_buf

'以下機能しない
Do Until EOF(1)

    Line Input #1, buf
    
    Dim aryline As Variant '文字列格納用配列変数
    aryline = Split(Replace(buf, """", ""), ",") '読み込んだ行を,切りで配列変数に格納
     
    r = r + 1
Loop

End Sub

###""で囲まれた範囲内のChr(13)をChr(10)に置換

フォーム入力された箇所は""で囲われているためその範囲内の改行だけ直す

Function replaceColon(ByVal str As String) As String

Dim strTemp As String
Dim quotCount As Long

Dim l As Long
For l = 1 To Len(str)  'strの長さだけ繰り返す

    strTemp = Mid(str, l, 1) 'strから現在の1文字を切り出す

    If strTemp = """" Then   'strTempがダブルクォーテーションなら

        quotCount = quotCount + 1   'ダブルクォーテーションのカウントを1増やす

    ElseIf strTemp = Chr(13) Then   'strTempがChr(13)なら

        If quotCount Mod 2 <> 0 Then   'quotCountが2の倍数じゃないなら

            str = Left(str, l - 1) & Chr(10) & Right(str, Len(str) - l)   '現在の1文字をChr(10)に置き換える

        End If

    End If

Next l

replaceColon = str

End Function

よろしくお願いします。

Answer 1

#1は読み込みを済ませてCloseしているのだから、
そのあとで Line Input #1, buf とされても困るのでは。
なので、上で準備した b_buf を使って処理をすればいいと思います。

Dim strLine, aryLine
For Each strLine In Split(s_buf, Chr(13))
  aryLine= Split(Replace(strLine , """", ""), ",") '読み込んだ行を,切りで配列変数に格納
 'Call outputFunction(aryLine)
Next

Comments

[HoneyCase]

早速回答いただきありがとうございます。
おかげで解決できました。

line input s_buf,buf

という書き方でエラーが出て#1などのファイル以外では出来ないのかなというのはなんとなく理解してました。
ですが私のコードですと#1の書き換えではなかったので#1をそこで呼び出しても結局再現元のままでline inputにどうやって繋げようかと考えが狭くなってました。

整理した後に
[Chr(13)] で切って、再度 [,] で切れば再現できたのですね。

勉強になりました。ありがとうございます。

Answer 2

###修正後の補足

実際に使用した時に私の環境(多分csv側？)では余計に1行多く空の行が作られ
処理の最後にエラーとなっていました。
確認したところ最後にはChr(10)のみの行が出来てたので、下記のように付け加えました。

Dim strLine, aryLine

For Each strLine In Split(s_buf, Chr(13))
if strLine = Chr(10) then Exit For 'Chr(10)だけならForを抜ける
  aryLine= Split(Replace(strLine , """", ""), ",") '読み込んだ行を,切りで配列変数に格納
 
'call hoge(aryline) 'arylineを使ってなんやかんやする 

Next