[文本处理] [已解决]批处理怎样提取a.txt中的网址？

copy a.txt $temp$>nul
fr $temp$ -ric:"<a href=\"" -t:"\r\nhttp://www.wholesale-watches.org/"
fr $temp$ -ric:"\"" -t:"\r\n"
findstr /b /l /c:"http://www.wholesale-watches.org/" $temp$>b.txt
del $temp$
复制代码

Dim FSO, objFile, FileName, FileContent

FileName = "F:\a.txt"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFile = FSO.OpenTextFile(FileName, 1, False)
FileContent = objFile.ReadAll

RetStr=MyRegExp("<a(.+?)href=""*([^\s]+)""([^>]+|>)",FileContent)

FSO.CreateTextFile("Res.txt",True).Write RetStr

Set objFile=Nothing
Set FSO = Nothing

'/*/////////////////////////////////////////////////////////
'*MadeTime：    2010-5-31
'*LastModify:   2010-5-31
'*功能：	正则提取内容
'*参数：	正则表达式，处理字符串
'**********************************************************
Function MyRegExp(Patrn,strng)
Dim InsertURL
InsertURL="http://www.wholesale-watches.org/"
Set RegEx1=New RegExp
   
RegEx1.Pattern = Patrn
RegEx1.IgnoreCase=True     
RegEx1.Global=True

Set Matches =RegEx1.Execute(strng)   
For Each Match In Matches      
	RetStr=RetStr & InsertURL & Match.submatches(1) & vbcrlf
Next
MyRegExp=RetStr

Set RegEx1=Nothing
End Function
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
    set "v=%%i"
    set "v=!v:"= !"
    for %%a in (!v!) do (
    echo "%%a" |findstr "html">nul && echo http://www.wholesale-watches.org/%%~a
    )
)
 
复制代码