<input type="text" name="VV.engineNo" id="VV.engineNo" maxlength="30"value="https://bbs.csdn.net/topics/S9911" title="" readonly="readonly"class='input_w w_p30' />
VB 通過xmlhttp 取得的html資料，不知道怎么寫正則可以提取出 VV.engineNo 的value
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立變數。
Set regEx = New RegExp ' 建立正則運算式。
regEx.Pattern = patrn ' 設定模式。
regEx.IgnoreCase = True ' 設定是否區分字符大小寫。
regEx.Global = True ' 設定全域可用性。
Set Matches = regEx.Execute(strng) ' 執行搜索。
For Each Match In Matches ' 遍歷匹配集合。
'RetStr = RetStr & "Match found at position "
'RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr = RetStr & Match.Value
Next
RegExpTest = RetStr
End Function
uj5u.com熱心網友回復：
正則運算式速查 正則運算式舉例 正則運算式學習 (4頁A4紙)http://download.csdn.net/detail/zhao4zhong1/1808549uj5u.com熱心網友回復：
RegExpTest("<input name=""VV.engineNo"" [\s\S]*?value=""(?<value>.*?)"" [\s\S]*?>", v2_a)把整段input 資料都出來了，不是單獨的值
uj5u.com熱心網友回復：
'此代碼由“正則測驗工具V1.1.42”自動生成，請直接呼叫TestReg程序Private Sub TestReg()
Dim strData As String
Dim reg As Object
Dim matchs As Object, i As Integer, j As Integer
strData = "<input type=""text"" name=""VV.engineNo"" id=""VV.engineNo"" maxlength=""30""value=""S9911"" title="""" readonly=""readonly""class='input_w w_p30' />"
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.IgnoreCase = True
reg.MultiLine = True
reg.Pattern = "<input[^>]*?value=""(.*?)""[^>]*?>"
Set matchs = reg.Execute(strData)
For i = 0 To matchs.Count - 1
Debug.Print i + 1 & "." & matchs(i)
For j = 0 To matchs(i).SubMatches.Count - 1
Debug.Print "(" & j + 1 & ")." & matchs(i).SubMatches(j) & " ";
Next
If matchs(i).SubMatches.Count > 0 Then Debug.Print
Next
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/76784.html
標籤：VB基礎類
下一篇：求一個類似學生管理系統的VB工程