[文本处理] 批处理如何提取文本中的网址？

@echo off
setlocal enabledelayedexpansion
for /f "tokens=1* delims==" %%i in (a.txt) do (
set url=%%~j
if not "!url!"=="" echo !url!
)
pause
复制代码

Set FSO=CreateObject("Scripting.FileSystemObject")
'/*/////////////////////////////////////////////////////////
'*MadeTime： 2009-10-21
'*LastModify: 2009-03-20
'*功能： 提取内容正则表达式
'*参数： 正则表达式；待处理数据对象
'**********************************************************
Function MyRegExp(Patrn,Strng)
Set RegEx1=New RegExp
With RegEx1
.Pattern = Patrn
.IgnoreCase=True     
.Global=True
End With
Set Matches =RegEx1.Execute(strng)
For i=0 to Matches.Count-1
MyRegExp=MyRegExp & i+1 & "  " & Matches(i).subMatches(0) & VBCRLF
Next
End Function

'/*/////////////////////////////////////////////////////////
'*MadeTime： 2010-03-20
'*LastModify: 2010-03-20
'*功能： 读取文本文件全部内容
'*参数： 当前目录文本文件
'**********************************************************
Function ReadFile(FileName)
Set File=FSO.OpenTextFile(FileName,1,1)
ReadFile=File.ReadAll
Set File=nothing
End Function
msgbox "scr地址：" & vbcrlf & MyRegExp("src=[""']?(http.*gif)",ReadFile("test.txt"))
msgbox "BG地址：" & vbcrlf & MyRegExp("background=[""']?(http.*gif)",ReadFile("test.txt"))
Set FSO=nothing
复制代码

grep -o "http://.*\.gif" a.txt
复制代码

sed "/http/!d;s/.*\(http:.*.gif\).*/\1/g" a.txt
复制代码