vb 截取域名

显示全部楼层 · 2008-7-30 10:10:48

比如我想http://zhidao.baidu.com/q?ct=17&pn=0&tn=ik截出zhidao.baidu.com或http://www.17zixue8.com/website-jianshe/JavaScript/JavaScript-rumen-tech/截出www.17zixue8.com，要怎么做？

千问 · 2008-7-30 10:10:48

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

千问 · 2008-7-30 10:10:48

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