分析字符串问题，急~~~

Question

a=".......<div align=center>23</div>......<div align=center>1009.3</div>....."
b="<div align=center>"
c="</div>"a字符串中包含n个字符串b和c,我想取得在字符串a中，b和c中间部分的字符串。该怎么做啊~~~?

Answer 1

dim vStr as variant
a=".......<div align=center>23</div>......<div align=center>1009.3</div>....."
b="<div align=center>"
c="</div>"vstr=split(a,b)
for i=0 to ubound(vstr)
print vstr(i)
next i
vstr=split(a,c)
for i=0 to ubound(vstr)
print vstr(i)
next i运行后，打印在窗体上的就是你要的字符了。

Answer 2

dim vStr as variant
a=".......<div align=center>23</div>......<div align=center>1009.3</div>....."
b="<div align=center>"
c="</div>"vstr=split(a,b)
for i=0 to ubound(vstr)
print mid(vstr(i), instr(vstr(i), b)+len(b))
next i

Answer 3

Private Function GetKey(HTML, Start, Last, i)
filearray = Split(HTML, Start)
filearray2 = Split(filearray(i), Last)
GetKey = filearray2(0)
End Functions=GetKey(a,"<div align=center>","</div>",1)
从一向下取就可以

Answer 4

感谢各位~~~
水手的启发了我，但是aspower更接近我要的。总之感谢大家。结贴给分。