[导入]匹配正则表达式的函数BOOL型（修正一下）

2021-07-05 02:05:40

    Shared Function isright(ByRef s As String, ByRef right As String) As Boolean
        Dim Regex As New Regex(right, RegexOptions.IgnoreCase)
        Return Regex.IsMatch(s)
    End Function

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
原来我写的太垃圾了，修正一下
使用示例：