Question

高分悬赏编程高手帮助：用VB编程，怎么截取两个字符串之间的内容？

比如，有这么一个字符串“黑龙江 辽宁 建行 Label北城支行End 个人账户”

我怎么把“Label”和“End”之间的内容截取出来并且输入在一个Text文本框里（就是可以编辑文本的白框）

运行结果是“北城支行”

Answer 1

Private Sub Command1_Click()
Dim a As String
Dim s1 As String
Dim s2 As String
s1 = "Label"
s2 = "End"
a = "龙江 辽宁 建行 Label北城支行End 个人账户"
Dim s
s = InStr(1, a, s1) + Len(s1)
s = InStr(1, a, s2) - s
s = Mid(a, InStr(1, a, s1) + Len(s1), s)
MsgBox s
End Sub

Answer 2

Dim s as string , k1 as integer ,k2 as intger
s = “黑龙江 辽宁 建行 Label北城支行End 个人账户”

k1 = instr(s,"Label")
k2 = instr(s,"End")
Text1.text = mid(s,k1+5, k2-k1-5)