Regular Expression 二探(Regex)

先前從網路上查得範例直接套用失敗, 改了改之後還是能正常運行, 初探已然離去, 故以二探為名.

Public Function show_url(ByVal bstr As String) As String
Dim returnStr As String = String.Empty
Dim testregex As Regex = New Regex("[doc\W\d_]+")
returnStr = testregex.Replace(bstr, "").ToString
Return returnStr
End Function

上頭的範例是為了把字串中 1. 特殊符號 2. 英文字 3. 數字 都"去除"

而今天所用的反而很簡單而我卻花了跟初探找資料一樣的時間在研究, 果然天資不聰不穎啊(嘆)!

Dim monthRegex As Regex = New Regex("(0[\d]{1})|(1[0-2]{1})")
If Not monthRegex.IsMatch(tb_text) Then
                    result = False
                End If 上頭的範例是限定只能輸入兩碼的月份數字, 後頭用 IsMatch 去判斷.