UC知道vb提取文本文件中的特定数据，然后存入listview
来源：百度知道 编辑：UC知道 时间：2024/09/22 15:39:10
文本文件如下：
IP地址 用户名 密码
[222.222.222.222]: admin [空]
[222.22.222.2 ]: administrator [空]
[222.222.222.2 ]: admin [空]
[222.222.222.22 ]: admin [123456]
[222.222.222.222]: admin [123]
[222.22.222.2 ]: administrator [空]
我想把[]的IP地址提取出来存入变量ip
然后是用户名提取出来admin
再是把密码从第二个[]中拿出来存入变量pass
然后依次存入listview控件
1楼和2楼的 代码都不行 luckywhale 你的代码不可行
IP地址 用户名 密码
[222.222.222.222]: admin [空]
[222.22.222.2 ]: administrator [空]
[222.222.222.2 ]: admin [空]
[222.222.222.22 ]: admin [123456]
[222.222.222.222]: admin [123]
[222.22.222.2 ]: administrator [空]
我想把[]的IP地址提取出来存入变量ip
然后是用户名提取出来admin
再是把密码从第二个[]中拿出来存入变量pass
然后依次存入listview控件
1楼和2楼的 代码都不行 luckywhale 你的代码不可行
Private Sub Command1_Click()
Dim IP() As String, Admin() As String, Pass() As String
Dim IPS() As String, j%, I%
Dim IPADPAS As String, AdminPass() As String
I = GetTxtCount(App.Path & "\IP.txt")
ReDim IP(1 To I), Admin(1 To I), Pass(1 To I)
Open App.Path & "\IP.txt" For Input As #1
Do While Not EOF(1)
j = j + 1
Line Input #1, IPADPAS
If IPADPAS <> "" Then
IPS = Split(IPADPAS, ":")
IP(j) = Right((Left(IPS(0), Len(IPS(0)) - 1)), Len(IPS(0)) - 2)
AdminPass = Split(Trim(IPS(1)), " ")
Admin(j) = AdminPass(0)
Pass(j) = IIf(Left(AdminPass(1), 1) = "[", "", AdminPass(1))
End If
Loop
Close #1
For I = 1 To I
List1.AddItem IP(I) & "," & Admin(I) & "," & Pass(I)
Next I
End Sub
Private Fu