文字列内の単語を検索するExcel VBA関数でワイルドカード*を使用するにはどうすればよいですか？

Question

私は、文字列内の単語を検索する次の関数を持っています。例えば、donを検索すると、donが見つかり、それは私が望むものではありません。 "私はDonを知らないのですか？

私はまた、私はレース、レース、レースのような言葉を探す必要があることを知っています。私はrac *を検索して、そのようなバリアントをすべて検索するのではなく、そのようなバリアントをすべてカバーできるようにしたいと考えています。

これを行うにはコードを更新することはできますか？あるいは誰かがこの問題を解決できるコードを持っていますか？私は次のように行くと思い

Function InStrExact(Start As Long, SourceText As String, WordToFind As String, _ 
    Optional CaseSensitive As Boolean = False) 

    Dim x As Long, Str1 As String, Str2 As String, Pattern As String 

    If CaseSensitive Then 
    Str1 = SourceText 
    Str2 = WordToFind 
    Pattern = "[!A-Za-z0-9]" 
    Else 
    Str1 = UCase(SourceText) 
    Str2 = UCase(WordToFind) 
    Pattern = "[!A-Z0-9]" 
    End If 

    For x = Start To Len(Str1) - Len(Str2) + 1 
    If Mid(" " & Str1 & " ", x, Len(Str2) + 2) Like Pattern & Str2 & Pattern _ 
     And Not Mid(Str1, x) Like Str2 & "'[" & Mid(Pattern, 3) & "*" Then 
     InStrExact = x 
     Exit Function 
    End If 
    Next 
End Function 

Answer 1

簡単な修正は、元の文字列の残りのすべての文字に対して、検索文字列と一致するの末尾にワイルドカードを追加することです。これで

If Mid(" " & Str1 & " ", x, Len(Str2) + 2) Like Pattern & Str2 & Pattern _ 

：

If Mid(" " & Str1 & " ", x) Like Pattern & Str2 & Pattern & "*" _ 

これは単純にマッチする文字の数の制限を削除変更は、この行を交換することです。ワイルドカードが検索語の末尾に追加された場合は、末尾のパターンの前に来るので、任意の数の追加文字を許可します。検索語にワイルドカードがない場合、後続パターンは依然として検索語の直後に来る必要があり、したがって完全一致を必要とする。

検索している単語が最後の単語で、ワイルドカードを追加すると問題が発生することに注意してください。 Str2の長さは、関数が早すぎる検索を停止する原因となります。これで

For x = Start To Len(Str1) - Len(Str2) + 1 

：

For x = Start To Len(Str1) 

以前のチェックを停止する必要はありませんので、完全なソリューションは、この行を交換することです。

Answer 2

は次のとおりです。

Function InStrExact(startPos As Long, sourceText As String, wordToFind As String, _ 
        Optional CaseSensitive As Boolean = False) As Long 

    Dim x As Long 
    Dim actualSourceText As String, actualWordToFind As String, Pattern As String 
    Dim word As Variant 

    actualSourceText = Replace(Mid(sourceText, startPos), ",", "") 
    If CaseSensitive Then 
     Pattern = "[A-za-z]" 
    Else 
     actualSourceText = UCase(actualSourceText) 
     actualWordToFind = UCase(wordToFind) 
     Pattern = "[A-Z]" 
    End If 

    For Each word In Split(actualSourceText, " ") 
     If CStr(word) Like actualWordToFind & Pattern Or CStr(word) = actualWordToFind Then 
      InStrExact2 = x + 1 
      Exit Function 
     End If 
     x = x + Len(word) + 1 
    Next 
    InStrExact = -1 '<--| return -1 if no match 
End Function