[此贴子已经被作者于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个字符