Question

VB高手快来帮忙啊

我想用列表框提取记事本中的数据,(记事本中的每一行数据就显示到列表框中的每一行),不知道行不行呀? 如果可以,请问代码如何写呀? 还有我想在每一次保存数据时,数据记录都添加在以前记事本中的记录的下一行,那这个代码又怎么写呀??? 快求救命呀....
意思就是,如果我原本记事本中已经有三行数据啦..我后来又有新的数据要添加到记事本里,代码怎么写? 谢谢

Answer 1

问：我想用列表框提取记事本中的数据,(记事本中的每一行数据就显示到列表框中的每一行),不知道行不行呀?
答：可以

问：如果可以,请问代码如何写呀?
答：如下：
Private Sub Form_Load()
Dim Str As String
Open "d:/vpn.txt" For Input As #1
Do While EOF(1) = False
Line Input #1, Str
List1.AddItem Str
Loop
Close #1
End Sub

问：还有我想在每一次保存数据时,数据记录都添加在以前记事本中的记录的下一行,那这个代码又怎么写呀???
答：不是太明白具体意思。