vb6.0/vba [vb6.0/vba] 한글을 자음 모음으로 나누기 + 합치기
페이지 정보
본문
Function fnName(inName As String) As String
Dim 초성 As Variant, 중성 As Variant, 종성 As Variant
Dim vr() As Variant
Dim i As Integer, j As Integer, n As Long, k1 As Integer, k2 As Integer, k3 As Integer
초성 = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ", "ㅃ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ")
중성 = Array("ㅏ", "ㅐ", "ㅑ", "ㅒ", "ㅓ", "ㅔ", "ㅕ", "ㅖ", "ㅗ", "ㅘ", "ㅙ", "ㅚ", "ㅛ", "ㅜ", "ㅝ", "ㅞ", "ㅟ", "ㅠ", "ㅡ", "ㅢ", "ㅣ")
종성 = Array("", "ㄱ", "ㄲ", "ㄳ", "ㄴ", "ㄵ", "ㄶ", "ㄷ", "ㄹ", "ㄺ", "ㄻ", "ㄼ", "ㄽ", "ㄾ", "ㄿ", "ㅀ", "ㅁ", "ㅂ", "ㅄ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ")
For i = 1 To Len(inName)
If Mid(inName, i, 1) Like "[가-힇]" Then
n = AscW(Mid(inName, i, 1)) + 21504
k1 = Int(n / (21 * 28))
k2 = Int((n Mod 21 * 28) / 28)
k3 = n Mod 28
j = j + 1
ReDim Preserve vr(1 To j)
vr(j) = 초성(k1) & 중성(k2) & 종성(k3)
End If
Next i
'분리된 자,모음에 들어간 띄어쓰기 없애며 Join
fnName = Replace(Join(vr), " ", "")
End Function
'// 실제 타이핑에 사용 가능하도록 수정
Function fnName(inName As String) As String
Dim 초성 As Variant, 중성 As Variant, 종성 As Variant
Dim vr() As Variant
Dim i As Integer, j As Integer, n As Long, k1 As Integer, k2 As Integer, k3 As Integer
초성 = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ", "ㅃ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ")
중성 = Array("ㅏ", "ㅐ", "ㅑ", "ㅒ", "ㅓ", "ㅔ", "ㅕ", "ㅖ", "ㅗ", "ㅗㅏ", "ㅗㅐ", "ㅗㅣ", "ㅛ", "ㅜ", "ㅜㅓ", "ㅜㅔ", "ㅜㅣ", "ㅠ", "ㅡ", "ㅡㅣ", "ㅣ")
종성 = Array("", "ㄱ", "ㄲ", "ㄱㅅ", "ㄴ", "ㄴㅈ", "ㄴㅎ", "ㄷ", "ㄹ", "ㄹㄱ", "ㄹㅁ", "ㄹㅂ", "ㄹㅅ", "ㄹㅌ", "ㄹㅍ", "ㄹㅎ", "ㅁ", "ㅂ", "ㅂㅅ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ")
For i = 1 To Len(inName)
If Mid(inName, i, 1) Like "[가-힇]" Then
n = AscW(Mid(inName, i, 1)) + 21504
k1 = Int(n / (21 * 28))
k2 = Int((n Mod 21 * 28) / 28)
k3 = n Mod 28
j = j + 1
ReDim Preserve vr(1 To j)
vr(j) = 초성(k1) & 중성(k2) & 종성(k3)
End If
Next i
'분리된 자,모음에 들어간 띄어쓰기 없애며 Join
fnName = Replace(Join(vr), " ", "")
End Function
'// 사용하는 소스
Function Jamo(T As String)
Dim ChoSung As Variant, JOONGSUNG As Variant, JongSung As Variant
Dim i As Integer, K As Long
Dim T1 As String, T2 As String, T3 As String
ChoSung = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ", "ㅃ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ")
JOONGSUNG = Array("ㅏ", "ㅐ", "ㅑ", "ㅒ", "ㅓ", "ㅔ", "ㅕ", "ㅖ", "ㅗ", "ㅗㅏ", "ㅗㅐ", "ㅗㅣ", "ㅛ", "ㅜ", "ㅜㅓ", "ㅜㅔ", "ㅜㅣ", "ㅠ", "ㅡ", "ㅡㅣ", "ㅣ")
JongSung = Array(Empty, "ㄱ", "ㄲ", "ㄱㅅ", "ㄴ", "ㄴㅈ", "ㄴㅎ", "ㄷ", "ㄹ", "ㄹㄱ", "ㄹㅁ", "ㄹㅂ", "ㄹㅅ", "ㄹㅌ", "ㄹㅍ", "ㄹㅎ", "ㅁ", "ㅂ", "ㅂㅅ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ")
For i = 1 To Len(T)
If Mid(T, i, 1) Like "[가-힣]" Then
K = AscW(Mid(T, i, 1))
K = K - &HAC00
T1 = Int(K / (21 * 28))
T2 = Int((K Mod 21 * 28) / 28)
T3 = K Mod 28
Jamo = Jamo & ChoSung(T1) & JOONGSUNG(T2) & JongSung(T3)
Else
Jamo = Jamo + Mid(T, i, 1)
End If
Next
End Function
'// 영타로 바로출력
Function SplitEnglish(T As String)
Dim ChoSung As Variant, JoongSung As Variant, JongSung As Variant
Dim vR()
Dim i As Integer, j As Integer, n As Long, k1 As Integer, k2 As Integer, k3 As Integer
ChoSung = Array("r", "R", "s", "e", "E", "f", "a", "q", "Q", "t", "T", "o", "w", "W", "c", "z", "x", "v", "g")
JoongSung = Array("k", "o", "i", "il", "j", "p", "u", "ul", "h", "hk", "ho", "hl", "y", "n", "nj", "np", "nl", "b", "m", "ml", "l")
JongSung = Array("", "r", "R", "rt", "s", "sw", "sg", "e", "f", "fr", "fa", "fq", "ft", "fx", "fv", "fg", "a", "q", "qt", "t", "T", "d", "w", "c", "z", "x", "v", "g")
For i = 1 To Len(T)
If Mid(T, i, 1) Like "[가-힣]" Then
K = AscW(Mid(T, i, 1))
K = K - &HAC00
T1 = Int(K / (21 * 28))
T2 = Int((K Mod 21 * 28) / 28)
T3 = K Mod 28
SplitEnglish = SplitEnglish & ChoSung(T1) & JoongSung(T2) & JongSung(T3)
Else
SplitEnglish = SplitEnglish + Mid(T, i, 1)
End If
Next
End Function
'// 초성, 중성, 종성 Join
Function PlusKorean(inName As String) As String
Dim 초성, 중성, 종성
Dim vr() As String
Dim worD As String
Dim i%, j%
Dim k1%, k2%, k3%
Dim wkF As WorksheetFunction
Set wkF = WorksheetFunction
초성 = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ", "ㅃ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ")
중성 = Array("ㅏ", "ㅐ", "ㅑ", "ㅒ", "ㅓ", "ㅔ", "ㅕ", "ㅖ", "ㅗ", "ㅘ", "ㅙ", "ㅚ", "ㅛ", "ㅜ", "ㅝ", "ㅞ", "ㅟ", "ㅠ", "ㅡ", "ㅢ", "ㅣ")
종성 = Array("", "ㄱ", "ㄲ", "ㄳ", "ㄴ", "ㄵ", "ㄶ", "ㄷ", "ㄹ", "ㄺ", "ㄻ", "ㄼ", "ㄽ", "ㄾ", "ㄿ", "ㅀ", "ㅁ", "ㅂ", "ㅄ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ")
For i = 1 To Len(inName)
worD = Mid(inName, i, 1)
'초성, 종성 구분(뒤에 오는 자,모의 종류에 따라서 구분)
If worD Like "[ㄱ-ㅎ]" Then
'자음 다음에 모음이 오면 초성
If Mid(inName, i + 1, 1) Like "[ㅏ-ㅣ]" Then
k1 = wkF.Match(worD, 초성) - 1
'자음 다음에 자음이 오거나 글자 길이와 같으면 종성
ElseIf Mid(inName, i + 1, 1) Like "[ㄱ-ㅎ]" Or i = Len(inName) Then
k3 = wkF.Match(worD, 종성) - 1
'종성이 끝나면 배열에 값 삽입
ReDim Preserve vr(j)
vr(j) = ChrW(-21504 + (28 * 21 * k1) + (28 * k2) + k3)
j = j + 1
End If
'모음은 중성
ElseIf worD Like "[ㅏ-ㅣ]" Then
k2 = wkF.Match(worD, 중성) - 1
'모음의 두칸 뒤가 또 모음이거나 글자의 마지막이면 종성이 없는 것으로 보고 배열에 값 삽입
If Mid(inName, i + 2, 1) Like "[ㅏ-ㅣ]" Or i = Len(inName) Then
k3 = 0 '모음으로 끝나는 글자이므로 종성 초기화
ReDim Preserve vr(j)
vr(j) = ChrW(-21504 + (28 * 21 * k1) + (28 * k2) + k3)
j = j + 1
End If
End If
Next i
PlusKorean = Replace(Join(vr), " ", "")
End Function
'// 자음, 모음 합치기
Private Const HAN_FIRST As Double = 44032#
Public Function HanJoin(ByVal Cho As String, ByVal Jung As String, Optional ByVal Jong As String = "") As String
Dim ChoSeong As Integer
Dim JungSeong As Integer
Dim JongSeong As Integer
Dim i As Integer
Dim Ch As Variant, Ju As Variant, Jo As Variant
Ch = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ", "ㅃ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ")
Ju = Array("ㅏ", "ㅐ", "ㅑ", "ㅐ", "ㅓ", "ㅔ", "ㅕ", "ㅖ", "ㅗ", "ㅘ", "ㅙ", "ㅚ", "ㅛ", "ㅜ", "ㅟ", "ㅞ", "ㅟ", "ㅠ", "ㅡ", "ㅢ", "ㅣ")
Jo = Array("", "ㄱ", "ㄲ", "ㄳ", "ㄴ", "ㄵ", "ㄶ", "ㄷ", "ㄹ", "ㄺ", "ㄻ", "ㄼ", "ㄽ", "ㄾ", "ㄿ", "ㅀ", "ㅁ", "ㅂ", "ㅄ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ")
ChoSeong = -1
For i = 0 To 18
If Cho = Ch(i) Then ChoSeong = i: Exit For
Next i
If ChoSeong < 0 Then Exit Function
JungSeong = -1
For i = 0 To 20
If Jung = Ju(i) Then JungSeong = i: Exit For
Next i
If JungSeong < 0 Then Exit Function
JongSeong = -1
For i = 0 To 27
If Jong = Jo(i) Then JongSeong = i: Exit For
Next i
If JongSeong < 0 Then Exit Function
HanJoin = ChrW((ChoSeong * 21 + JungSeong) * 28 + JongSeong + HAN_FIRST)
End Function
- 이전글[vb6.0/vba] 숫자를 한글 또는 한자로 변환하는 법 21.01.30
- 다음글[vb6.0/vba] MSXML2.XmlHttp와 MSXML2.DOMDocument 를 이용한 www.kimsonline.co.kr 크롤링 21.01.30
댓글목록
등록된 댓글이 없습니다.