정규식 이용하여 문자열 패턴 가져오기


' 정규식 이용하여 문자열 패턴 가져오기 
pattern0 = "[^가-?]"               '한글만
pattern1 = "[^-0-9 ]"               '숫자만
pattern2 = "[^-a-zA-Z]"             '영어만
pattern3 = "[^-가-?a-zA-Z0-9/ ]"   '숫자와 영어 한글만 
pattern4 = "<[^>]*>"                '태그만
pattern5 = "[^-a-zA-Z0-9_/ ]"       '영어 숫자만 (-_ 포함)

Function Word_check(str,patrn)
    Dim regEx, match, matches
    SET regEx = New RegExp
    regEx.Pattern = patrn               ' 패턴을 설정합니다.
    regEx.IgnoreCase = True             ' 대/소문자를 구분하지 않도록 합니다.
    regEx.Global = True                 ' 전체 문자열을 검색하도록 설정합니다.
    SET Matches = regEx.Execute(str)

    If 0 < Matches.count Then
        Word_check = false
    Else
        Word_check = true
    End if
End Function

Dim pattern1_True  '숫자만
pattern1_True = Word_check(ID, pattern1)

if pattern1_True="True" then
  '로직
end if

' 정규식 이용하여 문자열 패턴 가져오기

pattern0 = "[^가-?]" '한글만

pattern1 = "[^-0-9 ]" '숫자만

pattern2 = "[^-a-zA-Z]" '영어만

pattern3 = "[^-가-?a-zA-Z0-9/ ]" '숫자와 영어 한글만

pattern4 = "<[^>]*>" '태그만

pattern5 = "[^-a-zA-Z0-9_/ ]" '영어 숫자만 (-_ 포함)

Function Word_check(str,patrn)

Dim regEx, match, matches

SET regEx = New RegExp

regEx.Pattern = patrn ' 패턴을 설정합니다.

regEx.IgnoreCase = True ' 대/소문자를 구분하지 않도록 합니다.

regEx.Global = True ' 전체 문자열을 검색하도록 설정합니다.

SET Matches = regEx.Execute(str)

If 0 < Matches.count Then

Word_check = false

Else

Word_check = true

End if

End Function

Dim pattern1_True '숫자만

pattern1_True = Word_check(ID, pattern1)

if pattern1_True="True" then

'로직

end if