[此贴子已经被作者于2017-1-15 05:14编辑过]
i=instr(a,"http://") '以http://来判断是否是网址起始位置 j=instr(i,a,chr(34)) '从刚才的位置往后找下一个出现的双引号 website= mid(a,i-7,j-i+7) '从i-7(回退到http://前面),往后取j-i+7个字符