请教高手有没有简便有效的办法处理这些

2012-01-24

请问高手有没有简便有效的办法处理这些[color#FF0000][/color]td width380table width100% border

请问高手有没有简便有效的办法处理这些
[color=#FF0000][/color]<td width=380>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#FFFFFF"> <font face="Arial" size="2">Going : </font></td>
<td colspan="4" bgcolor="#FFFFFF"><font face="Arial" size="2">Good</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <font face="Arial" size="2">Course :</font></td>
<td colspan="4" bgcolor="#FFFFFF"><font face="Arial" size="2">AWT</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<font face="Arial" size="2">RaceTime : </font></td>
<td bgcolor=#FFFFFF><font face="Arial" size=2>(28.81)</font></td><td bgcolor=#FFFFFF><font face="Arial" size=2>(52.12)</font></td><td bgcolor=#FFFFFF><font face="Arial" size=2>(1.16.12)</font></td><td bgcolor=#FFFFFF><font face="Arial" size=2>(1.40.05)</font></td> </tr>
<tr>
<td bgcolor="#FFFFFF"><font face="Arial" size="2">Sectional Time : </font></td>
<td bgcolor=#FFFFFF><font face="Arial" size=2>28.81</font></td><td bgcolor=#FFFFFF><font face="Arial" size=2>23.31</font></td><td bgcolor=#FFFFFF><font face="Arial" size=2>24.00</font></td><td bgcolor=#FFFFFF><font face="Arial" size=2>23.93</font></td></tr></table>
</td></tr></table>
<p>

<table width="760" border="0" cellspacing="1" class=bigborder cellpadding="0">
<tr>
<td>
<table width="760" border="0" cellspacing="1" cellpadding="1">
<tr>
<td height="13" valign=top class=resultsubheader width=5%>
<div align="center">Plc.</div>
</td>
<td height="13" valign=top class=resultsubheader width=5%>
<div align="center">Horse No.</div>
</td>
<td height="13" valign=top class=resultsubheader width=20%>
<div align="center">Horse</div>
</td>
<td height="13" valign=top class=resultsubheader width=10%>
<div align="center">Jockey</div>
</td>

<td height="13" valign=top class=resultsubheader width=10%>
<div align="center">Trainer</div>
</td>

<td height="13" valign=top class=resultsubheader width=5%>
<div align="center">Actual Wt.</div>
</td>


<td height="13" valign=top class=resultsubheader width=5%>

<div align="center">Declar.<br>Horse Wt.</div>
</td>


<td height="13" valign=top class=resultsubheader width=5%>
<div align="center">Draw</div>
</td>
<td height="13" valign=top class=resultsubheader width=5%>

<div align="center">LBW</div>

</td>

<td height="13" valign=top class=resultsubheader width=5%>
<DIV align=center>Running<br>Position</DIV>
</td>

<td height="13" valign=top class=resultsubheader width=5%>

<div align="center">Time</div>

</td>

<td height="13" valign=top class=resultsubheader width=5%>
<div align="center">Win Odds</div>
</td>
</tr>
font class=htable_eng_rg_text>14</font></td><tr bgcolor="#FFFFFF"><td align=center class=htable_eng_rg_text><font class=htable_eng_rg_text>4 </font></td><td align=center class=htable_eng_rg_text><font class=htable_eng_rg_text>5</font></td><td><font class=htable_eng_link_text><a class=htable_eng_link_text href=horse.asp?horseno=J272>ICE FIRE </a>(J272) </font></td><td width=110><a class=htable_eng_link_text href="jockeyprofile.asp?jockeycode=PB&season=Current"><font face="Arial" size=2>B Prebble </font></a></td><td><font class=htable_eng_link_text ><a class=htable_eng_link_text href="trainerprofile.asp?trainercode=NTK&season=Current">T K Ng </a></td><td align=center><font class=htable_eng_rg_text>128</font></td><td align=center><font class=htable_eng_rg_text>1084</font></td><td align=center><font class=htable_eng_rg_text>3</font></td><td align=center><font class=htable_eng_rg_text>2-1/4  </font></td><td align=center><table border=0 cellspacing=0 cellpadding=0 width=64><tr><td align=center width=16 class=htable_eng_rp_text>4</td><td align=center width=16 class=htable_eng_rp_text>4</td><td align=center width=16 class=htable_eng_rp_text>5</td><td align=center width=16 class=htable_eng_rp_text>4</td></tr></table></td><td align=center><font class=htable_eng_rg_text>1.40.40</font></td><td align=center><font class=htable_eng_rg_text>4.2</font></td><tr bgcolor="#EEEEEE"> <td align=center class=htable_eng_rg_text><font class=htable_eng_rg_text>5 </font></td><td align=center class=htable_eng_rg_text><font class=htable_eng_rg_text>1</font></td><td><font class=htable_eng_link_text><a class=htable_eng_link_text href=horse.asp?horseno=J307>EPEE DE HUA </a>(J307) </font></td><td width=110><a class=htable_eng_link_text href="jockeyprofile.asp?jockeycode=CML&season=Current"><font face="Arial" size=2>M Chadwick </font></a></td><td><font class=htable_eng_link_text ><a class=htable_eng_link_text href="trainerprofile.asp?trainercode=MA&season=Current">A T Millard </a></td><td align=center><font class=htable_eng_rg_text>131</font></td><td align=center><font class=htable_eng_rg_text>1076</font></td><td align=center><font class=htable_eng_rg_text>1</font></td><td align=center><font class=htable_eng_rg_text>2-3/4  </font></td><td align=center><table border=0 cellspacing=0 cellpadding=0 width=64><tr><td align=center width=16 class=htable_eng_rp_text>7</td><td align=center width=16 class=htable_eng_rp_text>7</td><td align=center width=16 class=htable_eng_rp_text>8</td><td align=center width=16 class=htable_eng_rp_text>5</td></tr></table></td><td align=center><font class=htable_eng_rg_text>1.40.50</font>

就像这段一样，我要截取的都是红色部分，就是说<>***<>这种星号的内容，小弟也想到的截取办法，但是实在有点不好意思拿出来献丑（非常非常笨的方法），不知道哪位高手能用正则或者简单的方法，截取后提交到数组呢，？谢谢了。

[解决办法]

VB code

Private Function StrFormat(s As String) As StringOn Error Resume NextDim Buf As StringDim StrTemp As StringDim c As StringDim i As LongDim j As LongDim k As LongDim L As Long    Buf = s    Do        L = InStr(1, Buf, "<style", vbTextCompare)        If L > 0 Then            k = InStr(L + 6, Buf, "</style>", vbTextCompare)            If k > 0 Then                Buf = Left(Buf, L - 1) + Mid(Buf, k + 8)            Else                Buf = Left(Buf, L - 1)                Exit Do            End If        Else            Exit Do        End If    Loop    Do        L = InStr(1, Buf, "<script", vbTextCompare)        If L > 0 Then            k = InStr(L + 7, Buf, "</script>", vbTextCompare)            If k > 0 Then                Buf = Left(Buf, L - 1) + Mid(Buf, k + 9)            Else                Buf = Left(Buf, L - 1)                Exit Do            End If        Else            Exit Do        End If    Loop    Buf = Replace(Buf, "&amp;", "&")    Buf = Replace(Buf, "&quot;", Chr(34)) '替换成双引号    Buf = Replace(Buf, "&lt;", "<")    Buf = Replace(Buf, "&gt;", ">")    Buf = Replace(Buf, " ", "")    Buf = Replace(Buf, "<", " <")    Buf = Replace(Buf, ">", "> ")    Buf = Replace(Buf, "&nbsp;", "")    Buf = Replace(Buf, Chr(26), " ")    Buf = Replace(Buf, Chr(10), " ")    Buf = Replace(Buf, Chr(9), " ")    Buf = Replace(Buf, Chr(13), " ")    Buf = LTrim(Buf)    Buf = RTrim(Buf)    '您可加入其他替换    StrTemp = ""    For i = 1 To Len(Buf)        c = Mid(Buf, i, 1)        Select Case c            Case "<"                If i <> 1 Then                    StrTemp = StrTemp & Mid(Buf, j + 1, i - j - 1)                End If            Case ">"                j = i        End Select    Next i    L = Len(StrTemp)    Do        Buf = Replace(StrTemp, "  ", " ")        i = Len(Buf)        If i = L Then Exit Do        L = i        StrTemp = Buf    Loop    StrFormat = BufEnd Function
[解决办法]
探讨

VB code
Private Function StrFormat(s As String) As String
On Error Resume Next
Dim Buf As String
Dim StrTemp As String
Dim c As String
Dim i As Long
Dim j As Long
Dim k As Long
Dim L As Long
    Buf……

[解决办法]
看看我以下的两篇文章，你应该就知道如何处理了：
http://blog.csdn.net/supermanking/article/details/3082860

http://blog.csdn.net/supermanking/article/details/5989227

热点排行