联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
for /f "tokens=* eol=<" %%i in (test.htm) do @echo.%%i>dest_text.txt
set fso=createobject("scripting.filesystemobject") set file=fso.opentextfile("test.htm") s=file.readall file.close Function getImages(Str) Set re = New RegExp re.global=true re.Pattern = "\n\W+""" Set Contents = re.Execute(Str) For Each Match in Contents Images = Images +Match+vbcrlf Next getImages =Images End Function set file=fso.createtextfile("#test.txt") file.write getimages(s) file.close createobject("wscript.shell").run "#test.txt"
Originally posted by freeants001 at 2009-4-28 22:35: 也许一条简单的for命令就可以了 ,楼主试试看 for /f "tokens=* eol=<" %%i in (test.htm) do @echo.%%i>dest_text.txt
Originally posted by freeants001 at 2009-5-3 01:27: 楼上的发现有点问题,具体是什么问题,你能说说吗?我测试了是没发现问题,除了下面句中的红色部分被提取了外.不过你修改后的好象也没解决这个问题;) 真是酷呆了的猪!" />