vb 截取域名

Private Sub Form_Click()
a = "http://zhidao.baidu.com/q?ct=17&pn=0&tn=ik"
b = InStr(a, "com") '在上面的字符串中找到COM的起始位置
c = InStr(a, "http") '在上面的字符串中找到http的起始位置
d = Mid(a, c, b + 2) '之所以加2是因为b是COM中C的位置，所以加2后才能取到COM为止，如是CN结尾，只要加1就可以了
'以上只是原理，具体根据实际需要自己调整

End Sub

dim s$
s=mid(s,8)
s=left(s,instr(s,"/")-1)
print s