none
打开文件将指定内容增加到listview里?VB6 RRS feed

  • 问题

  • 文件 内容大概就象下面这样
    --------------------
    **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


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

     

     

     

    2008年12月31日 9:03

答案

全部回复