VB截取txt中多个字符串到list里 （高分悬赏在线等！）
VB截取txt中多个字符串（高分悬赏在线等！）2013-11-0600:21:17goto/z44/html/74353.html-80-111.88.47.222Win...
VB截取txt中多个字符串 （高分悬赏在线等！）
2013-11-06 00:21:17 goto /z44/html/74353.html - 80 - 111.88.47.222 Winxp(Ie6.0;+Link)
2013-11-06 00:21:17 goto /z66/html/74343.html - 80 - 111.88.47.333 Winxp(Ie6.0;+Link)
如果1.txt 中出现很多条以上语句 我想实现 用VB 载入txt 然后分析里面的内容 把每一个IP 都列出来，注意 必须通过IP2边的符号 来锁定IP 进行截取 是把所有符合的IP全部截取！
要求：1。可以导入 1.txt 文本
2。把IP都截取到 list里面 展开
2013-11-06 00:21:17 goto /z44/html/74353.html - 80 - 111.88.47.222 Winxp(Ie6.0;+Link)
2013-11-06 00:21:17 goto /z66/html/74343.html - 80 - 111.88.47.333 Winxp(Ie6.0;+Link)
如果1.txt 中出现很多条以上语句 我想实现 用VB 载入txt 然后分析里面的内容 把每一个IP 都列出来，注意 必须通过IP2边的符号 来锁定IP 进行截取 是把所有符合的IP全部截取！
要求：1。可以导入 1.txt 文本
2。把IP都截取到 list里面 展开
2个回答
展开全部
Private Sub Command1_Click()
Open "D:\1.txt" For Input As #1
While Not EOF(1)
Input #1, T
i = InStr(1, T, "- 80 -") + 7
卜蔽祥 i1 = InStr(i, T, " Winxp")
If i > 0 And i1 >型搏并卖 0 Then List1.AddItem Mid(T, i, i1 - i)
Wend
Close #1
End Sub
请参考。
'修改如下：
Private Sub Command1_Click()
Open "D:\1.txt" For Input As #1
While Not EOF(1)
Input #1, T
i = InStr(1, T, "- 80 -") + 7
i1 = InStr(i, T, " Winxp")
If i > 0 And i1 > 0 Then
For i2 = 0 To List1.ListCount - 1
If List1.List(i2) = Mid(T, i, i1 - i) Then List1.RemoveItem i2
Next
List1.AddItem Mid(T, i, i1 - i)
End If
Wend
Close #1
End Sub
追问
分我点错了 给了他了晕死 我在发个贴子把分给你 你的油 箱 是多少
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Dim s() As String, s1() As String, i As Long, j As Long
Open 橡顷"1.txt" For Binary As #1
s = Split(Input(LOF(1), #1), " ")
Close #1
For i = 0 To UBound(s)
s1 = Split(s(i), ".")
If UBound(s1) = 3 Then
For j = 0 To 3
洞前 If Not IsNumeric(s1(j)) Or Val(s1(j)) > 255 Then Exit For
Next
If j = 4 Then List1.AddItem s(i)
End If
Next
由于不知道你的文件路径及控件名称，如果运行后有问题请纳如清继续追问
更多追问追答
追问
你写的什么啊 用了一点反映都没有 也没发现里面有截取字符串特征的语句
追答
你是VB6还是VB.NET？
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
