[Visual Basic] 비주얼베이직 스크립트 (VBScript) 타입 확인하기 (vartype 함수)

함수 vartype(변수명) 으로 해당 변수가 어떤 Type인지 확인할 수 있다.

사용법

msgbox(vartype(변수명))

 

이 함수는 숫자를 반환하며, 아래와 같다.

• 0 = vbEmpty이 - 빈 나타냅니다 (uninitialized)
• 1 = vbNull은 - 널 표시 없음 (no valid data)
• 2 = vbInteger는 - 정수(Int)를 나타냄 (소수점 없는)
• 3 = vbLong은 - 실수(Long) 타입 숫자
• 4 = vbSingle - 단일 정밀도 부동 소수점 숫자를 나타냅니다
• 5 = vbDouble은 - 배정 밀도 부동 소수점 숫자를 나타냅니다
• 6 = vbCurrency은 - 통화를 나타냅니다. ($13.2 같은 화폐단위)
• 7 = vbDate은 - 날짜를 나타냅니다. ("2012-01-01" 같은...)
• 8 = vbString - 문자열을 나타냅니다. ("hello world" 같은 String 문자열)
• 9 = vbObject는 - 자동화 개체를 나타낸다 (object 타입 임.)
• 10 = vbError은 - 에러를 나타낸다.
• 11 = vbBoolean는 - 부울를 나타냄. (True 나 False를 나타냄.)
• 12 = vbVariant는 - 변형 나타냄 (used only with arrays of Variants)
• 13 = vbDataObject은 - 데이터 액세스 개체를 나타낸다
• 17 = vbByte는 - 바이트를 나타냄
• 8192 = vbArray - 배열을 나타낸다
• 8204 = vbArray of Arrays - 배열 내 배열을 나타낸다

 

해당 타입을 Msgbox로 출력해보면 숫자로 나오니 확인.

 

만약 매번 숫자로 타입확인하기 싫다. 문자로 확인하고 싶다 하는 경우는 아래와 같이 Function을 만든다.

Function GetVarTypeDescription(varExpression)
    Select Case VarType(varExpression)
        Case 0
            GetVarTypeDescription = "Empty"
        Case 1
            GetVarTypeDescription = "Null"
        Case 2
            GetVarTypeDescription = "Integer"
        Case 3
            GetVarTypeDescription = "Long"
        Case 4
            GetVarTypeDescription = "Single"
        Case 5
            GetVarTypeDescription = "Double"
        Case 6
            GetVarTypeDescription = "Currency"
        Case 7
            GetVarTypeDescription = "Date"
        Case 8
            GetVarTypeDescription = "String"
        Case 9
            GetVarTypeDescription = "Object"
        Case 10
            GetVarTypeDescription = "Error"
        Case 11
            GetVarTypeDescription = "Boolean"
        Case 12
            GetVarTypeDescription = "Variant"
        Case 8204
            GetVarTypeDescription = "Array of Arrays (Jagged Array)"
        Case Else
            GetVarTypeDescription = "Unknown Type"
    End Select
End Function

 

반응형

 

그리고 이 함수를 이용해서 해당 변수의 타입이 무엇인지 쉽게 확인할 수 있다.

함수를 사용하는 방법은 아래.

a = ""
b = 123
c = 32.12
d = "hello world"
e = true
x = Array(Array(1,2,3), Array(4,5,6))

MsgBox(GetVarTypeDescription(a))
MsgBox(GetVarTypeDescription(b))
MsgBox(GetVarTypeDescription(c))
MsgBox(GetVarTypeDescription(d))
MsgBox(GetVarTypeDescription(e))
MsgBox(GetVarTypeDescription(x))

Function GetVarTypeDescription(varExpression)
    Select Case VarType(varExpression)
        Case 0
            GetVarTypeDescription = "Empty"
        Case 1
            GetVarTypeDescription = "Null"
        Case 2
            GetVarTypeDescription = "Integer"
        Case 3
            GetVarTypeDescription = "Long"
        Case 4
            GetVarTypeDescription = "Single"
        Case 5
            GetVarTypeDescription = "Double"
        Case 6
            GetVarTypeDescription = "Currency"
        Case 7
            GetVarTypeDescription = "Date"
        Case 8
            GetVarTypeDescription = "String"
        Case 9
            GetVarTypeDescription = "Object"
        Case 10
            GetVarTypeDescription = "Error"
        Case 11
            GetVarTypeDescription = "Boolean"
        Case 12
            GetVarTypeDescription = "Variant"
        Case 8204
            GetVarTypeDescription = "Array of Arrays (Jagged Array)"
        Case Else
            GetVarTypeDescription = "Unknown Type"
    End Select
End Function

 

이제 결과를 보면 해당 변수의 타입이 무엇인지 msgbox로 출력된다.