用规则表达式怎么表示下列string

Question

<TD ALIGN=center>297</TD>
<TD ALIGN=center><font color=#FF0000>[+1]</TD><TD ALIGN=center>([^<]+)</TD>
<TD ALIGN=center>><font color=#FF0000>([^<]+)</TD>怎么才能用一个规则表达式描述出这两种情况
或者说查找下一个"</TD>",而不是仅仅是"<"

Answer 1

可以以行行读入，一行的处理方法如下
才两个符号,做个标记就成了
Private Sub Command4_Click()
  Dim i As Integer
  Dim str1 As String
  Dim temp As String
  Dim start_pos As Integer
  Dim isx As Integer
  isx = 1
  str1 = "<TD ALIGN=center>297</TD>"
  start_pos = 1
  For i = 1 To Len(str1)
    temp = Mid(str1, i, 1)
    If temp = "<" Then isx = 2: start_pos = i
    If isx = 2 And temp = ">" Then
          isx = 1
          Print Mid(str1, start_pos, i)
    End If
  Next i
End Sub

Answer 2

用instr函数，
功能是查找子串匹配的位置，如果没有就返回0

Answer 3

就是说用一条规则表达式 既能表达出
<TD ALIGN=center>297</TD>
也能表达出
<TD ALIGN=center><font color=#FF0000>[+1]</TD>

Answer 4

你想匹配什么? 是 <td></td> 中间的内容吗?\<td ALIGN=center\>((.|\n)+)\</td\>

Answer 5

不对，这样match的是最后一个</td>之前的所有内容。