可以以行行读入,一行的处理方法如下
才两个符号,做个标记就成了
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