使用通配符搜索

Question

在下面的代码中，shLook是一个带有文本项目列表的表单，我希望通过迭代rowSt所示的行来搜索工作表shSource中的字符串。

LPosition = InStr(1, shSource.Cells(rowSt, 18), shLook.Cells(i, 1).Value) 

这种运作良好，但是如果在shLook任何文本包含通配符，它​​不再是能够找到相应shSource字符串。

是否有另一种方法来实现这一点，以便我可以将通配符放入文本项列表中？

Answer 1

如果你只是想知道字符串是否存在，你可以使用：

Dim found As Boolean 
Dim searchString As String 
searchString = shLook.Cells(i, 1).Value 
If Left(searchString, 1) <> "?" Then searchString = "*" & searchString 
If Right(searchString, 1) <> "?" Then searchString = searchString & "*" 
found = shSource.Cells(rowSt, 18).Value Like searchString 

然后，如果您想知道位置的字符串开始的地方，你需要做之前剥离通配符出在Instr：

If Found Then 
    LPosition = InStr(shSource.Cells(rowSt, 18), Replace(Replace(searchString, "?", ""), "*", "")) 
End If 

注：不能简单地做第二部分而不必做的第一部分，因为你会在搜索“ABC？”内“XYZABCIJK”的情况下，获得虚假的比赛。