在VB6中使用LIKE关键字

Question

我看到了一个示例代码，如下所示

If numb Like "[0-9]" Then
End If

此处numb是一个包含一个字符的字符串。

VB6中的LIKE关键字是什么？有没有可用的文件？

Answer 1

Like Operator (Visual Basic for Applications Reference)

  

用于比较两个字符串。

     

语法：

result = string Like pattern

Answer 2

拥有＆＃34;喜欢＆＃34;比较字符串＆＃34; ABC＆＃34;，你必须使用*表示＆＃34; 0或任意数量的＆＃34;。

例如：＆＃34; ABC＆＃34;喜欢＆＃34; [A-Z]＆＃34;结果为FALSE因为＆＃34; ABC＆＃34;不是一个1字符长的字符串， 但＆＃34; ABC＆＃34;喜欢＆＃34; * [A-Z]＆＃34;返回TRUE，因为＆＃34; ABC＆＃34;在A-Z范围内有很多字符

干杯......豪尔赫

Answer 3

<强>示例：

"G??" Like "God"

要查找必须包含3个字符的句子，请以大写 G

开头

"Prophet Muhammad (PBUH)" Like "Prophet*"

查找任何长度的句子，但以先知

开头

"*Islam*" Like "The only logical religion is Islam but they are adding rumors to it"

查找包含 Islam

的任何长度的句子

"##days" Like "40days"

要查找必须包含6个字符且必须以2个数字开头且必须以天数结束的句子

"Only[01234][34]DaysDon'tDoSinThenYou'llSeeTheReality" Like "Only40DaysDon'tDoSinThenYou'llSeeTheReality"

[] 内的所有内容均代表： OR

0 OR 1 OR 2 OR 3 OR 4

3 OR 4

如果您在确切的位置输入其中一个。它返回true

在以下示例中，我必须使用该模式，否则输入时会出错：

Private Sub Text2_Change()

With Text2
    If .Text Like "*/*/####" Then
        .ToolTipText = DATE_TOOLTIP_ADDED(.Text)
    End If
End With

End Sub