Changes between Version 2 and Version 3 of 한영타변환기
- Timestamp:
- May 17, 2005, 10:40:26 PM (20 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
한영타변환기
v2 v3 1 {{{#!table align=right 2 ||04/01/21|| 3 }}} 4 = Lab <030> - 한/영타 변환기 = 5 6 한글로 타자된 것을 영어로 바꿀 것인지, 영어로 타자된 글을 한글로 바꿀 것인지를 선택한다.[[BR]] 7 그리고 글을 입력하면 바로 변환된다. 8 9 용도와 응용은 여러가지.. 1 = YT Lab <030> - 한/영타 변환기 = 2 생각하고 쓴 날짜 : 2004/01/21[[BR]] 3 상태 : 완성, 유효 4 ---- 5 6 제목이 나타내듯 바로 '한/영타 변환기' 입니다.[[BR]] 7 가끔씩 볼 수 있는 'dodls rngka;' 같은 한글을 영어로 친 것이나, '소둇.ㅜㄷㅅ' 같은 영어를 한글로 친 것을 쉽게 원래의 글로 바꿔 줍니다.[[BR]] 8 물론 그 반대 방향으로의 변환도 가능합니다.. 9 10 사용 : 한글로 친 것을 영어로 바꿀 것인지, 영어로 친 것을 한글로 바꿀 것인지 선택한다. 글을 입력하면 바로 변환된다. 11 12 ||입력 문장 :||[[html(<textarea id="txtSource" rows="3" cols="50"></textarea>)]]|| 13 |||| [[html(<input type="radio" id="optEtoH" name="Mode" checked><label for="optEtoH">영타 → 한글</label>)]] [[html(<input type="radio" id="optHtoE" name="Mode"><label for="optHtoE">한타 → 영어</label>)]] || 14 ||변환 문장 :||[[html(<textarea id="txtConv" rows="3" cols="50"></textarea>)]]|| 10 15 {{{#!html 11 <input type="text" id="txtSource" size=50><br>12 <input type="radio" id="optEtoH" name="Mode" checked><label for="optEtoH">영타 → 한글</label>13 <input type="radio" id="optHtoE" name="Mode"><label for="optHtoE">한타 → 영어</label><br>14 <input type="text" id="txtConv" size=50>15 16 16 <script language="VBScript"> 17 17 <!-- … … 40 40 Function EngTypeToHan(Source) 41 41 Dim ConvText, tChr 42 Dim Cho, Jung, Jong, tVal '초성, 중성, 종성, (임시용) 초성42 Dim Cho, Jung, Jong, tVal '초성, 중성, 종성, (임시용) 초성 43 43 Dim i, p 44 44 … … 47 47 tChr = Mid(Source, i, 1) 48 48 p = InStr(EngDat, tChr) 49 If p = 0 Then 49 If p = 0 Then '영자판이 아님 50 50 If Cho Then 51 If Jung Then '초성+중성+(종성)51 If Jung Then '초성+중성+(종성) 52 52 ConvText = ConvText + MakeHan(Cho - 1, Jung - 1, Jong) 53 53 Else '초성만 … … 55 55 End If 56 56 Else 57 If Jung Then '중성만57 If Jung Then '중성만 58 58 ConvText = ConvText + Mid(JungDat, Jung, 1) 59 59 Else '복자음 … … 69 69 Jung = 0 70 70 Cho = InStr(ChoDat, Mid(HanDat, p, 1)) 71 Else 71 Else '종성이다 72 72 If Jong = 0 Then '종성 입력 중 73 73 Jong = InStr(JongDat, Mid(HanDat, p, 1)) … … 98 98 ElseIf Jong = 17 And p = 10 Then 'ㅄ 99 99 Jong = 18 100 Else 100 Else '종성 입력 끝, 초성으로 101 101 ConvText = ConvText + MakeHan(Cho - 1, Jung - 1, Jong) 102 102 Cho = InStr(ChoDat, Mid(HanDat, p, 1)) … … 105 105 End If 106 106 Else '초성 또는 (단/복)자음이다 107 If Cho = 0 Then '초성 입력 시작108 If Jong Then '복자음 후 초성107 If Cho = 0 Then '초성 입력 시작 108 If Jong Then '복자음 후 초성 109 109 ConvText = ConvText + Mid(JongDat, Jong, 1) 110 110 Jong = 0 … … 139 139 End If 140 140 Else '중성 141 If Jong Then 141 If Jong Then '(앞글자 종성), 초성+중성 142 142 Select Case Jong '복자음 다시 분해 143 143 Case 3: Jong = 1: tVal = 10 'ㄱ, ㅅ … … 152 152 Case 15: Jong = 8: tVal = 19 'ㄹ, ㅎ 153 153 Case 18: Jong = 17: tVal = 10 'ㅂ, ㅅ 154 Case Else 154 Case Else '복자음 아님 155 155 tVal = InStr(ChoDat, Mid(JongDat, Jong, 1)) 156 156 Jong = 0 157 157 End Select 158 If Cho Then 158 If Cho Then '앞글자가 초성+중성+(종성) 159 159 ConvText = ConvText + MakeHan(Cho - 1, Jung - 1, Jong) 160 160 Else '복자음만 있음 … … 180 180 Jung = 20 181 181 Else '조합 안되는 모음 입력 182 If Cho Then 182 If Cho Then '초성+중성 후 중성 183 183 ConvText = ConvText + MakeHan(Cho - 1, Jung - 1, Jong) 184 184 Cho = 0 … … 224 224 Jung = InStr(JungDat, tChr) 225 225 Jong = InStr(JongDat, tChr) 226 226 227 227 If &HAC00 <= tAsc And tAsc <= &HD7A3 Then 228 228 tAsc = tAsc - &HAC00 … … 240 240 tVal(1) = 0: tVal(2) = 0: tVal(4) = 0 241 241 End If 242 242 243 243 If tVal(1) Then ConvText = ConvText + Mid(EngDat, tVal(1), 1) 244 244 If tVal(2) Then … … 288 288 [[AddComment]] 289 289 ---- 290 [wiki:Lab분류] 290 [wiki:Lab분류] / [wiki:쓸모분류]