テキスト書き出し・読み込みのメモ

テキストでクイズの取り組み履歴の書き出し等メモってたので，転記

Option Explicit
'テキスト読み込み
Sub ReadText()
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    Dim ts As Object: Set ts = fso.opentextfile("textファイル名をフルパスで")
    Dim strRec As String
    Dim strRec2 As String
    Dim gyo As Long: gyo = 1
    
    Do Until ts.atEndofStream
        strRec = ts.readline
        gyo = gyo + 1
        strRec2 = strRec2 & Chr(10) & strRec
    Loop
    
    Debug.Print strRec2
    
    ts.Close
    Set ts = Nothing
    Set fso = Nothing
End Sub

'テキスト書き出し
Sub postText()
    Dim filePath As String: filePath = "テキストファイルをフルパスで"
    Dim fileNo As String: fileNo = FreeFile()
    
    Open filePath For Output As #fileNo
    
        Print #fileNo, "内容" ';をつけると改行しない。;無しなら改行される
    
    Close #fileNo
End Sub

書き出し側はファイルシステムオブジェクト使うと長かったので，旧来の書き方を選んだ覚えがあります。

テキストの扱いは苦手な領域なので，コピペで使いまわせるようにメモでした。

だいたい2ヶ月で学んだことはここまでなので，俯瞰してまとめていかないとなぁ。