テキストファイルの行末に文字を追加する方法について

解決

かける 2003-02-05 20:15:37 No: 77036

テキストファイルの行末に文字を追加したいのですが、何か良い方法はありますでしょうか？
  ＊＊＊テキストファイル＊＊＊
  123456789ABCDEF○×
  987654321○×
  ・・・
  ・・・
  ＊＊＊＊＊＊＊＊＊＊＊＊＊＊
○×部分に文字を追加したいと思っております。
よろしくお願いいたします。

nanashi 2003-02-05 23:12:21 No: 77037

ごく普通の処理ですが、何か？

Private Sub Command1_Click()
    Dim sFile$, sBuff$, sData As String
    Dim iFile As Integer

    sFile = "ファイル名.txt"

    iFile = FreeFile
    Open sFile For Input As iFile
        Do Until EOF(iFile)
            Line Input #iFile, sBuff
            sData = sData & sBuff & "○×" & vbCrLf
        Loop
    Close iFile

    Open sFile For Output As iFile
        Print #iFile, sData
    Close iFile
End Sub

かける 2003-02-11 02:51:16 No: 77038

nanashiさんへ
ありがとうございます。
初歩的でもうしわけありません