标题: 求助，查找文本里的匹配项，将匹配项输出 [打印本页]
作者: crazyeva 时间: 2010-11-1 12:23 标题: 求助，查找文本里的匹配项，将匹配项输出
比如我想从文件中提取1234.12.1.0008 和 0.0.0.0这两项
文件内容：
abc1234.12.1.0008 1 1.1.1.1
1.0
a.b.c.d 1.2.3.4
12 0.0.0.0abc
其实就是从每行中提取第一个长得像ip地址的一串字符，把它列出来
求教各位老大这应该怎么做？
作者: WANKOILZ 时间: 2010-11-1 13:56
vbs:
假设文本名为a.txt
set FSO=createobject("scripting.filesystemobject")
set R=New RegExp
R.pattern="\d+\.\d+\.\d+\.\d+"
R.Ignorecase=true
R.Global=true
R.Multiline=true
str=FSO.opentextfile("a.txt").readall()
set Matches=R.execute(str)
set F=FSO.createtextfile("b.txt",2)
For each Match in Matches
F.writeline(Match)
Next
F.close
set R=New RegExp
R.pattern="\d+\.\d+\.\d+\.\d+"
R.Ignorecase=true
R.Global=true
R.Multiline=true
str=FSO.opentextfile("a.txt").readall()
set Matches=R.execute(str)
set F=FSO.createtextfile("b.txt",2)
For each Match in Matches
F.writeline(Match)
Next
F.close
作者: crazyeva 时间: 2010-11-1 22:36
| Quote: | |
|
先谢了，尝试中
[ Last edited by crazyeva on 2010-11-1 at 22:41 ]
作者: crazyeva 时间: 2010-11-1 22:39
啊哦...再弱弱的问下
想问下能用批处理文件的形式实现吗？