打开文件将指定内容增加到listview里？VB6

Question

文件 内容大概就象下面这样
--------------------
**soft.inc 2008.2.1
[in]=1111
[on]=2222
[of]=3333
--------------------
我想实现的效果是
Set itm = ListView1.ListItems.Add(, , in)
                itm.ListSubItems.Add , , on
                itm.ListSubItems.Add , ,of

 

 

 

Code Snippet

Open App.Path + "/" + "ad.txt" For Input As #1     
Do
Line Input #1, Data$
If (Left$(LCase$(Data$), 10) = "privateip=") Then      

    a = Right$(Data$, Len(Data$) - 10)
End If
If (Left$(LCase$(Data$), 9) = "publicip=") Then
     b = Right$(Data$, Len(Data$) - 9)
End If
If (Left$(LCase$(Data$), 5) = "port=") Then
     c = Right$(Data$, Len(Data$) - 5)
End If
              
Loop Until EOF(1)

Close #1
Exit Sub
End Sub


Private Sub Command1_Click()
Set itm = ListView1.ListItems.Add(, , a)
                itm.ListSubItems.Add , , b
                itm.ListSubItems.Add , , c
End Sub

这个是我自己写的但是还像有点问题，谁有更好的？

 

 

 

Answer 1

没看出来什么问题

Answer 2

 

但是读取不了啊、、、

Answer 3

Code Snippet

Open App.Path + "\" + "ad.txt" For Input As #1 

 

 

 

Answer 4

Code Snippet

....

End Sub


Private Sub Command1_Click()

.....

 

 

看的出来，你这是在两个方法里，而且第二个是按钮事件。

但是，你的按钮事件里并没有调用第一个方法，不知道你的读入方法在什么地方调用的？