vb 两个字符串之间的字符串

Private Function findStr(str1 As String, str2 As String, str3 As String)
Dim intStart, intEnd As Integer
If InStr(1, str1, str2) = 0 Or InStr(1, str1, str3) = 0 Then Exit Function
intStart = InStr(1, str1, str2) + Len(str2)
intEnd = InStr(1, str1, str3)
findStr = Mid(str1, intStart, intEnd - intStart)
End Function
Private Sub Form_Load()
MsgBox findStr("abcd123def", "abcd2", "ef")
End Sub

变量a,b,c类型是string
要在a中找b和c之间的字符串
你要找的字符串d就是
d=Mid(a, InStr(a, b) + Len(b), InStr(a, c) - InStr(a, b) - Len(b))

dim s1 as string 前面的字符“abc1”
dim s2 as string 后面的字符 “ef”
dim s3 as string 字符串“abc123def”
dim s4 as string 结果
s4 = Mid(s3, InStr(s3, s1) + Len(s1)) 把前面的去掉s4=“23def”
s4 = Mid(s4, 1, InStr(s4, s2) + 1) 把后面的去掉s4="23d"

InStr(3,"abcdefghijkl","cde")

M