|
|
|
|
 |
|
채영이 / 2003-07-14 / 오후 5:01:53 / 203.255.3.190
조회수 : 214
|
| [질문] [퍼온글] 한글 자모 분리 |
<%
Dim chosung(18)
Dim jungsung(20)
Dim jongsung(27)
chosung(0)="ㄱ"
chosung(1)="ㄲ"
chosung(2)="ㄴ"
chosung(3)="ㄷ"
chosung(4)="ㄸ"
chosung(5)="ㄹ"
chosung(6)="ㅁ"
chosung(7)="ㅂ"
chosung(8)="ㅃ"
chosung(9)="ㅅ"
chosung(10)="ㅆ"
chosung(11)="ㅇ"
chosung(12)="ㅈ"
chosung(13)="ㅉ"
chosung(14)="ㅊ"
chosung(15)="ㅋ"
chosung(16)="ㅌ"
chosung(17)="ㅍ"
chosung(18)="ㅎ"
jungsung(0)="ㅏ"
jungsung(1)="ㅐ"
jungsung(2)="ㅑ"
jungsung(3)="ㅒ"
jungsung(4)="ㅓ"
jungsung(5)="ㅔ"
jungsung(6)="ㅕ"
jungsung(7)="ㅖ"
jungsung(8)="ㅗ"
jungsung(9)="ㅘ"
jungsung(10)="ㅙ"
jungsung(11)="ㅚ"
jungsung(12)="ㅛ"
jungsung(13)="ㅜ"
jungsung(14)="ㅝ"
jungsung(15)="ㅞ"
jungsung(16)="ㅟ"
jungsung(17)="ㅠ"
jungsung(18)="ㅡ"
jungsung(19)="ㅢ"
jungsung(20)="ㅣ"
jongsung(0)=" "
jongsung(1)="ㄱ"
jongsung(2)="ㄲ"
jongsung(3)="ㄳ"
jongsung(4)="ㄴ"
jongsung(5)="ㄵ"
jongsung(6)="ㄶ"
jongsung(7)="ㄷ"
jongsung(8)="ㄹ"
jongsung(9)="ㄺ"
jongsung(10)="ㄻ"
jongsung(11)="ㄼ"
jongsung(12)="ㄽ"
jongsung(13)="ㄾ"
jongsung(14)="ㄿ"
jongsung(15)="ㅀ"
jongsung(16)="ㅁ"
jongsung(17)="ㅂ"
jongsung(18)="ㅄ"
jongsung(19)="ㅅ"
jongsung(20)="ㅆ"
jongsung(21)="ㅇ"
jongsung(22)="ㅈ"
jongsung(23)="ㅊ"
jongsung(24)="ㅋ"
jongsung(25)="ㅌ"
jongsung(26)="ㅍ"
jongsung(27)="ㅎ"
'code : 분리할 한글문자
c=code-ascw("가")
a=Int(c / (21*28))
c=c mod (21*28)
b=Int(c / 28)
c=c mod 28
response.write chosung(a)
response.write " "
response.write jungsung(b)
response.write " "
response.write jongsung(c)
%>
|
|
|
|