2014-03-05 2 views

답변

1

코드 내에 VBScript.Regexp 개체의 인스턴스를 만들 수 있지만 더 쉬운 해결 방법은 기존 VBA 함수 IsNumeric을 사용하는 것입니다. 두 방법은 아래에 포함되어

Sub testNumeric() 

    'Use IsNumeric 
    MsgBox (IsNumeric("12345"))  'Returns true 
    MsgBox (IsNumeric("123a"))  'Returns false 

    'Alternatively, using Regexp Object 
    Dim regexp 
    Set regexp = CreateObject("VBScript.Regexp") 
    regexp.Pattern = "[0-9]+$" 
    MsgBox (regexp.test("12345")) 'Returns true 
    MsgBox (regexp.test("123a")) 'Returns false 

End Sub 

정규식 패턴이 엄격하게 숫자를 반환하지 않습니다뿐만 아니라 (즉, 테스트 "A123을"true를 반환) 번호로 끝나는 모든 문자열. 정규식 검사를 엄격하게 수행하려면 패턴은 ^[0-9]+$ 일 수 있습니다. 이것을 지적 해 주신 @mike에게 감사드립니다.

+0

Beautiful, Thanks! – ukie

관련 문제