Question

我用vb编写了一个程序，获取了网页的源代码，但是我想获取特定的内容，下一步应该怎么做？

例如代码为：
………………
<strong>…………</strong>
…………

我想获取<strong>跟</strong>之间的内容，应该怎么写程序？
我把全部源代码放到一个text2里面去了
谢谢

Answer 1

dim s = text2.text
s1 = split(s,"<strong>") 'strong 后面的数据
s2 = split(s1(1),"</strong>")
print s2(0) 'strong 后面,/strong 前面的数据

Answer 2

使用 Mid() 函数。

示例：
sHTML="abc<strong>def</strong>"
如果前一个<strong>在一段文字sHTML中是唯一的，首先定位“<strong>”的位置，BeginNum=Instr(sHTML,"<strong>")，同样，再确定</strong>的位置，EndNum=Instr(sHTML,"</strong>")，在示例中，BeginNum=4,EndNum=15,然而我们要得到的是“def”,只有三个字符，这时可以这样计算，15-4=11，"<strong>"总共是8个字符，11-8=3，OK。

源码：
dim sHTML
sHTML="abc<strong>def</strong>" '=后即为你获取的源代码
BeginNum=Instr(sHTML,"<strong>")+8 '知道这个8是哪里来的了吧？与上面解释不同，这里我们要定位我们需要文字的开头第一个字符的位置，即"def"中“d”的位置
EndNum=Instr(BeginNum,sHTML,"</strong>")
Text2.Text = Mid(sHTML, BeginNum, EndNum - BeginNum)

Mid(全部内容，开头位置[，需要的字符个数])

Answer 3

在写一个函数来分析源码,vb有很多字符窜处理函数嘛,就用它们