문자열을 16진수처리





   Dim linebuffer As String


   Dim sHex As String


   Dim i As Integer


   


   sHex = “”


   linebuffer = “Hello”


   For i = 1 To Len(linebuffer)


        sHex = sHex & Hex(Asc(Mid(linebuffer, i, 1)))


   Next i


   


   Debug.Print sHex

댓글

답글 남기기

이메일 주소를 발행하지 않을 것입니다. 필수 항목은 *(으)로 표시합니다