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

发布网友发布时间：2022-05-19 06:05

共3个回答

热心网友时间：2023-10-03 20:26

是不是每一行都是这种格式？把以下代码保存成.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, "完成"

热心网友时间：2023-10-03 20:27

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

热心网友时间：2023-10-03 20:27

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