Question

VB里如何读取txt文档的内容到listbox里

我想用一个Command的键实现打开电脑里txt格式里的内容显示到listbox上,然后保存是可以把在listbox上修改过后内容覆盖保存到之前打开的txt文档中.删除就是可以把listbox里的选中的那一行内容删掉. 本人是菜鸟= = 求高手指点,或者有更好的方法的求指点一下,还有其他一些步骤可能要请教的,很简单,但是我不怎么会.可以的话希望可以加下好友帮我下,只要做完了我愿意高分回报= =

Answer 1

Private Sub CmdOpen_Click() '打开按钮 Dim fileName As String, t As String fileName = InputBox("请输入文件路径") If fileName = "" Or Dir(fileName) = "" Then Exit Sub List1.Clear Open fileName For Input As #1 Do While Not EOF(1) Line Input #1, t List1.AddItem t Loop Close #1End Sub Private Sub CmdSave_Click() '保存按钮 Dim fileName As String, i As Integer fileName = InputBox("请输入需要保存的文件路径") If fileName = "" Then Exit Sub '这里注意下，刚是复制粘贴的，不能有路径判断 Open fileName For Output As #1 For i = 0 To List1.ListCount - 1 Print #1, List1.List(i) Next Close #1End Sub Private Sub CmdRemove_Click() '移除 Dim i As Integer For i = 0 To List1.ListCount
If i = List1.ListCount Then Exit For
If List1.Selected(i) Then
List1.RemoveItem i
i = i - 1
End If
NextEnd Sub