批处理如何从多个htm文件中提取有规则url？

wrrbb

求助，求助，

有多个*.htm文件，现要从中提取所需的URL。
如下

1. <a href="http://item.taobao.com/item.htm?id=8099035641" target="_blank"><img

复制代码

我要提取其中的http://item.taobao.com/item.htm?id=8099035641
然后一行一条放入1.txt文件内

现知，只要符合这个正则表达式<a href="(.+?)" target="_blank"><img 都是需要的URL。
怎么写bat，我看了半天看不懂。T_T

ArdentMan

1. 
   
2. @Echo Off&SetLocal EnableDelayedExpansion
   
3. (For /F "tokens=4-8 delims==<>: " %%a In ('Findstr /c:"<a href" *.htm') Do (
   
4.   If /i "%%~a%%d%%~e" EQU "httptarget_blank" Set "Str=%%a:%%b=%%c"&Echo !Str:~1,-1!
   
5. ))>1.txt
   
6. Start 1.txt
   

复制代码

CUer

1. sed "/a href=.* target=.*img/!d; s/.*a href="\(.*\)" target=.*/\1/" *.htm >b.txt

复制代码

lvsehuaxue

1. 
   
2. @echo off
   
3. (for /f tokens^=2delims^=^" %%i in ('Findstr /c:"<a href" *.htm') do echo %%i)>1.txt
   

复制代码

Batcher

4# lvsehuaxue


htm文件里面肯定有很多a href，findstr里面需要再加点条件。

ArdentMan

vbs正则提取

1. 
   
2. Dim FSO, Path, vbStr, File, REGEX, OutStr
   
3. Path = CreateObject("Wscript.Shell").CurrentDirectory
   
4. Set FSO = CreateObject("Scripting.FileSystemObject")
   
5. For Each File In FSO.GetFolder(Path).Files
   
6.   If LCase(FSO.GetExtensionName(File)) = "htm" Then
   
7.     vbStr = vbStr & FSO.OpenTextFile(File).ReadAll() & vbCrLf
   
8.   End If
   
9. Next
   
10. Set REGEX = New RegExp
    
11. REGEX.Global = True
    
12. REGEX.IgnoreCase = True
    
13. REGEX.Pattern = ".*?<a href=\x22([^<>\s\x22]+)?\x22 target=\x22_blank\x22>.*?\r\n"
    
14. OutStr = REGEX.Replace(vbStr, "$1" & vbCrLf)
    
15. FSO.OpenTextFile("1.txt", 2, True).Write OutStr
    
16. Set FSO = Nothing
    
17. Set REGEX = Nothing
    
18. MsgBox "提取完成！", , "ArdentMan友情提醒"

复制代码

wrrbb

vbs正则提取
Dim FSO, Path, vbStr, File, REGEX
Path = CreateObject("Wscript.Shell").CurrentDirectory
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each File In FSO.GetFolder(Path).Files
...
ArdentMan 发表于 2011-7-10 11:47

没有输出？

wrrbb

@echo off
(for /f tokens^=2delims^=^" %%i in ('Findstr /c:"1.txt

lvsehuaxue 发表于 2011-7-10 11:13

主要是后缀要符合后面这个条件： target="_blank"><img

这句怎么写呢？
还有运行起来怎么只能一个htm文件有效，多个就无效喽。

ArdentMan

8# wrrbb
本想简化下正则，谁知道出错，已修改回来，我的bat版试了没有？

ArdentMan

8# wrrbb
应该是因为你的htm文件名中有空格的原因

二楼代码已修改，也是为了简化代码是少写一个~字符

lvsehuaxue

1. 
   
2. @echo off
   
3. for %%a in (*.mtl) do for /f tokens^=2delims^=^" %%i in ('findstr /r ".* target="_blank"><img" "%%a"') do echo %%i
   

复制代码

wrrbb

@echo off
(for /f tokens^=2delims^=^" %%i in ('Findstr /c:"1.txt

lvsehuaxue 发表于 2011-7-10 11:13

哦，多少文件都行，刚才我设置错误了，呵呵，现在可以了，但是就是提取出来的，比目标的多，因为我后面需要一个必要条件，后面跟着 target="_blank"><img

这个不知道怎么加。。。

2楼和6楼的，我都试了，2楼的出来就把整个文件用txt格式又重新输出了，6楼输出空白的txt文件。
目前就只有四楼的可以哦。

ArdentMan

请楼主在顶楼给出htm文本格式以调试代码啊

wrrbb

1. <textarea wrap="hard" cols="70" rows="6" readonly="readonly" onclick="this.select();" id="txt_urlcode" name="foroverflow">http://www.taobao.com/t_1?i=qXssIzFlOef33HI%3D&p=12_10011550_0_0&n=11</textarea>

复制代码

要提取中间的URL，怎么实现呢？

http://www.taobao.com/t_1?i=qXss ... 011150_0_0&n=11

CrLf

这个问题和楼主的另一个帖子有何本质区别呢？在那个帖子里大家好像都给出可行的答案了吧？貌似没必要另发一贴。
http://bbs.bathome.net/thread-13198-1-1.html
楼主若能给出合理的解释，二话不说撤销扣分