영어 숫자 한글 분리하기 입니다

[Grrrr.....]

드뎌 이정도 완성했습니다. 피닉스79님 덕분입니다.
우선 한글의 초중종성의 DATA값은 확정이고요 저번에꺼는 그냥 1,2,3,...한겁니다.
아직 숫자 ,영문대문자 , 영문소문자는 그냥 아무숫자나 넣어 봤습니다.(Case문에서
ex) 가1Aa --> 000231 3300 0042 0680 이렇게 분리가됩니다.

한글은 2바이트로 나눌예정입니다.
000231 앞에 000 이 없어지지않네요 ㅡ,.ㅡ 하였튼
문자를 출력하려면 항상 시작비트는 1 입니다. 그래서 아래와 같이

ㄱ -> 00010
ㅏ -> 00011
종성없음 -> 00001

1000 | 1000 | 0110 | 0001

8 8 6 1 H

각 값은 바이트에 넣고 자르거나 해서 5bit , 6bit로 나누는것좀 부탁합니다

연휴동안 생각해봤는데 생각처럼 안돼네요....
그럼 읽어주셔서 감사합니다





Option Explicit
'전역변수지정

Private Const iUnicode As Integer = &HAC00 '가

Private ChoSungTable As Variant

Private JungSungTable As Variant

Private JongSungTable As Variant

Private Sub cmdclear_Click()

txtin = "" 'txtin 클리어
txtcon = "" 'txtcon 클리어
txtout = "" 'txtout 클리어
txtlen = ""
txtlenin = ""
txtin.SetFocus 'txtin 포커스마침

End Sub

Private Sub cmdcon_Click()



Call Hancon(txtin) 'Hancon 함수호출


txtcon.SetFocus
txtlenin.Text = Len(txtin.Text) '글자수
txtlen.Text = Len(txtcon.Text) '글자수

End Sub
Private Sub Hancon(ByVal sHanGeul As String)

Dim ichosum As Variant

Dim ijunsum As Variant

Dim ijonsum As Variant

Dim isumsum As Variant

Dim k As Variant 'txtout 표시값 저장


Dim NumChoSung As Integer

Dim NumJungSung As Integer

Dim NumJongSung As Integer

Dim Code As Integer '키값비교

Dim i As Integer 'for 사용


Dim scho As String

Dim sjun As String

Dim sjon As String

Dim ssum As String '한글분리 변수

Dim icho As Integer

Dim ijun As Integer

Dim ijon As Integer

Dim inum As Integer '숫자

Dim ieng As Integer '영문소문자

Dim ieeng As Integer '영문대문자




ChoSungTable = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", _
"ㅂ", "ㅃ", "ㅅ", "ㅆ", _
"ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ")
JungSungTable = Array("ㅏ", "ㅐ", "ㅑ", "ㅒ", "ㅓ", "ㅔ", "ㅕ", _
"ㅖ", "ㅗ", "ㅘ", "ㅙ", "ㅚ", "ㅛ", "ㅜ", _
"ㅝ", "ㅞ", "ㅟ", "ㅠ", "ㅡ", "ㅢ", "ㅣ")
JongSungTable = Array("", "ㄱ", "ㄲ", "ㄳ", "ㄴ", "ㄵ", "ㄶ", _
"ㄷ", "ㄹ", "ㄺ", "ㄻ", "ㄼ", "ㄽ", "ㄾ", _
"ㄿ", "ㅀ", "ㅁ", "ㅂ", "ㅄ", "ㅅ", "ㅆ", _
"ㅇ", "ㅈ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ")




txtcon.Text = ""

For i = 1 To Len(sHanGeul)

Code = AscW(Mid(sHanGeul, i, 1))

If Code >= 48 And Code <= 57 Then

Select Case Code '숫자
Case 48
inum = 32
Case 49
inum = 33
Case 50
inum = 34
Case 51
inum = 35
Case 52
inum = 36
Case 53
inum = 37
Case 54
inum = 38
Case 55
inum = 39
Case 56
inum = 40
Case 57
inum = 41
End Select


ElseIf Code >= 65 And Code <= 90 Then

Select Case Code '영문대문자
Case 65
ieeng = 42
Case 66
ieeng = 43
Case 67
ieeng = 44
Case 68
ieeng = 45
Case 69
ieeng = 46
Case 70
ieeng = 47
Case 71
ieeng = 48
Case 72
ieeng = 49
Case 73
ieeng = 50
Case 74
ieeng = 51
Case 75
ieeng = 52
Case 76
ieeng = 53
Case 77
ieeng = 54
Case 78
ieeng = 55
Case 79
ieeng = 56
Case 80
ieeng = 57
Case 81
ieeng = 58
Case 82
ieeng = 59
Case 83
ieeng = 60
Case 84
ieeng = 61
Case 85
ieeng = 62
Case 86
ieeng = 63
Case 87
ieeng = 64
Case 88
ieeng = 65
Case 89
ieeng = 66
Case 90
ieeng = 67
End Select

ElseIf Code >= 97 And Code <= 122 Then

Select Case Code '영문소문자
Case 97
ieng = 68
Case 98
ieng = 69
Case 999
ieng = 70
Case 100
ieng = 71
Case 101
ieng = 72
Case 102
ieng = 73
Case 103
ieng = 74
Case 104
ieng = 75
Case 105
ieng = 76
Case 106
ieng = 77
Case 107
ieng = 78
Case 108
ieng = 79
Case 109
ieng = 80
Case 110
ieng = 81
Case 111
ieng = 82
Case 112
ieng = 83
Case 113
ieng = 84
Case 114
ieng = 85
Case 115
ieng = 86
Case 116
ieng = 87
Case 117
ieng = 88
Case 118
ieng = 89
Case 119
ieng = 90
Case 120
ieng = 91
Case 121
ieng = 92
Case 122
ieng = 93
End Select


Else

'먼저 "가"문자의 시작 지점을 얻습니다..
Code = Code - iUnicode

If Code < 0 Then '완성된 문자인지 살핍니다.

MsgBox "다시쳐라응 한글도 못치냐?"

txtin.SetFocus

End If


'초성을 분리합니다.
NumChoSung = Int(Code / (21 * 28))
'전체 코드에서 초성을 떼어내고 중성과 종성을 남깁니다.
Code = Code Mod (21 * 28)
'중성을 분리합니다.
NumJungSung = Int(Code / 28)
'중성을 떼어내고 종성을 남깁니다.
NumJongSung = Code Mod 28








scho = ChoSungTable(NumChoSung)


Select Case NumChoSung

Case 0
icho = 2

Case 1
icho = 3

Case 2
icho = 4

Case 3
icho = 5

Case 4
icho = 6

Case 5
icho = 7

Case 6
icho = 8

Case 7
icho = 9

Case 8
icho = 10

Case 9
icho = 11

Case 10
icho = 12

Case 11
icho = 13

Case 12
icho = 14

Case 13
icho = 15

Case 14
icho = 16

Case 15
icho = 17

Case 16
icho = 18

Case 17
icho = 19

Case 18
icho = 20



End Select

ichosum = ichosum & icho

sjun = JungSungTable(NumJungSung)

Select Case NumJungSung

Case 0
ijun = 3

Case 1
ijun = 4

Case 2
ijun = 5

Case 3
ijun = 6

Case 4
ijun = 7

Case 5
ijun = 10

Case 6
ijun = 11

Case 7
ijun = 12

Case 8
ijun = 13

Case 9
ijun = 14

Case 10
ijun = 15

Case 11
ijun = 18

Case 12
ijun = 19

Case 13
ijun = 20

Case 14
ijun = 21

Case 15
ijun = 22

Case 16
ijun = 23

Case 17
ijun = 26

Case 18
ijun = 27

Case 19
ijun = 28

Case 20
ijun = 29


End Select

ijunsum = ijunsum & ijun


sjon = JongSungTable(NumJongSung)

Select Case NumJongSung

Case 0
ijon = 1

Case 1
ijon = 2

Case 2
ijon = 3

Case 3
ijon = 4

Case 4
ijon = 5

Case 5
ijon = 6

Case 6
ijon = 7

Case 7
ijon = 8

Case 8
ijon = 9

Case 9
ijon = 10

Case 10
ijon = 11

Case 11
ijon = 12

Case 12
ijon = 13

Case 13
ijon = 14

Case 14
ijon = 15

Case 15
ijon = 16

Case 16
ijon = 17

Case 17
ijon = 19

Case 18
ijon = 20

Case 19
ijon = 21

Case 20
ijon = 22

Case 21
ijon = 23

Case 22
ijon = 24

Case 23
ijon = 25

Case 24
ijon = 26

Case 25
ijon = 27

Case 26
ijon = 28

Case 27
ijon = 29


End Select


ijonsum = ijonsum & ijon

isumsum = ichosum & ijunsum & ijonsum '데이타 합산

End If


k = k & inum & ieng & ieeng & isumsum '숫자+영소문자+영대문자+한글 DATA 저장


txtout.Text = k ' txtout 출력

inum = 0

ieng = 0 '각각의 값 0으로

ieeng = 0

ssum = ssum & scho & sjun & sjon ' 텍스트에 초중종성 나누기 표시

txtcon.Text = ssum

ichosum = ""
ijunsum = ""
ijonsum = "" 'Clear
isumsum = ""
ssum = ""



Next i



End Sub



Private Sub Form_Load()

Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 '폼화면 중앙에 위치

End Sub

[Grrrr.....]

파일은 자료실에 올려놓겠습니다.

[피닉스79]

갑자기 교육받고 퇴근시간 직접에 돌아와서 보고하고 제 자리에 앉았다는..ㅠㅠ(아직 퇴근못하고 있습니다..ㅠㅠ)

[Grrrr.....]

혹시 아직도 회사에 있으신가요? 설마.... 저도 학교에서 지금 막왔습니다 회사다니랴 학교다니랴 참 바뿌네요...^^

[피닉스79]

학교는 안다녀염..^^* 회사에서 보낸 교육...ㅠㅠ