kain6的部落格

天外飛來一筆

---

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'kinomelma@yahoo.com.tw
'取出夾心文字
'2012/10/11
Dim q_str As String = "<h>a123</h><h>b123</h>"

Dim q_start As String = "<h>" '要找的起始字
Dim q_end As String = "</h>" '要找的末端字

Dim st_pos As Integer
Dim end_pos As Integer
Dim pos As Integer = 1 '目前巡航位置

Do
st_pos = InStr(pos, q_str, q_start)
end_pos = InStr(st_pos, q_str, q_end)
MsgBox(Mid(q_str, st_pos, end_pos - st_pos ))
If end_pos = -1 Then
Exit Do
End If
pos = end_pos
Loop

End Sub
End Class