Question

VB如何追加文本到TXT文档?

小弟想用VB追加文本到一个有数据的TXT末尾(不管有几行),请问该咋办?
一楼和二楼都不行!
加入文本是这样的,
原有abc三个字
运行了就会出现
abczhuijia1
zhuijia2
也就是abc与zhuijia1到了同一行.
好歹也加个换行符吧

Answer 1

在VB中以追加方式打开文本文件的方式，是Append。
以下假设已有的文件是D:\abcd.txt文件。
现将Text1控件中的文本追加到已有的文件中去：
Private Sub Command1_Click()
Open "d:\abcd.txt" For Append As #1 '以追加方式打开文件
Print #1, '为防止原文件末尾没有换行，而加入的换行
Print #1, Now '加入一个空行，为新加入内容的加入时间，若不需要可删除或注释它
Print #1, Text1.Text
Close #1
End Sub

Answer 2

在看下 ，+个 回车

open"c:\a.txt" for append as #1 '引号里面是TXT文本的路径 ， Append 是追加写入

Print#1,vbcrlf
print#1,text1 ' text1 是VB 里面的 text1 文本控件

close#1

Answer 3

'这个容易，将C:\cang_2009.txt改成自己的文件路径
Private Sub Form_Load()
Open "C:\cang_2009.txt" For Append As #1
Print #1, Chr(13)
For i = 1 To 10
Print #1, Rnd
Next i
Close #1
MsgBox "已追加至C:\cang_2009.txt"
End Sub

Answer 4

open "c:\a.txt" for append as #1
print #1,vbcrlf$ & "zhuijia1"
print #1,"zhuijia2"
close #1