vb怎么提取代码中间的数字

Dim strLine As String, strItem() As String    Open "c:\1.html" For Input As #1
    Do Until EOF(1)
        Line Input #1, strLine
        strLine = Trim(strLine)
        If InStr(strLine, "onClick=""showdetail(") Then
            strItem = Split(strLine, "('")
            strItem = Split(strItem(1), "')")
            Debug.Print strItem(0) '这里就是数字字符串
        End If
    Loop
    Close #1

解决方案 »

  1.   

    '此代码由“正则测试工具  v1.1.35”自动生成，请直接调用TestReg过程
    Private Sub TestReg()
        Dim strData As String
        Dim reg As Object
        Dim matchs As Object, match As Object    strData = "<html>"  &  vbCrLf  & _
                  "<head>"  &  vbCrLf  & _
                  "<title>在处理结果</title>"  &  vbCrLf  & _
                  "<script language='javascript' src='frmjs/checkdata.js?ver=1.0'></script>"  &  vbCrLf  & _
                  "<script language='javascript' src='frmjs/common_func.js?ver=1.0'></script>"  &  vbCrLf  & _
                  "<script language='javascript' src='frmjs/date_func.js?ver=1.0'></script>"  &  vbCrLf  & _
                  "<script language='javascript' src='frmjs/obj_func.js?ver=1.0'></script>"  &  vbCrLf  & _
                  "<script language='javascript' src='frmjs/ajax_func.js?ver=1.0'></script>"  &  vbCrLf  & _
                  "<script language='javascript' src='frmjs/str_func.js?ver=1.0'></script>"  &  vbCrLf  & _
                  "<link href='theme/1/style.css' rel='stylesheet' type='text/css'>"  &  vbCrLf  & _
                  "<script language='JavaScript' src='theme/1/style.js' type='text/javascript'></script>"  &  vbCrLf  & _
                  "<script language='javascript' src='frmjs/FusionCharts.js?ver=1.0'></script><script language='javascript' src='frmjs/FusionChartsExportComponent.js?ver=1.0'></script>"  &  vbCrLf  & _
                  "<script language='JavaScript' src='frmjs/opermaint.js' type='text/javascript'></script>"  &  vbCrLf  & _
                  "<script language='javascript'>var V_SYS_SFT='黑';var V_SSLPORT='10.112.52.45:9443:9080;10.112.52.46:9443:9080;10.112.52.47:9443:9080;10.112.52.41:9444:9081;';</script>"  &  vbCrLf  & _
                  "<script language=""javascript"" type=""text/javascript"">"  &  vbCrLf  & _
                  "   function init()"  &  vbCrLf  & _
                  "   {"  &  vbCrLf  & _
                  "        this.iscloseenterfun = 1;"  &  vbCrLf  & _
                  "       "  &  vbCrLf  & _
                  "           formain.gnid.value="""";"    Set reg = CreateObject("vbscript.regExp")
        reg.Global = True
        reg.IgnoreCase = True
        reg.MultiLine = True
        reg.Pattern = "onClick=""showdetail\('(\d+)'"
        Set matchs = reg.Execute(strData)
        For Each match In matchs
            'Debug.Print match.Value
            Debug.Print match.SubMatches(0)
        Next
    End Sub
      

  2.   

    你也可以用inet控件获取html代码，然后再用正则获取，也可以用instr和mid获取。