Question

如何在VB6.0里面用正则表达式取网页里面的值

网页代码如下：
...
<tr> <td align='right'width='70px'><b>卖出价</b></td>
<td align='right'width='100px'><b>卖出量</b></td>
<td align='right'width='100px'><b>兑换额(CNY)</b></td>

</tr>
<tr onclick='set_price(1,0.247,100,24.7)' class='orderline'>
<td align='right'>0.24700000</td>
<td align='right'>100.000</td>
<td align='right'>24.7000</td>
....
<tr> <td align='right'width='70px'><b>买入价</b></td>
<td align='right'width='100px'><b>买入量</b></td>
<td align='right'width='100px'><b>兑换额(CNY)</b></td>

</tr>
<tr onclick='set_price(0,0.1201,274.771,32.9999971)' class='orderline'>
<td align='right'>0.12010000</td>
<td align='right'>274.771</td>
<td align='right'>33.0000</td>
....
需要取0.24700000和0.12010000这两个数据，并赋值给TEXT1和TEXT2，在Form1上显示出来

Answer 1

Public Function GetRegEx(RegStr As String)
    
    Dim RegEx As RegExp
    Dim Match As Match
    Dim Matches As MatchCollection
    Dim MatchStr As String
    
    GetNextPage = ""
    Set RegEx = New RegExp
        RegEx.IgnoreCase = True
        RegEx.Global = True
        
        
    RegEx.Pattern = "class='orderline'>\s+<td align='right'>([\d\.]+)</td>[\s\S]*class='orderline'>\s+<td align='right'>([\d\.]+)</td>"
            Set Matches = RegEx.Execute(RegStr)
            
            
            For Each Match In Matches
           
                Text1.Text = Match.SubMatches(0)
                Text2.Text = Match.SubMatches(1)
                
                
            Next
            
            
        
        
        
        GetRegEx = MatchStr
        DoEvents
        
    Set Matches = Nothing
    Set Match = Nothing
    Set RegExp = Nothing
End Function
Private Sub Command1_Click()
    Call GetRegEx(ttt.Text)
    
End Sub

Answer 2

先把 网页内容 记录过来，再用正则

Answer 3

documenet.Getelement.byID(网页表单ID)