カテゴリー
SugiBlog Webデザイナー・プログラマーのためのお役立ちTips

テキストファイル読み書き関数

この記事は最終更新日から1年以上経過しています。
'# テキストファイルを一括読み込み
Private Function ReadFile(strFilename As String) As String

    Dim nFNO        As Integer 'ファイル番号
    Dim strData     As String

    nFNO = FreeFile '空ファイル番号取得
    Open strFilename For Input As #nFNO
    strData = StrConv(InputB(LOF(1), #nFNO), vbUnicode)
    Close #nFNO '閉じる

    ReadFile = strData

End Function

'# テキストファイルに書き込み
Private Function WriteFile(strFilename As String, args As String)

    Dim nFNO As Integer 'ファイル番号

    nFNO = FreeFile '空ファイル番号取得
    Open strFilename For Output As #nFNO
    Print #nFNO, args
    Close #nFNO '閉じる

End Function
この記事がお役に立ちましたらシェアお願いします
1,807 views

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です