VB在文本中添加一行内容

来源：百度知道 编辑：UC知道 时间：2024/06/08 19:36:31
在123.txt中添加一行 不是创建123.txt只有一行 是在123.txt原内容的基础上在添加一行
我添加的数据是
"[" & Text1.Text & "][" & Text2.Text & "]"

你们的代码 都不行！！！！！！

内容（a=光标位置）
1
2a
全都添加到了2的后面
除非光标在
1
2
a
你们的代码才有效！

peivate function appendData(str as String)
dim allText as String
dim lineText as string
open 你的文件 for input as #1
line input #1,lineText
if trim(linetext)<>"" then
alltext = alltext & vbnewline + linetext
end if
close #1

allText = allText & vbnewline & str

open 你的文件 for append as #2
print #1 allText
close #2
end function

在需要保存数据的地方调用上面的function
appendData "[" & Text1.Text & "][" & Text2.Text & "]"

Open "File.txt" For Append As #1
Write #1, "数据1", "第二列", 1
Write #1, "数据2", "第二列", 2
Close #1

Private Sub Command1_Click()
Open "File.txt" For Append As #1
Print #1, "[" & Text1.Text & "][" & Text2.Text & "]"
Close #1
End Sub

Private Sub Command1_Click()
Open "File.txt" For Append As #1
Pr