指定字符开头和结束的查找

时　间:2004-11-23 00:00:00
作　者:黄海   ID：32  城市：苏州
摘　要:指定字符开头和结束的查找
正　文:

'使用方法:
'findstr("我来添加文章","来","加")
'=来添加

'-----------------------------
Public Function findStr(ByVal str As String, ByVal str1 As String, ByVal str2 As String)
    Dim a, b As Integer

    If InStr(1, str, str1, 1) <> 0 Then
        a = InStr(1, str, str1, 1)
        If InStr(a, str, str2, 1) <> 0 Then
            b = InStr(a, str, str2, 1)
            findStr = Mid(str, a, b - a + 1)
        End If
    End If

End Function