InStrまたはワイルドカードで問題が発生していますか？

Question

これはなぜ動作しないのかわかりません。これははるかに大きなサブルーチンの一部ですが、この問題をInStr関数でのワイルドカードの使用に限定しました。

できるだけ多くの情報をInStrとワイルドカードで検索しようとしましたが、これまでのところはになるはずです。しかし、それはしません。

Dim String1 As String 
    Dim String2 As String 
    Dim TestString As String 
    Dim Location As Integer 

    String1 = "Hello" 
    String2 = "Goodbye" 
    TestString = "Hello and Goodbye" 
    Location = InStr(1, TestString, (String1 & "*" & String2), vbTextCompare) 
    If Location >= 1 then 
     'Do Something 
    End If 

OK、私は人々が示唆されているものに基づいていくつかのことを試してみた、そして今、私はこの時点でのよ...

Dim SourceString As String 
    Dim TestString As String 
    Dim TempArray() As String 

    SourceString = "Hello and Goodbye" 
    TestString = "hello * goodbye" 

    TempArray = Split(TestString, "*") 
    If SourceString Like _ 
      Chr(42) & TempArray(0) & Chr(42) & TempArray(1) & Chr(42) Then 
     Found = True 
    End If 

私は、ののDebug.Printを行ってきましたTempArrayの各セクションには空白が含まれているので、分けることが分かります。

今は何が欠けていますか？ :(

Answer 1

InStr functionはので、あなたのワイルドカードアスタリスクはリテラルのアスタリスク文字（例えばChr(42)）として扱われているパターンマッチングを使用していません。

はおそらくと同様にパターンマッチングへの切り替えは、より良いブール評価になるだろう。あるいは

'method 1 
If TestString Like Chr(42) & String1 & Chr(42) And _ 
    TestString Like Chr(42) & String2 & Chr(42) Then 
    'Do Something 
End If 
'method 2 
If TestString Like Chr(42) & String1 & Chr(42) & String2 & Chr(42) Then 
    'Do Something 
End If 

、文字列1と文字列2の正しい照合順序を保証するために、InStr関数機能の進行を使う。

'method 1 
If CBool(InStr(1, TestString, String1, vbTextCompare)) And _ 
    InStr(1, TestString, String2, vbTextCompare) > InStr(1, TestString, String1, vbTextCompare) Then 
    'Do Something 
End If 
'method 2 
dim p as long 
If CBool(InStr(1, TestString, String1, vbTextCompare)) Then 
    p = InStr(1, TestString, String1, vbTextCompare) + Len(String1) 
    If CBool(InStr(p, TestString, String2, vbTextCompare)) Then 
     'Do Something 
    End If 
End If 

Answer 2

InStr(1, TestString, (String1 & "*" & String2), vbTextCompare)の暗黙の論理である：

TestStringコンポーネント

Sub Demo() 
    Dim String1 As String 
    Dim String2 As String 
    Dim TestString As String 
    Dim Location As Integer 
    Dim i As Long, j As Long 

    String1 = "Hello" 
    String2 = "Goodbye" 
    TestString = "Hello and Goodbye" 
    i = InStr(1, TestString, String1, vbTextCompare) 
    If i > 0 Then 
     j = InStr(i + Len(String1), TestString, String2, vbTextCompare) 
     If j > 0 Then 
      'Do Something 
     End If 
    End If 
End Sub 

に試験を打破、 Instrはワイルドカードをサポートしていないので、 String2

続いて、0個以上の文字が続くString1が含ま

iは、String1の位置を与え、jは、の位置を与えるこれらはString2はStringのストリングであるかString2がString1