VB 截取字符串中的内容

来源：百度知道 编辑：UC知道 时间：2024/07/02 22:33:03
<img src="http://c.baidu.com/c.gif?t=6&p=0" style="display:none;"/>

例如有以上这样一段代码,如何截取到src="http://与?t=6&p=0 之间的字符串,(就是c.baidu.com/c.gif)这一部分呢

哪个可以给我写段完整的代码,最好用mid,instr来实现

Dim a As String
a = "<img src='http://c.baidu.com/c.gif?t=6&p=0' style='display:none;'/>"
a = Mid(a, InStr(a, "//") + 2, Len(a) - InStr(a, "//"))
a = Mid(a, 1, InStr(a, "?") - 1)
MsgBox a

dim sr ,a as string
dim x,y as integer
sr=""<img src="http://c.baidu.com/c.gif?t=6&p=0" style="display:none;"/>""

for i= 1 to len(sr)
if mid(sr,i,7)="http:// " then x=i
if mid(sr,i,4)=".gif" then y=i
next

a=mid(sr,x+7,y-x+7)