本帖最后由 afan 于 2010-6-4 19:27 编辑
按位置捕获:$Str = _
'<td height="35" align="center">64541562</td>' & @CRLF & _
' <td height="35" align="center">张三</td> ' & @CRLF & _
' <td colspan="3" align="left"> </td>' & @CRLF & _
'</td>'
$sR = StringRegExp($str, 'center">(.+)</td>\s+<td colspan\=', 3)
If Not @Error Then Msgbox(0, $sR[0], $str)
或者捕获含中文的:$Str = _
'<td height="35" align="center">64541562</td>' & @CRLF & _
' <td height="35" align="center">张三</td> ' & @CRLF & _
' <td colspan="3" align="left"> </td>' & @CRLF & _
'</td>'
$sR = StringRegExp($str, 'center">(.*[^\x00-\xff].*)</td>', 3)
If Not @Error Then Msgbox(0, $sR[0], $str)
|