vb6提取特定文字内容

[腆颜]

各位大大请问一下，我有一个句子，如<N>我</N> <V>是</V> 一只 <N>鱼</N> 我想要提取到<N>我</N>当中的我字该怎么处理，同理想提取“是”字和“鱼”字？？？

[Carlven2012]

[赵4老师]

Private Sub Command1_Click()
Dim s As String
Dim i As Long
Dim j As Long
Dim L As Long
s = "<N>我</N> <V>是</V> 一只 <N>鱼</N>"
i = 1
j = 0
L = Len(s)
For i = 1 To L
    If i > 2 Then
        If Mid(s, i, 1) = ">" And Mid(s, i - 2, 1) = "<" And (Mid(s, i - 1, 1) = "N" Or Mid(s, i - 1, 1) = "V") Then j = i + 1
    End If
    If j > 0 And Mid(s, i, 2) = "</" Then Debug.Print Mid(s, j, i - j): j = 0
Next
End Sub

[vansoft]

这是XML串，直接用XML对象来分析。