VB 一个很难截取的字符串！

a="aaa,567/xyz在,98/爱爱爱,456789/..,.../String,Integer/……"

已知: b="爱爱爱"

如何截取出 "456789"

Private Sub Command1_Click()
Dim a, b
a = "aaa,567/xyz在,98/爱爱爱,456789/..,.../String,Integer/……"
b = "爱爱爱"
MsgBox m1(a, b)
End Sub
Function m1(a, b)
Dim c, d
c = InStr(1, a, b)
If c > 0 Then
d = InStr(c, a, "/")
m1 = Mid(a, c, d - c)
End If
End Function

截取两遍就OK 了

第一次 以'/'为分隔符截取字符 保存含有b字符串的string

第二次 以','为分隔符截取字符 去掉含有b字符串的string

然后去一下前后空格 就是了~!

O(∩_∩)O~

Private Sub Form_Load() Dim a As String a = "aaa,567/xyz在,98/爱爱爱,456789/..,.../String,Integer/……" For i = 1 To Len(a) If Mid(a, i, 4) = "爱爱爱," Then Text1.Text = Mid(a, i + 4, 6) End If Next End Sub