[Visual Basic] vbscript 문자열 바이트 계산

머리말

  사용자 화면에서 특정 문자열을 입력받는 중 바이트 크기에 따라 입력을 제한하는 프로그램을 개발할 경우가 있다. 본 포스팅에서는 특정 컨트롤에 입력된 문자열의 바이트 크기를 계산하는 함수에 대해서 소개하도록 한다.

문자열 바이트 계산 방법

  Visual Basic 개발 환경에서 입력된 문자열의 바이트 크기를 계산하는 로직이다. vbscript 소스로 구성되어 있으며 한글의 바이트수가 2Byte임을 고려해서 작성되었다. 아래의 바이트 계산 방식은 문자를 하나씩 읽어 들여 ASCII 코드 값이 0보다 작으면 한글로 판단하고 바이트 수를 2 더해서 계산하는 방법이다.

Public Sub Wookoa()
    Dim lengthByte As Integer = 0

    For index As Integer = 1 MyControls.txtTitle.Text.Length

        'ASCII 값이 0보다 작으면 한글 
        If Asc(Mid(MyControls.txtTitle.Text, index, 1)) < 0 Then
            lengthByte = lengthByte + 2
        Else
            lengthByte = lengthByte + 1
        End If
    Next index
End Sub

꼬리말

  별도의 설명 없이 코드만으로도 충분히 이해가 가능한 소스이다. 자신의 상황에 알맞도록 적절히 변경해서 사용하면 좋을 것 같다. vbscript 소스에서 문자열의 바이트 크기를 계산하는 코드를 소개한 본 포스팅은 이로써 마무리를 짓도록 한다.