请问用哪个函数可以实现以下功能。例如，我想判断出字符串string1中有

Question

在vb6。0中instr函数中不能用“？”符表示任意的函数啊。

“$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 ThenIf Mid(string1, a, 34) Like "$gprsc,#,?,abcd,####.##.##,efghijk" = True ThenMsgBox "找到指定字符，其在第" & a & "处" & Chr(13) & Chr(10) & "其为" & Mid(string1, a, 34)ElseMsgBox "找不到"End IfEnd IfEnd Sub

Answer 2

可以的。用 LIKEDim MyCheckMyCheck = "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* 是通配符 , # 表示数字， ? 表示一个字符&nbsp;