VB 6.0 中instr函数应用

Question

在vb6。0中instr函数中不能用“？”符表示任意的函数啊。请问用哪个函数可以实现以下功能。例如，我想判断出字符串string1中有“$gprsc,0,v,abcd,2010.09.14,efghijk”一段字符串。但是其中数字和日期可能不同，我想使用下面的判断：
intflag= instr(string1,"$gprsc,?,?,abcd,????.??.??,efghijk")
可是每次intflag都是0。是不是在instr函数中，不能使用“？”啊？vb中还有别的函数能实现这种功能么？
like的话只能返回true和false。不能知道要找的字符串在string1中的位置啊？

Answer 1

我的思路是把like函数y与instr函数结合
Private Sub Command1_Click()
a = InStr(string1, "$gprsc")
If a <> 0 Then
If Mid(string1, a, 34) Like "$gprsc,#,?,abcd,####.##.##,efghijk" = True Then
MsgBox "找到指定字符，其在第" & a & "处" & Chr(13) & Chr(10) & "其为" & Mid(string1, a, 34)
Else
MsgBox "找不到"
End If
End If
End Sub

Answer 2

可以的。用 LIKE

Dim MyCheck
MyCheck = "aBBBa" Like "a*a" ' 返回 True。
MyCheck = "F" Like "[A-Z]" ' 返回 True。
MyCheck = "F" Like "[!A-Z]" ' 返回 False。
MyCheck = "a2a" Like "a#a" ' 返回 True。
MyCheck = "aM5b" Like "a[L-P]#[!c-e]" ' 返回 True。
MyCheck = "BAT123khg" Like "B?T*" ' 返回 True。
MyCheck = "CAT123khg" Like "B?T*" ' 返回 False

* 是通配符 , # 表示数字， ? 表示一个字符

Answer 3

正则表达式会吗? 会的话看这里

http://blog.csdn.net/prsniper/archive/2009/11/10/4794718.aspx