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

Question

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