2 回答

TA貢獻(xiàn)1862條經(jīng)驗(yàn) 獲得超6個(gè)贊
我的思路是把like函數(shù)y與instr函數(shù)結(jié)合
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

TA貢獻(xiàn)1839條經(jīng)驗(yàn) 獲得超15個(gè)贊
可以的。用 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
* 是通配符 , # 表示數(shù)字, ? 表示一個(gè)字符
- 2 回答
- 0 關(guān)注
- 124 瀏覽
添加回答
舉報(bào)