VBA抢答题：求Like匹配模式

爱疯

问题：如何用Like判断字符串中是否含有三个星号(*)？

Sub test()
    Dim msg As String
   
    msg = InputBox("请任意输入一个字符串：")
    If msg Like "呵呵" Then
        MsgBox "字符串中含有三个星号"
    Else
        MsgBox "字符串中没有三个星号"
    End If
End Sub



说明：
回复时，只需将"呵呵"换作你的答案。


奖励正确答案：
4楼

xiachenglin

vba,好遥远!~~~~~~~~~~~

hwc2ycy

1. like "[*][*][*]"

复制代码

Dj_soo

1. "*[*]*[*]*[*]*"

复制代码

redsheep

同4楼~~~~~~~~~~~~~~~~~

爱疯

Dj_soo 发表于 2013-3-22 14:09

DJ真是路见金币一声吼，揣进口袋咱就走{:051:}
下次还是短暂隐藏下。好不容易想的，一下就给干掉了{:081:}



这是刚才碰到的，如果不是查到资料，自己真不知要想多久。再分享点：如果找中括号，也是拿中括号括起来。

If msg Like "*[[]*" Then
If msg Like "*[]]*" Then

Dj_soo

爱疯 发表于 2013-3-22 14:22
DJ真是路见金币一声吼，揣进口袋咱就走
下次还是短暂隐藏下。好不容易想的，一下就给干掉了{:0 ...

{:101:}有金币来的快,拿走金币闪的快~

爱疯

hwc2ycy 发表于 2013-3-22 14:06

咦，烟花还在上面噢，我回帖时没发现。

你这样只能匹配***
相当于 msg="***"

爱疯

又忘了写清说明了：这题，只奖励第一个正确者。

{:301:}

hwc2ycy

爱疯 发表于 2013-3-22 14:33
又忘了写清说明了：这题，只奖励第一个正确者。

你不光没写清楚，你还没搞仅作者可见，{:3412:}