有个网页源代码：<LI class=c4><DIV>浦东机场</DIV><DIV>桃仙机场</DIV>，如何通过tagname、DIV的办法得到 浦东机场、仙桃机场？？

Question

<LI class=col4>
<DIV>浦东机场</DIV>
<DIV>桃仙机场</DIV>
<LI class=col5>

Answer 1

GetChinaNum = Replace(GetChinaNum, "零零", "零")

Answer 2

逐个进行字符串位置结合mid，instr处理吧

Answer 3

instr，mid这个办法，我现在就是这样处理
但是有个不好：有时莫名其妙变成小写或者大写，有时有个双引号引住
最好还是使用dhmtl，但是我不知道怎么引用那个div
继续请教

Answer 4

这些手段一般就是为了防数据采集的，有时在<DIV>之类的标识里还会有数量不等的空格
这时我一般就用正则表达式或干脆用excel把它导入。

Answer 5

比如：
有可能是大写：                     也有可能是小写：     
<LI class=col4>                      <li class=col4>      
<DIV>浦东机场 </DIV>                 <div>浦东机场 </div> 
<DIV>桃仙机场 </DIV>                 <div>桃仙机场 </div> 
<LI class=col5>                      <li class=col5>     class也有可能是有引号：  
 <li class="col4">      
 <DIV>浦东机场 </DIV> 
 <DIV>桃仙机场 </DIV> 
 <li class="col5"> 

Answer 6

只是提取<DIV></DIV>之间的东西吗？？如果这样就很简单了，双引号也不必理会：'示例，引用VBScript_RegExp_55，并假设你的文本在text1里。
Private Sub Command1_Click()
Dim myRegExp
Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Pattern = "< *?div *?>(.*?)< *?/div *?>"
myRegExp.Global = True
Set matches = myRegExp.Execute(Text1.Text)
For i = 0 To matches.Count - 1
Debug.Print matches(i).SubMatches(0)
Next
Set myRegExp = Nothing
End Sub使用“比如： 
有可能是大写：                    也有可能是小写：    
<LI class=col4>                      <li class=col4>      
<DIV>浦东机场 </DIV>                <div>浦东机场 </div> 
<DiV>桃仙机场 </DIV>                <div>桃仙机场 </div> 
<LI class=col5>                      <li class=col5>    class也有可能是有引号：  
<li class="col4">      
<DIV>浦东机场 </DIV> 
<DIV>桃仙机场 </DIV> 
<li class="col5">
 
”这段文本来测试，可以提取到6个结果。

Answer 7

大侠，请问“引用VBScript_RegExp_55”不知要安装什么才有？
我的vb6+sp6没有找到呢
请教，谢谢先