取出字符串中的图片地址

'--------------取出字符串中的图片地址

function reg_img(str)
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True
    re.Pattern="<img.*?>"
    Set Matches = re.execute(str)
    for each match In matches
        reg_img = reg_img & match.value & "|"
    next
end function