Question

VB如何在文本中追加数据

比如open “1.txt” 原文里面有12345 后来想要追加abcd
使文本变成12345abcd
请问如何实现 求完整代码

Answer 1

Open "D:\123.txt" For Append As #1
Print #1, "abcd"
Close #1
后面追加写入，注意如果原文本中最后没有换行符的话，会接着最后一行后面不会换行。

追问

十分感谢 我还想问 若是追加的是textbox里的数据 如何让其不换行？

追答

如果你的文本框没有设置多行显示可以这样 Print #1, text1.text

如果文本框是多行显示的，可以先替换掉所有换行符再写入 Print #1, replace(text1.text,vbcrlf,”")

追问

抱歉 这两种方法都不行啊 而且我的mutiline属性设置的确实是false 追加输入无论怎么办他都换行

追答

那就说明你原来的文本的数据最后是有换行符的啊。
如果要把原来最后的换行符去掉，只能全部读取再重新写入。

追问

有点晕了 你能帮我写一段完整的代码么？
Open "D:\123.txt" For Append As #1 这个123文件刚开始是空的
print的是textbox里面的数据 然后一直追加 一直不换行 非常感谢 麻烦了

追答

明白你意思了。下面这样。

Private Sub Command1_Click()
Open "D:\123.txt" For Append As #1
Print #1, Text1.Text;
Close #1
End Sub

追问

我还想问你一个问题 比如说我textbox中输入8 我如何能在txt中如此显示
1 1 1 1 1 1 1 1
意思就是说text里的数字是1的个数 求完整代码 极端感谢

追答

Print #1, String(Val(Text1.Text), "1");

追问

那么怎样在这些1之中有空格呢？

追答

Open "D:\123.txt" For Append As #1
For i = 1 To Val(Text1.Text)
Print #1, "1 ";
Next
Close #1

Answer 2

Dim a As String
Open "c:\1.txt" For Input As #1
a = Input(LOF(1), 1)
Close #1
Open "c:\1.txt" For Output As #1
Print #1, a & "abcd"
Close #1
可以达到追加：先读再写的方法。
希望能帮助到您！

Answer 3

打开“D：\ 123.txt”追加为第1
打印＃1，“ABCD”

关闭＃1
追加到写，注意最后没有换行符的原文，然后最后一行后不换行。

Answer 4

打开“D：\ 123.txt”追加为第1
打印＃1，“ABCD”

关闭＃1
追加到写，注意最后没有换行符的原文，然后最后一行后不换行。

Answer 5

上面回答对，没问题，题外话，怎么还用vb呢，现在vb对win7的兼容性行吗