Visual Basic 바이트 계산 로직이다. 한글의 바이트수가 2Byte임을 고려해서 작성된 소스다.

 

아래의 바이트 계산 방식은 문자를 하나씩 읽어들여 ASCII 코드 값이 0보다 작으면 한글로 판단하고 바이트 수를 2 더해서 계산하는 방법이다.

 

 

1
2
3
4
5
6
7
8
9
10
11
12
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

 

 

  1. 비밀댓글입니다

Private comment