Question

VB 向文本文件中指定行追加数据的问题

有一个文本文档里面有很多数据
第一行数据： 王天明
第二行数据： 李忠成
第三行数据： 刘东旭
等等

点击一个按钮在其中指定行（例如第二行）增加一些信息
第一行数据： 王天明
第二行数据： 李忠成 （已选择）
第三行数据： 刘东旭

用VB该怎么弄啊

Answer 1

Private Sub Command1_Click()
Dim s() As String
Open "e:\tmp\1.txt" For Binary As #1    '文本文件名自己改
s = Split(Input(LOF(1), #1), vbCrLf)
s(1) = s(1) & "（已选择）"  's(0)是第一行，s(1)是第二行，依此类推
Put #1, 1, Join(s, vbCrLf)
Close #1
End Sub

Answer 2

这个只能把文件全部读出来，保存到数组里等，修改后，再重新写入文件。

如果是你说的这种格式，还是建议用数据库文件吧！

Answer 3

使用open语句。