<BODY>
<TABLE border=0 cellspacting=0 cellpadding=0 align=center>
<TBODY>
<TR>
<TD height=1060 valign=center align=middle>
<TABLE cellspacing=0 cellpadding=0 align=center>
<TBODY>
<TR>
<TD width=167><SPAN class=STYLE11>表188B</SPAN></TD>
<TD width=457 align=middle>
<DIV class=STYLE5 align=center>輸出申請表</DIV></TD>
<TD widt=61>
<DIV class=STYLE11 align=left> </DIV></TD>
<TD width=85>
<DIV class=STYLE11 align=left> </DIV></TD></TR>
<TR>
<TD colspan=4>
<TABLE
style="borrr-4" cellspacing=0 cellpadding=0 align=center>
<TBODY>
<TR>
<TD class=STYLE7 width=93 align=middle>型別</TD>
<TD class=STYLE7 width=114 align=middle>卡車</TD>
<TD class=STYLE7 width=113 align=middle>型號</TD>
<TD class=STYLE7 width=104 align=middle>FFAS</TD>
<TD class=STYLE7 width=161 align=middle>編號</TD>
<TD class=STYLE7 width=177 align=middle>FFAS-54.訂貨-1556</TD></TR>
<TR>
<TD class=STYLE7 align=middle>輸出單位</TD>
<TD class=STYLE7 align=middle>565</TD>
<TD class=STYLE7 align=middle>數量</TD>
<TD class=STYLE7 align=middle>56</TD>
<TD class=STYLE7 align=middle>輸出編號</TD>
<TD class=STYLE7 align=middle>G23-FSD-65842-01N25 DD1</TD></TR>
<TR>
<TD class=STYLE7 align=middle>制造商</TD>
<TD class=STYLE7 align=middle>657</TD>
<TD class=STYLE7 align=middle>出產日期</TD>
<TD class=STYLE7 align=middle>N/A</TD>
<TD class=STYLE7 align=middle>出產名稱</TD>
<TD class=STYLE7 align=middle>載物卡車</TD></TR>
.
.
.
.
.
.
VB6.0如何正則提取上面原始碼的 TD中間的文字 我需要提取“標紅”的文字
只給個正則公式就行，其它的都寫好了，謝謝各位老師~
PS：
如果有其他辦法也可以，我有一個按鈕，兩個TEXT, TEXT1為原始碼內容，點擊按鈕，TEXT2輸出原始碼
uj5u.com熱心網友回復：
人工頂~~~~uj5u.com熱心網友回復：
>([^><]+)</TD>
uj5u.com熱心網友回復：
<TD class=STYLE7 [^<>]*>([^<>]+)</TD>
uj5u.com熱心網友回復：
'此代碼由“正則測驗工具 v1.1.43”自動生成，請直接呼叫TestReg程序
Private Sub TestReg()
Dim strData As String
Dim reg As Object
Dim matchs As Object, i As Integer, j As Integer
strData = "網頁源代碼"
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.IgnoreCase = False
reg.MultiLine = True
reg.Pattern = ">([^><]+)</TD>"
Set matchs = reg.Execute(strData)
For i = 0 To matchs.Count - 1
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
(1).型別
(1).卡車
(1).型號
(1).FFAS
(1).編號
(1).FFAS-54.訂貨-1556
(1).輸出單位
(1).565
(1).數量
(1).56
(1).輸出編號
(1).G23-FSD-65842-01N25 DD1
(1).制造商
(1).657
(1).出產日期
(1).N/A
(1).出產名稱
(1).載物卡車
uj5u.com熱心網友回復：
此代碼由“正則測驗工具 v1.1.43”自動生成，請直接呼叫TestReg程序
Private Sub TestReg()
Dim strData As String
Dim reg As Object
Dim matchs As Object, i As Integer, j As Integer
strData = "網頁代碼"
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.IgnoreCase = False
reg.MultiLine = True
reg.Pattern = ">([^><]+)</TD>[\s\S]*?>([^><]+)</TD>[\s\S]*?>([^><]+)</TD>[\s\S]*?>([^><]+)</TD>[\s\S]*?>([^><]+)</TD>[\s\S]*?>([^><]+)</TD>"
Set matchs = reg.Execute(strData)
For i = 0 To matchs.Count - 1
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
(1).型別 (2).卡車 (3).型號 (4).FFAS (5).編號 (6).FFAS-54.訂貨-1556
(1).輸出單位 (2).565 (3).數量 (4).56 (5).輸出編號 (6).G23-FSD-65842-01N25 DD1
(1).制造商 (2).657 (3).出產日期 (4).N/A (5).出產名稱 (6).載物卡車
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/28682.html
標籤：VB基礎類
下一篇：Exl表格中關于串聯單元格的宏