原创：高级查找替换函数，支持通配符，你能看懂吗!

软件爱好者

VBA中“like”查询的使用，好东西

jyong

版式太乱了，看的很累，希望楼主好好整理一下。

枫桥夜泊lwb

谢谢楼主分享

元逸

我学习一下再发表看法。

jpz04

谢谢楼主，我正如饥似渴，甘露啊

merlin_lin

整理后代码
Function FindStr(strObj As String, strSou As String, strLen As Integer) As String
Dim i As Integer
For i = 1 To Len(strSou)
     FindStr = Mid(strSou, i, strLen)
         If FindStr Like strObj Then
           Exit Function
         End If
Next i
End Function

Sub 测试()
Dim s As String
s = "124ewgterh124ewgterh 2003-02-03 wdqwfefwewg"
MsgBox FindStr("####-##-##", s, 10)
End Sub

merlin_lin

Function FindStrPro(strObj As String, strSou As String, strLen As Integer) As String
Dim s(3) As String
Dim l(3) As Integer
s(3) = "*" & strObj & "*"
    If strSou Like s(3) Then
        Do
            s(0) = strSou
            l(0) = Len(s(0))
            l(1) = Int(l(0) * 0.5 + 0.5)
            l(2) = l(0) - l(1)
               If l(2) > strLen Then
                     s(1) = Left(s(0), l(1))
                     s(2) = Right(s(0), l(2))
                          If s(1) Like s(3) Then
                               strSou = s(1)
                          ElseIf s(2) Like s(3) Then
                               strSou = s(2)
                          Else: strSou = Mid(s(0), l(1) - strLen + 1, strLen * 2 - 2)
                            Exit Do
                          End If
                Else
                             Exit Do
                End If
         Loop
         FindStrPro = FindStr(strObj, strSou, strLen)
         Else: FindStrPro = ""
         End If
End Function

Private Function FindStrPos(strObj As String, ByVal strSou As String, strLen As Integer) As Integer
  Dim s1 As String
  Dim s2 As String
  s1 = strSou
  s2 = FindStrPro(strObj, strSou, strLen)
   If s2 <> "" Then
     FindStrPos = InStr(s1, s2)
   Else
       FindStrPos = 0
   End If
End Function