티스토리 뷰

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


위의 코드는 정규식을 이용해서 문자열이 패턴만으로 이뤄졌는지 확인하는 함수 입니다.


사용 방법은

response.write Word_check("문자열","패턴")

몇가지 패턴을 적어보자면

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

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

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

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

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

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



Word_check(id,pattern5)..

true나 false가 반환


출처 : http://blog.naver.com/hyanghee77/90016820574