Categories
SugiBlog ホームページ制作・システム開発

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

'# テキストファイルを一括読み込み
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
836 views

コメントを残す

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

*