Question

关于编程,提取TXT里面的IP地址

谁能帮下忙拉 编译一个小程序咯`` 就是希望在TXT里面 自动分析，提取出*.*.*.*. 这个格式``并且保存到 新的一个TXT里面``或者自动删除不符合的

“*.*.*.*”.就是IP地址 .TXT里面有文字，数字或者其他符号```只要求提取里面的IP地址
比如 TXT里面内容是 <script>"32113212","121.10.107.52","━;</script>
就要里面的IP```

Answer 1

是不是每一行都是这种格式？把以下代码保存成.vbs格式，根据提示输入你要处理的文件和输出文件：

Dim oFS, oFile1, oFile2, oRegx, inputFile, outputFilem, line

inputFile = InputBox("请输入要提取的文件", "提示")
outputFile = InputBox("请输入提取记录文件", "提示")

Set oFS = CreateObject("Scripting.FileSystemObject")
Set oFile1 = oFs.OpenTextFile(inputFile, 1, False)
Set oFile2 = oFs.OpenTextFile(outputFile, 2, True)

Set oRegx = New RegExp
oRegx.Pattern = ",""(.*)"","

While not oFile1.AtEndOfLine
line = oFile1.ReadLine
If oRegx.Test(line) Then
oFile2.WriteLine oRegx.Execute(line).Item(0).SubMatches(0)
End If
Wend

oFile1.Close
oFile2.Close

MsgBox "提取完毕!"& vbCrlf & "内容已输出到文件:""" & outputFile & """", vbInformation, "完成"

Answer 2

把文件读到程序里 用正则表达式啊。应该可以的

Answer 3

类似爬虫算法
自己好好想想吧!