请教正则高手，这个正则表达式怎么写？

316428696 · 发表于 2010-1-22 16:41:24

本帖最后由 316428696 于 2010-1-22 23:49 编辑

<html>
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
    <title>Yahoo! Singapore Finance</title>
</head>
<body>
    <table class="modtbl datatbl" cellpadding="2" cellspacing="0">
        <tr>
            <td class="datatblhlt" align="left" nowrap colspan="1">
                <small><a href="/q?s=%5ESTI">STI</a></small></td>
            <td align="right">
                <small>2,888.38 </small>
            </td>
            <td align="right">
                <small><span class="neg">-27.73</span></small></td>
            <td align="right">
                <small><span class="neg">(-0.95%)</span></small></td>
        </tr>
        <tr>
            <td class="datatblhlt" align="left" nowrap colspan="1">
                <small><a href="/q?s=%5ESESD">SESDAQ</a></small></td>
            <td align="right">
                <small>N/A </small>
            </td>
            <td align="right">
                <small>0.00</small></td>
            <td align="right">
                <small>(0.00%)</small></td>
        </tr>
        <tr>
            <td class="datatblhlt" align="left" nowrap colspan="1">
                <small><a href="/q?s=%5EBSRI">BT-SRI</a></small></td>
            <td align="right">
                <small>N/A </small>
            </td>
            <td align="right">
                <small>0.00</small></td>
            <td align="right">
                <small>(0.00%)</small></td>
        </tr>
        <tr>
            <td class="datatblhlt" align="left" nowrap colspan="1">
                <small><a href="/q?s=%5EKLSE">KLSE Comp</a></small></td>
            <td align="right">
                <small>1,289.51 </small>
            </td>
            <td align="right">
                <small><span class="neg">-3.34</span></small></td>
            <td align="right">
                <small><span class="neg">(-0.26%)</span></small></td>
        </tr>
        <tr>
            <td class="datatblhlt" align="left" nowrap colspan="1">
                <small><a href="/q?s=%5EN225">Nikkei 225</a></small></td>
            <td align="right">
                <small>10,735.03 </small>
            </td>
            <td align="right">
                <small><span class="neg">-144.11</span></small></td>
            <td align="right">
                <small><span class="neg">(-1.32%)</span></small></td>
        </tr>
        <tr>
            <td class="datatblhlt" align="left" nowrap colspan="1">
                <small><a href="/q?s=%5EHSI">Hang Seng</a></small></td>
            <td align="right">
                <small>21,748.60 </small>
            </td>
            <td align="right">
                <small><span class="neg">-578.04</span></small></td>
            <td align="right">
                <small><span class="neg">(-2.59%)</span></small></td>
        </tr>
        <tr>
            <td class="datatblhlt" align="left" nowrap colspan="1">
                <small><a href="/q?s=%5EDJI">Dow</a></small></td>
            <td align="right">
                <small>10,626.81 </small>
            </td>
            <td align="right">
                <small><span class="neg">-0.45</span></small></td>
            <td align="right">
                <small>(-0.00%)</small></td>
        </tr>
        <tr>
            <td class="datatblhlt" align="left" nowrap colspan="1">
                <small><a href="/q?s=%5EIXIC">Nasdaq</a></small></td>
            <td align="right">
                <small>2,279.51 </small>
            </td>
            <td align="right">
                <small><span class="neg">-2.80</span></small></td>
            <td align="right">
                <small><span class="neg">(-0.12%)</span></small></td>
        </tr>
        <tr>
            <td align="right" valign="top" colspan="4">
                <small><a href="/intlindices">More International Indices</a></small></td>
        </tr>
    </table>
</body>
</html>

我想去除这里面的 STI  2,888.38 -27.73 (-0.95%) 等等，标签<a>取这里的文字</a> 或者 <span>这里的文字</span>
总之最后的结果是：

STI 2,888.38  -27.73 (-0.95%)
SESDAQ N/A  0.00 (0.00%)
BT-SRI N/A  0.00 (0.00%)
KLSE Comp 1,289.51  -3.34 (-0.26%)
Nikkei 225 10,735.03  -144.11 (-1.32%)
Hang Seng 21,748.60  -578.04 (-2.59%)
Dow 10,626.81  -0.45 (-0.00%)
Nasdaq 2,279.51  -2.80 (-0.12%)
More International Indices

敢问高手如何正则，正则之神在吧？

afan · 发表于 2010-1-22 18:15:39

本帖最后由 afan 于 2010-1-22 18:24 编辑

纯体力活……

Dim $str = FileRead('a.txt'), $Error, $txt
$sR = StringRegExp($str, '(?s)<tr>.+?<a.+?>([^<]+)<.+?<.+?>([^<]+)</.+?smal.+?>([^<]+)</.+?(\([^\)]+?\))</', 3)
$Error = @error
$sR1 = StringRegExp($str, '\/intlindices.>([^<]+)</', 3)
$Error += @error
If $Error = 0 Then
        For $i = 0 To UBound($sR) - 1 Step 4
                $txt &= $sR[$i] & ' ' & $sR[$i + 1] & ' ' & $sR[$i + 2] & ' ' & $sR[$i + 3] & @CRLF
        Next
        MsgBox(0, 0, $txt & $sR1[0])
EndIf

rolaka · 发表于 2010-1-22 20:23:00

$file = StringRegExpReplace($file, "</*(?<=[^s]).+?>", "")
$file = StringRegExpReplace($file, "(?<=[\s])\s{2,}", "")
$file = StringReplace(StringMid($file, 2, StringLen($file)-2), @CR, "|")
$array = StringSplit($file, "|")

...去干净标签去干净空白字符然后掐头去尾换所有换行符为| 最后分割之... 绕圈子了...好维护点...

xrbenbeba · 发表于 2010-1-22 20:45:10

正则一般不敢出来献丑我路过

316428696 · 发表于 2010-1-22 22:26:56

回复 2# afan
又见正则之神奇...看来要好好学习下这个正则表达式了！

316428696 · 发表于 2010-1-22 22:28:28

...去干净标签去干净空白字符然后掐头去尾换所有换行符为| 最后分割之... 绕圈子了...好维护点...
rolaka 发表于 2010-1-22 20:23

很强，向高手学习！

		自动登录	找回密码
密码			加入