如何从文本文件里提出IP地址

redcn2004 2005-10-21 06:29:12
我有一文本文件,我要从里面提出所有的IP地址,并且在一个新的文件里输出,每行一个,该怎样写呢?
文本文件如下: 点击 进入 自动代理脚本 配置 210.47.128.67:8080 2015 毫秒 不能连接
不能连接 2005-10-8 18:25:35
点击 进入 自动代理脚本 配置 202.120.142.68:3128 171 毫秒 156 毫秒
不能连接 2005-10-8 18:25:05
点击 进入 自动代理脚本 配置 61.136.84.154:3128 968 毫秒 859 毫秒
不能连接 2005-10-8 18:21:33
点击 进入 自动代理脚本 配置 61.49.34.185:3128 1421 毫秒 140 毫秒
不能连接 2005-10-8 18:21:26
点击 进入 自动代理脚本 配置 202.114.200.115:80 1015 毫秒 不能连接
不能连接 2005-10-8 18:21:01
点击 进入 自动代理脚本 配置 61.131.63.172:8080 3296 毫秒 不能连接
不能连接 2005-10-8 18:19:46
...全文
563 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
redcn2004 2005-10-23
  • 打赏
  • 举报
回复
不好意思,每个人的思路都很好啊,可惜我的分数太少了,大家原谅哈。。。。。。
hhjjhjhj 2005-10-21
  • 打赏
  • 举报
回复
用正则表达式

Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}"
reg.Global = True
Set matchs = reg.Execute("点202.114.200.115本xxx 202.120.142.68:3128 171 毫y秒u秒")
For Each x In matchs
MsgBox x
Next
northwolves 2005-10-21
  • 打赏
  • 举报
回复
'假设你的文件为"h:\xxx.txt", 输出到"h:\ip.txt"

Sub getip(ByVal infile As String, ByRef outfile As String, Optional ByVal includeport As Boolean = False)
Dim b() As Byte, s() As String, i As Long

Open infile For Binary As #1
ReDim b(LOF(1))
Get #1, , b
Close #1
s = Split(StrConv(b, vbUnicode), "配置")
s(0) = "All IP Adress:"
For i = 1 To UBound(s)
s(i) = Split(Trim(s(i)), IIf(includeport, " ", ":"))(0)
Next
Open outfile For Binary As #1
Put #1, , Join(s, vbCrLf)
Close #1

Shell "notepad.exe " & outfile, vbNormalFocus
End Sub

Private Sub Form_load()
getip "h:\xxx.txt", "h:\ip.txt" ', True
End Sub
province_ 2005-10-21
  • 打赏
  • 举报
回复
假设你读出的一行内容存在STR变量里。

i=instr(str,"配置")+2
str=mid(str,i,instr(i,str,":")-1)
STR里就是IP地址,不包括端口,如果配置和IP间有空格,那么STR里也会有空格,可以TRIM来去掉。
redcn2004 2005-10-21
  • 打赏
  • 举报
回复
把你 刚才说的写出来好不?
redcn2004 2005-10-21
  • 打赏
  • 举报
回复
我的基础不太好,最好写出实例代码好了,我的意思是这个程序最好能从一堆没有规律的文本的文件里提出IP地址哦,如果上面的写出来了,剩下的我在举一反三的写一下
shawls 2005-10-21
  • 打赏
  • 举报
回复
读取数据啊

读到配置开始

一直到毫秒结束

然后用:

string like "*.*.*.*:*"来判断是否是ip

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧