通过VB取:关键字

Function GetTxt(byval strTxt as string) as string
dim str_01 as string
str_01 = mid(strTxt,2,9)
GetTxt = str_01
end function

直接调用 getTxt "中华人民共和国,是我们祖国;"

Private Sub Command1_Click()
Dim s As String
s = "<div>中华人民共和国,<div>是我们</div>我们我们</div>祖国;"
For i = 1 To Len(s)
On Error GoTo out:
If Mid(s, i, 6) = "人民共和国," Then
On Error GoTo out1
For j = i To Len(s)
If Mid(s, j, 3) = "是我们" Then Text1 = Mid(s, i, 6) & Mid(s, j, 3)
Next j
out1:
End If
Next i
out:
End Sub

用mid(a,n,m)函数，在字符串a中，从第n个字开始，取长度为m的子串，如：

textbox1.text=mid("中华人民共和国,是我们祖国;",3,9)

text1.text=mid("中华人民共和国,是我们祖国;",3,9) 这样可以截取还方便！
mid函数就是截取指定字符串的！