'使用方法: '----------------------------- If InStr(1, str, str1, 1) <> 0 Then End Function
'findstr("我来添加文章","来","加")
'=来添加
Public Function findStr(ByVal str As String, ByVal str1 As String, ByVal str2 As String)
Dim a, b As Integer
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