Question

VB在文本中添加一行内容

在123.txt中添加一行 不是创建123.txt只有一行 是在123.txt原内容的基础上在添加一行
我添加的数据是
"[" & Text1.Text & "][" & Text2.Text & "]"

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

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

Answer 1

private
sub
command1_click()
const
目标内容
=
"大小"
const
路径
=
"
"
'这里自己添加内容
const
文件名
=
"
"
'这里自己添加内容
open
路径
&
"\"
&
文件名
&
".txt"
for
append
as
#1
do
while
not
eof(1)
line
input
#1,
一行内容
loop
if
一行内容
=
目标内容
then
msgbox
"原文件最后一行是要检测的目标内容",
vbinformation
else
print
#1,
目标内容
msgbox
"已经在原文件最后添加了目标内容",
vbinformation
end
if
close
#1

Answer 2

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

Answer 3

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 & "]"

Answer 4

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

这个就可以

Answer 5

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