再问个文件操作的问题!

[jswgn201]

请问，当我将text中内容输入到文本文件后，如data.txt，将程序关闭，下次再打开程序继续输入文本，输入的文本如何在data.txt文件中另起一行开始保存输入的文本，上次输入的内容则全部保留。

[cbm6666]

免分送你一个,下载后将下面两部份修改一下,可以完全符合你的需求

下载地址:
http://download.csdn.net/source/374797


'**************Form_Load事件中的修改
If jj > 0 Then Text1.Text = Mid(aa, jj + 6)

改为

If jj > 0 Then
Text1.Text = Mid(aa, jj + 6) & vbCrLf
Text1.SelStart = Len(Text1.Text)
End If


'**************** 尾部追加文件信息下面的修改
Open TargetFile For Binary Access Write As #1
Put #1, FileLen(TargetFile) + 1, "CBM666" & Txtstr
Close #1

改为

Open TargetFile For Binary Access Write As #1
Txtstr = Trim(Txtstr)
If InStr(Right(Txtstr, 2), vbCrLf) > 0 Then Txtstr = Mid(Txtstr, 1, Len(Txtstr) - 2)
Put #1, FileLen(TargetFile) + 1, "CBM666" & Txtstr
Close #1

[zdingyun]

Open "c:\data.txt" For Append As #1
    Print #1, Text1.Text
Close

[cbm6666]

呵呵 抱歉, 搞错你的意思了...

[用户 昵称]

Option Explicit

Dim filename As String
Private Function exist() As Boolean
    exist = (Dir(filename) <> "")
End Function

Private Sub Form_Load()
    Dim s As String
    On Error Resume Next
    filename = App.Path & "\data.txt"
    
    If Not exist Then
        Open filename For Binary As #1
        Close #1
    End If
    
    Open filename For Input As #1
    Do
        Line Input #1, s
        Text1.Text = Text1.Text & s & vbCrLf
    Loop While Not EOF(1)
    Close #1
    
    Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Kill filename
    Open filename For Binary As #1
        Put #1, , Text1.Text
    Close #1

End Sub

[cbm6666]

Dim aa$, bb$
Private Sub Form_Load()
Open "c:\data.txt" For Input As #1
While Not EOF(1)
Line Input #1, bb
aa = aa & bb & vbCrLf
Wend
Close #1
Text1.Text = aa
If InStr(Right(Text1.Text, 2), vbCrLf) > 0 Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 2)
Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open "c:\data.txt" For Output As #1
Print #1, Trim(Text1.Text)
Close #1
End Sub

[cbm6666]

Dim aa$, bb$
Private Sub Form_Load()
If Dir("c:\data.txt") <> "" Then '应该要加个判断
Open "c:\data.txt" For Input As #1
While Not EOF(1)
Line Input #1, bb
aa = aa & bb & vbCrLf
Wend
Close #1
Text1.Text = aa
If InStr(Right(Text1.Text, 2), vbCrLf) > 0 Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 2)
Text1.SelStart = Len(Text1.Text)
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open "c:\data.txt" For Output As #1
Print #1, Trim(Text1.Text)
Close #1
End Sub

[jswgn201]

恩恩，我的意思就是of123的意思，问题已经解决了，谢谢大家，我从中也学到了不少东西！！

[of123]

不是这样吧？

Private Sub cmdWriteText_Click() '写如文件按钮
Open App.Path & "\data.txt" For Appand As #1 '以添加方式打开
Print #1, Text1.Text
Close #1
End Sub