从Html文件中提取图片文件名

[Matrix1]

写一个函数过程，从Html中提取图片文件名及目录。并将他们存入一个字串数组，请高手指点，要程序代码。

[Putao]

关注

[subzero]

dim img() as string
sub parsehtml()
dim idx as long,l as long
dim tmp as string,tmp1 as string
open "yourpage.htm" for input as #1
do until eof(1)
line input #1,tmp
tmp=lcase(tmp)
l=instr(tmp,"<img")
if l<>0 then
tmp1=mid(tmp,l+1)
l=instr(tmp1,">")
if l<>0 then
tmp1=left(tmp1,l-1)
if instr(tmp1,"src=")<>0 then
idx=idx+1
end if
end if
end if
loop
close #1
redim img(idx)
idx=0
open "yourpage.htm" for input as #1
do until eof(1)
line input #1,tmp
tmp=lcase(tmp)
l=instr(tmp,"<img")
if l<>0 then
tmp1=mid(tmp,l+1)
l=instr(tmp1,">")
if l<>0 then
tmp1=left(tmp1,l-1)
if instr(tmp1,"src=")<>0 then
if mid(tmp1,instr(tmp1,"src=")+1,1)=chr(34) then
tmp1=mid(tmp1,instr(tmp1,"src=")+2)
img(idx)=left(tmp1,instr(tmp1,chr(34))-1)
idx=idx+1
else
tmp1=mid(tmp1,instr(tmp1,"src=")+1)
img(idx)=left(tmp1,instr(tmp1," ")-1)
idx=idx+1
end if
end if
end if
end if
loop
close #1
end sub