scriptshifter/legacy/Functions_KoreanHancha.au3

Func MARC8Hancha() ; FKR142
   $Hancha = ClipGet()
   Local $HanchaSet[273][2] = [['塜','塚'],['暦','曆'],['査','查'],['査','查'],['歴','歷'],['豈','豈'],['更','更'],['車','車'],['賈','賈'],['滑','滑'],['串','串'],['句','句'],['龜','龜'],['龜','龜'],['契','契'],['金','金'],['喇','喇'],['奈','奈'],['懶','懶'],['癩','癩'],['羅','羅'],['蘿','蘿'],['螺','螺'],['裸','裸'],['邏','邏'],['樂','樂'],['洛','洛'],['烙','烙'],['珞','珞'],['落','落'],['酪','酪'],['駱','駱'],['亂','亂'],['卵','卵'],['欄','欄'],['爛','爛'],['蘭','蘭'],['鸞','鸞'],['嵐','嵐'],['濫','濫'],['藍','藍'],['襤','襤'],['拉','拉'],['臘','臘'],['蠟','蠟'],['廊','廊'],['朗','朗'],['浪','浪'],['狼','狼'],['郎','郎'],['來','來'],['冷','冷'],['勞','勞'],['擄','擄'],['櫓','櫓'],['爐','爐'],['盧','盧'],['老','老'],['蘆','蘆'],['虜','虜'],['路','路'],['露','露'],['魯','魯'],['鷺','鷺'],['碌','碌'],['祿','祿'],['綠','綠'],['菉','菉'],['錄','錄'],['鹿','鹿'],['論','論'],['壟','壟'],['弄','弄'],['籠','籠'],['聾','聾'],['牢','牢'],['磊','磊'],['賂','賂'],['雷','雷'],['壘','壘'],['屢','屢'],['樓','樓'],['淚','淚'],['漏','漏'],['累','累'],['縷','縷'],['陋','陋'],['勒','勒'],['肋','肋'],['凜','凜'],['凌','凌'],['稜','稜'],['綾','綾'],['菱','菱'],['陵','陵'],['讀','讀'],['拏','拏'],['樂','樂'],['諾','諾'],['丹','丹'],['寧','寧'],['怒','怒'],['率','率'],['異','異'],['北','北'],['磻','磻'],['便','便'],['復','復'],['不','不'],['泌','泌'],['數','數'],['索','索'],['參','參'],['塞','塞'],['省','省'],['葉','葉'],['說','說'],['殺','殺'],['辰','辰'],['沈','沈'],['拾','拾'],['若','若'],['掠','掠'],['略','略'],['亮','亮'],['兩','兩'],['凉','涼'],['梁','梁'],['糧','糧'],['良','良'],['諒','諒'],['量','量'],['勵','勵'],['呂','呂'],['女','女'],['廬','廬'],['旅','旅'],['濾','濾'],['礪','礪'],['閭','閭'],['驪','驪'],['麗','麗'],['黎','黎'],['力','力'],['曆','曆'],['歷','歷'],['轢','轢'],['年','年'],['憐','憐'],['戀','戀'],['撚','撚'],['漣','漣'],['煉','煉'],['璉','璉'],['秊','年'],['練','練'],['聯','聯'],['輦','輦'],['蓮','蓮'],['連','連'],['鍊','鍊'],['列','列'],['劣','劣'],['咽','咽'],['烈','烈'],['裂','裂'],['說','說'],['廉','廉'],['念','念'],['捻','捻'],['殮','殮'],['簾','簾'],['獵','獵'],['令','令'],['囹','囹'],['寧','寧'],['嶺','嶺'],['怜','怜'],['玲','玲'],['瑩','瑩'],['羚','羚'],['聆','聆'],['鈴','鈴'],['零','零'],['靈','靈'],['領','領'],['例','例'],['禮','禮'],['醴','醴'],['隸','隷'],['惡','惡'],['了','了'],['僚','僚'],['寮','寮'],['尿','尿'],['料','料'],['樂','樂'],['燎','燎'],['療','療'],['蓼','蓼'],['遼','遼'],['龍','龍'],['暈','暈'],['阮','阮'],['劉','劉'],['杻','杻'],['柳','柳'],['流','流'],['溜','溜'],['琉','琉'],['留','留'],['硫','硫'],['紐','紐'],['類','類'],['六','六'],['戮','戮'],['陸','陸'],['倫','倫'],['崙','崙'],['淪','淪'],['輪','輪'],['律','律'],['慄','慄'],['栗','栗'],['率','率'],['隆','隆'],['利','利'],['吏','吏'],['履','履'],['易','易'],['李','李'],['梨','梨'],['泥','泥'],['理','理'],['痢','痢'],['罹','罹'],['裏','裏'],['裡','裡'],['里','裏'],['離','離'],['匿','匿'],['溺','溺'],['吝','吝'],['燐','燐'],['璘','璘'],['藺','藺'],['隣','隣'],['鱗','鱗'],['麟','麟'],['林','林'],['淋','淋'],['臨','臨'],['立','立'],['笠','笠'],['粒','粒'],['狀','狀'],['炙','炙'],['識','識'],['什','什'],['茶','茶'],['刺','刺'],['切','切'],['度','度'],['拓','拓'],['糖','糖'],['宅','宅'],['洞','洞'],['暴','暴'],['輻','輻'],['行','行'],['降','降'],['見','見'],['廓','廓']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hancha = StringRegExpReplace($Hancha, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hancha)
EndFunc

Func Hancha2Hangul()
   $Hangul = " " & ClipGet()
   $Hangul = StringReplace($Hangul,@LF,@LF&" ")

  ;FKR143
   Local $HanchaEx[108][2] = [['減殺','감쇄'],['邯贊','감찬'],['更生','갱생'],['醵出','갹출'],['車馬','거마'],['困難','곤란'],['滑稽','골계'],['句讀','구두'],['國樂','국악'],['龜鑑','귀감'],['龜鑑','귀감'],['龜鑑','귀감'],['龜裂','균열'],['龜裂','균열'],['龜裂','균열'],['龜裂','균열'],['龜裂','균열'],['龜裂','균열'],['金泉','김천'],['金浦','김포'],['金海','김해'],['內人','나인'],['奴隷','노예'],['鹿皮','녹비'],['論難','논란'],['腦殺','뇌쇄'],['陀羅尼','다라니'],['簞食','단사'],['唐樂','당악'],['大怒','대로'],['宅內','댁내'],['兜率','도솔'],['敦寧','돈령'],['汨羅','멱라'],['木瓜','모과'],['牧丹','모란'],['武寧','무령'],['武寧王','무령왕'],['波羅蜜','바라밀'],['般若','반야'],['白川','배천'],['菩提','보리'],['布施','보시'],['本宅','본댁'],['不實','부실'],['分泌','분비'],['頻數','빈삭'],['砂糖','사탕'],['索莫','삭막'],['數數','삭삭'],['尙父','상보'],['相殺','상쇄'],['省略','생략'],['單于','선우'],['星宿','성수'],['聲樂','성악'],['率先','솔선'],['殺到','쇄도'],['受諾','수락'],['媤宅','시댁'],['十王','시왕'],['十月','시월'],['樂劇','악극'],['樂器','악기'],['謁見','알현'],['閼氏','연지'],['禮樂','예악'],['五六月','오뉴월'],['嗚咽','오열'],['惡寒','오한'],['樂山','요산'],['要塞','요새'],['樂水','요수'],['遊說','유세'],['六月','유월'],['音樂','음악'],['議論','의논'],['宜寧','의령'],['吏讀','이두'],['自暴','자포'],['載寧','재령'],['憎惡','증오'],['智異山','지리산'],['初八日','초파일'],['拓跋','탁발'],['拓本','탁본'],['度支','탁지'],['洞察','통찰'],['敗北','패배'],['肺炎','폐렴'],['閉塞','폐색'],['暴惡','포악'],['輻輳','폭주'],['標識','표지'],['風樂','풍악'],['漢拏','한라'],['陜川','합천'],['行列','항렬'],['降伏','항복'],['降倭','항왜'],['降將','항장'],['鄉樂','향악'],['許諾','허락'],['嫌惡','혐오'],['好惡','호오'],['會寧','회령'],['橫暴','횡포'],['喜怒','희로']]
   For $i = 0 To Ubound($HanchaEx, 1) - 1
	  $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaEx[$i][0] & "\E",$HanchaEx[$i][1])
   Next
   ClipPut($Hangul)

  ; FKR144
   Local $HanchaSet[246][2] = [[' 蘿',' 나'],[' 臝',' 나'],[' 蠃',' 나'],[' 樂',' 낙'],[' 落',' 낙'],[' 絡',' 낙'],[' 洛',' 낙'],[' 駱',' 낙'],[' 烙',' 낙'],[' 酪',' 낙'],[' 珞',' 낙'],[' 雒',' 낙'],[' 亂',' 난'],[' 卵',' 난'],[' 欄',' 난'],[' 蘭',' 난'],[' 爛',' 난'],[' 瀾',' 난'],[' 鸞',' 난'],[' 欒',' 난'],[' 闌',' 난'],[' 瓓',' 난'],[' 剌',' 날'],[' 辣',' 날'],[' 捋',' 날'],[' 覽',' 남'],[' 濫',' 남'],[' 藍',' 남'],[' 籃',' 남'],[' 嵐',' 남'],[' 襤',' 남'],[' 擥',' 남'],[' 攬',' 남'],[' 纜',' 남'],[' 欖',' 남'],[' 拉',' 납'],[' 蠟',' 납'],[' 臘',' 납'],[' 朗',' 낭'],[' 浪',' 낭'],[' 廊',' 낭'],[' 郞',' 낭'],[' 狼',' 낭'],[' 螂',' 낭'],[' 琅',' 낭'],[' 瑯',' 낭'],[' 稂',' 낭'],[' 來',' 내'],[' 萊',' 내'],[' 崍',' 내'],[' 徠',' 내'],[' 勑',' 내'],[' 倈',' 내'],[' 騋',' 내'],[' 冷',' 냉'],[' 略',' 약'],[' 掠',' 약'],[' 良',' 양'],[' 量',' 양'],[' 兩',' 양'],[' 糧',' 양'],[' 涼',' 양'],[' 梁',' 양'],[' 諒',' 양'],[' 輛',' 양'],[' 樑',' 양'],[' 亮',' 양'],[' 倆',' 양'],[' 粱',' 양'],[' 粮',' 양'],[' 凉',' 양'],[' 旅',' 여'],[' 麗',' 여'],[' 慮',' 여'],[' 勵',' 여'],[' 廬',' 여'],[' 礪',' 여'],[' 呂',' 여'],[' 驪',' 여'],[' 侶',' 여'],[' 戾',' 여'],[' 濾',' 여'],[' 閭',' 여'],[' 黎',' 여'],[' 藜',' 여'],[' 驢',' 여'],[' 儷',' 여'],[' 櫚',' 여'],[' 蠣',' 여'],[' 犁',' 여'],[' 膂',' 여'],[' 厲',' 여'],[' 蠡',' 여'],[' 藘',' 여'],[' 力',' 역'],[' 歷',' 역'],[' 曆',' 역'],[' 瀝',' 역'],[' 礫',' 역'],[' 轢',' 역'],[' 靂',' 역'],[' 櫟',' 역'],[' 鬲',' 역'],[' 酈',' 역'],[' 練',' 연'],[' 連',' 연'],[' 鍊',' 연'],[' 蓮',' 연'],[' 聯',' 연'],[' 戀',' 연'],[' 憐',' 연'],[' 煉',' 연'],[' 漣',' 연'],[' 輦',' 연'],[' 攣',' 연'],[' 璉',' 연'],[' 孌',' 연'],[' 冽',' 열'],[' 洌',' 열'],[' 栵',' 열'],[' 廉',' 염'],[' 濂',' 염'],[' 斂',' 염'],[' 殮',' 염'],[' 簾',' 염'],[' 蘞',' 염'],[' 獵',' 엽'],[' 領',' 영'],[' 令',' 영'],[' 靈',' 영'],[' 嶺',' 영'],[' 零',' 영'],[' 玲',' 영'],[' 齡',' 영'],[' 囹',' 영'],[' 逞',' 영'],[' 鈴',' 영'],[' 聆',' 영'],[' 伶',' 영'],[' 怜',' 영'],[' 羚',' 영'],[' 岺',' 영'],[' 笭',' 영'],[' 翎',' 영'],[' 蛉',' 영'],[' 苓',' 영'],[' 姈',' 영'],[' 昤',' 영'],[' 例',' 예'],[' 禮',' 예'],[' 隷',' 예'],[' 醴',' 예'],[' 澧',' 예'],[' 鱧',' 예'],[' 老',' 노'],[' 路',' 노'],[' 勞',' 노'],[' 露',' 노'],[' 爐',' 노'],[' 盧',' 노'],[' 鷺',' 노'],[' 蘆',' 노'],[' 魯',' 노'],[' 虜',' 노'],[' 擄',' 노'],[' 撈',' 노'],[' 瀘',' 노'],[' 潞',' 노'],[' 櫓',' 노'],[' 輅',' 노'],[' 鹵',' 노'],[' 纑',' 노'],[' 簵',' 노'],[' 壚',' 노'],[' 綠',' 녹'],[' 錄',' 녹'],[' 祿',' 녹'],[' 鹿',' 녹'],[' 麓',' 녹'],[' 碌',' 녹'],[' 菉',' 녹'],[' 彔',' 녹'],[' 論',' 논'],[' 弄',' 농'],[' 籠',' 농'],[' 壟',' 농'],[' 聾',' 농'],[' 瓏',' 농'],[' 瀧',' 농'],[' 朧',' 농'],[' 隴',' 농'],[' 賴',' 뇌'],[' 雷',' 뇌'],[' 賂',' 뇌'],[' 磊',' 뇌'],[' 牢',' 뇌'],[' 儡',' 뇌'],[' 瀨',' 뇌'],[' 賚',' 뇌'],[' 耒',' 뇌'],[' 罍',' 뇌'],[' 料',' 요'],[' 僚',' 요'],[' 了',' 요'],[' 療',' 요'],[' 遼',' 요'],[' 燎',' 요'],[' 瞭',' 요'],[' 聊',' 요'],[' 寥',' 요'],[' 寮',' 요'],[' 蓼',' 요'],[' 廖',' 요'],[' 敹',' 요'],[' 繚',' 요'],[' 潦',' 요'],[' 龍',' 용'],[' 漏',' 누'],[' 樓',' 누'],[' 累',' 누'],[' 淚',' 누'],[' 屢',' 누'],[' 壘',' 누'],[' 陋',' 누'],[' 褸',' 누'],[' 蔞',' 누'],[' 瘻',' 누'],[' 縷',' 누'],[' 鏤',' 누'],[' 婁',' 누'],[' 摟',' 누'],[' 流',' 유'],[' 類',' 유'],[' 留',' 유'],[' 柳',' 유'],[' 硫',' 유'],[' 謬',' 유'],[' 劉',' 유'],[' 琉',' 유'],[' 溜',' 유'],[' 瘤',' 유'],[' 旒',' 유'],[' 榴',' 유'],[' 瀏',' 유'],[' 瑠',' 유'],[' 纍',' 유']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
	  $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)
;~    Local $HanchaSet[103][2] = [[' 女',' 여'],[' 年',' 연'],[' 撚',' 연'],[' 秊',' 연'],[' 涅',' 열'],[' 念',' 염'],[' 拈',' 염'],[' 恬',' 염'],[' 捻',' 염'],[' 寧',' 영'],[' 寗',' 영'],[' 獰',' 영'],[' 甯',' 영'],[' 佞',' 영'],[' 娘',' 낭'],[' 羅',' 나'],[' 裸',' 나'],[' 邏',' 나'],[' 螺',' 나'],[' 懶',' 나'],[' 癩',' 나'],[' 喇',' 나'],[' 懰',' 유'],[' 罶',' 유'],[' 藟',' 유'],[' 虆',' 유'],[' 駵',' 유'],[' 六',' 육'],[' 陸',' 육'],[' 戮',' 육'],[' 僇',' 육'],[' 穋',' 육'],[' 輪',' 윤'],[' 倫',' 윤'],[' 崙',' 윤'],[' 淪',' 윤'],[' 綸',' 윤'],[' 侖',' 윤'],[' 隆',' 융'],[' 肋',' 늑'],[' 勒',' 늑'],[' 凜',' 늠'],[' 懍',' 늠'],[' 廩',' 늠'],[' 陵',' 능'],[' 楞',' 능'],[' 稜',' 능'],[' 綾',' 능'],[' 凌',' 능'],[' 菱',' 능'],[' 里',' 이'],[' 利',' 이'],[' 理',' 이'],[' 李',' 이'],[' 離',' 이'],[' 吏',' 이'],[' 履',' 이'],[' 裏',' 이'],[' 梨',' 이'],[' 悧',' 이'],[' 籬',' 이'],[' 釐',' 이'],[' 俚',' 이'],[' 裡',' 이'],[' 痢',' 이'],[' 罹',' 이'],[' 狸',' 이'],[' 羸',' 이'],[' 莉',' 이'],[' 厘',' 이'],[' 唎',' 이'],[' 鯉',' 이'],[' 浬',' 이'],[' 璃',' 이'],[' 纚',' 이'],[' 莅',' 이'],[' 詈',' 이'],[' 俐',' 이'],[' 縭',' 이'],[' 离',' 이'],[' 涖',' 이'],[' 梩',' 이'],[' 隣',' 인'],[' 麟',' 인'],[' 吝',' 인'],[' 鱗',' 인'],[' 燐',' 인'],[' 躪',' 인'],[' 璘',' 인'],[' 藺',' 인'],[' 潾',' 인'],[' 粼',' 인'],[' 鄰',' 인'],[' 林',' 임'],[' 臨',' 임'],[' 淋',' 임'],[' 霖',' 임'],[' 琳',' 임'],[' 立',' 입'],[' 笠',' 입'],[' 粒',' 입'],[' 砬',' 입'],[' 苙',' 입']]
;~    For $i = 0 To Ubound($HanchaSet, 1) - 1
;~ 	  $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
;~    Next
;~    ClipPut($Hangul)

;FKR145
   Local $HanchaSet[5][2] = [['尚','상'],['奬','장'],['宅','택'],['鄉','향'],['研','연']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR146
   Local $Extended[65][2] = [['趕','간'],['舉','거'],['翺','고'],['跫','공'],['教','교'],['国','국'],['羣','군'],['淈','굴'],['鴌','궉'],['恬','념'],['禰','녜'],['雫','놔'],['蠧','두'],['郎','랑'],['嫪','로'],['醪','료'],['醨','리'],['媽','마'],['皃','모'],['髣','방'],['並','병'],['髴','불'],['贔','비'],['沘','비'],['冰','빙'],['查','사'],['產','산'],['繖','산'],['鬖','삼'],['插','삽'],['叙','서'],['慎','신'],['婀','아'],['贋','안'],['毐','애'],['匽','언'],['揅','연'],['枻','예'],['遨','오'],['窅','요'],['為','위'],['衞','위'],['幃','위'],['喻','유'],['禕','의'],['裀','인'],['婥','작'],['妁','작'],['摴','저'],['絕','절'],['賨','종'],['磔','책'],['青','청'],['鈔','초'],['愀','초'],['惆','추'],['閈','한'],['郃','합'],['叶','협'],['寰','환'],['鬟','환'],['毀','훼'],['屓','희'],['肹','힐'],['黠','힐']]
   For $i = 0 To Ubound($Extended, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $Extended[$i][0] & "\E",$Extended[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR147
   Local $HanchaSet[250][2] = [['家','가'],['歌','가'],['價','가'],['加','가'],['可','가'],['假','가'],['街','가'],['暇','가'],['佳','가'],['架','가'],['柯','가'],['賈','가'],['軻','가'],['迦','가'],['伽','가'],['嘉','가'],['呵','가'],['嫁','가'],['稼','가'],['苛','가'],['袈','가'],['駕','가'],['哥','가'],['痂','가'],['珂','가'],['茄','가'],['訶','가'],['跏','가'],['枷','가'],['斝','가'],['葭','가'],['檟','가'],['哿','가'],['珈','가'],['各','각'],['角','각'],['刻','각'],['覺','각'],['脚','각'],['閣','각'],['却','각'],['珏','각'],['恪','각'],['殼','각'],['慤','각'],['桷','각'],['卻','각'],['間','간'],['簡','간'],['看','간'],['干','간'],['刊','간'],['幹','간'],['懇','간'],['肝','간'],['姦','간'],['杆','간'],['艮','간'],['奸','간'],['墾','간'],['澗','간'],['癎','간'],['竿','간'],['艱','간'],['諫','간'],['揀','간'],['稈','간'],['磵','간'],['桿','간'],['柬','간'],['侃','간'],['蕑','간'],['玕','간'],['榦','간'],['瞯','간'],['衎','간'],['渴','갈'],['葛','갈'],['鞨','갈'],['喝','갈'],['竭','갈'],['褐','갈'],['碣','갈'],['曷','갈'],['乫','갈'],['蝎','갈'],['秸','갈'],['感','감'],['減','감'],['監','감'],['甘','감'],['敢','감'],['鑑','감'],['憾','감'],['堪','감'],['柑','감'],['疳','감'],['瞰','감'],['紺','감'],['勘','감'],['嵌','감'],['坎','감'],['橄','감'],['鑒','감'],['戡','감'],['龕','감'],['矙','감'],['欿','감'],['减','감'],['酣','감'],['歛','감'],['甲','갑'],['鉀','갑'],['岬','갑'],['匣','갑'],['閘','갑'],['胛','갑'],['江','강'],['強','강'],['講','강'],['康','강'],['降','강'],['剛','강'],['綱','강'],['鋼','강'],['姜','강'],['崗','강'],['疆','강'],['岡','강'],['彊','강'],['腔','강'],['慷','강'],['糠','강'],['薑','강'],['絳','강'],['羌','강'],['鱇','강'],['畺','강'],['强','강'],['堈','강'],['舡','강'],['襁','강'],['橿','강'],['杠','강'],['開','개'],['改','개'],['個','개'],['槪','개'],['介','개'],['蓋','개'],['皆','개'],['慨','개'],['价','개'],['塏','개'],['愾','개'],['漑','개'],['凱','개'],['箇','개'],['芥','개'],['疥','개'],['盖','개'],['鎧','개'],['愷','개'],['湝','개'],['喈','개'],['槩','개'],['玠','개'],['嘅','개'],['客','객'],['喀','객'],['坑','갱'],['羹','갱'],['粳','갱'],['鏗','갱'],['賡','갱'],['硜','갱'],['秔','갱'],['臄','갹'],['車','차'],['擧','거'],['去','거'],['拒','거'],['居','거'],['據','거'],['巨','거'],['距','거'],['醵','거'],['渠','거'],['倨','거'],['踞','거'],['炬','거'],['遽','거'],['鋸','거'],['鉅','거'],['祛','거'],['据','거'],['虡','거'],['籧','거'],['筥','거'],['蘧','거'],['莒','거'],['琚','거'],['秬','거'],['袪','거'],['椐','거'],['件','건'],['建','건'],['健','건'],['乾','건'],['鍵','건'],['巾','건'],['腱','건'],['虔','건'],['愆','건'],['楗','건'],['騫','건'],['蹇','건'],['褰','건'],['傑','걸'],['乞','걸'],['桀','걸'],['杰','걸'],['朅','걸'],['檢','검'],['儉','검'],['劍','검'],['鈐','검'],['瞼','검'],['黔','검'],['劒','검'],['怯','겁'],['劫','겁'],['迲','겁'],['跲','겁'],['憩','게'],['揭','게'],['偈','게'],['愒','게'],['格','격'],['擊','격'],['激','격'],['隔','격'],['檄','격'],['膈','격'],['覡','격'],['綌','격'],['繳','격'],['鵙','격'],['鴃','격'],['見','견']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;251-500
   Local $HanchaSet[250][2] = [['堅','견'],['犬','견'],['遣','견'],['肩','견'],['絹','견'],['牽','견'],['甄','견'],['繭','견'],['譴','견'],['鵑','견'],['豣','견'],['睊','견'],['獧','견'],['岍','견'],['蠲','견'],['繾','견'],['畎','견'],['狷','견'],['結','결'],['決','결'],['潔','결'],['缺','결'],['訣','결'],['抉','결'],['袺','결'],['闋','결'],['觼','결'],['兼','겸'],['謙','겸'],['鎌','겸'],['慊','겸'],['鉗','겸'],['箝','겸'],['歉','겸'],['蒹','겸'],['京','경'],['敬','경'],['輕','경'],['競','경'],['景','경'],['境','경'],['經','경'],['警','경'],['慶','경'],['驚','경'],['更','경'],['傾','경'],['鏡','경'],['頃','경'],['徑','경'],['硬','경'],['耕','경'],['卿','경'],['庚','경'],['竟','경'],['璟','경'],['儆','경'],['瓊','경'],['炅','경'],['勁','경'],['鯨','경'],['憬','경'],['頸','경'],['莖','경'],['脛','경'],['磬','경'],['痙','경'],['梗','경'],['倞','경'],['勍','경'],['涇','경'],['逕','경'],['耿','경'],['絅','경'],['擎','경'],['俓','경'],['坰','경'],['暻','경'],['璥','경'],['罄','경'],['睘','경'],['鶊','경'],['牼','경'],['冂','경'],['黥','경'],['褧','경'],['熲','경'],['焭','경'],['煢','경'],['檠','경'],['惸','경'],['冏','경'],['駉','경'],['界','계'],['計','계'],['係','계'],['階','계'],['鷄','계'],['季','계'],['系','계'],['繼','계'],['戒','계'],['契','계'],['桂','계'],['啓','계'],['溪','계'],['械','계'],['繫','계'],['癸','계'],['悸','계'],['屆','계'],['堺','계'],['磎','계'],['稽','계'],['谿','계'],['棨','계'],['誡','계'],['笄','계'],['雞','계'],['烓','계'],['高','고'],['古','고'],['苦','고'],['告','고'],['考','고'],['固','고'],['故','고'],['孤','고'],['庫','고'],['姑','고'],['稿','고'],['鼓','고'],['顧','고'],['枯','고'],['雇','고'],['皐','고'],['敲','고'],['辜','고'],['袴','고'],['拷','고'],['叩','고'],['股','고'],['呱','고'],['膏','고'],['痼','고'],['錮','고'],['菰','고'],['藁','고'],['蠱','고'],['誥','고'],['羔','고'],['沽','고'],['槁','고'],['暠','고'],['攷','고'],['尻','고'],['苽','고'],['睾','고'],['翶','고'],['楛','고'],['槀','고'],['櫜','고'],['盬','고'],['瞽','고'],['罟','고'],['羖','고'],['栲','고'],['杲','고'],['刳','고'],['鼛','고'],['稾','고'],['罛','고'],['觚','고'],['酤','고'],['熇','고'],['曲','곡'],['穀','곡'],['哭','곡'],['谷','곡'],['梏','곡'],['鵠','곡'],['斛','곡'],['觳','곡'],['轂','곡'],['牿','곡'],['困','곤'],['坤','곤'],['昆','곤'],['棍','곤'],['袞','곤'],['琨','곤'],['鯤','곤'],['滾','곤'],['梱','곤'],['崑','곤'],['髡','곤'],['棞','곤'],['錕','곤'],['緄','곤'],['鯀','곤'],['骨','골'],['汨','골'],['工','공'],['空','공'],['公','공'],['共','공'],['功','공'],['孔','공'],['攻','공'],['貢','공'],['供','공'],['恐','공'],['恭','공'],['鞏','공'],['拱','공'],['控','공'],['蚣','공'],['珙','공'],['悾','공'],['邛','공'],['果','과'],['科','과'],['課','과'],['過','과'],['誇','과'],['寡','과'],['菓','과'],['戈','과'],['瓜','과'],['顆','과'],['鍋','과'],['跨','과'],['薖','과'],['夸','과'],['蜾','과'],['裹','과'],['郭','곽'],['廓','곽'],['槨','곽'],['藿','곽'],['霍','곽'],['躩','곽'],['鞹','곽'],['觀','관'],['關','관'],['官','관'],['管','관'],['寬','관'],['貫','관'],['館','관']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR148
   Local $HanchaSet[250][2] = [['慣','관'],['冠','관'],['款','관'],['琯','관'],['串','관'],['棺','관'],['顴','관'],['灌','관'],['瓘','관'],['菅','관'],['罐','관'],['梡','관'],['盥','관'],['瘝','관'],['痯','관'],['鸛','관'],['錧','관'],['祼','관'],['丱','관'],['綰','관'],['刮','괄'],['括','괄'],['适','괄'],['恝','괄'],['栝','괄'],['佸','괄'],['聒','괄'],['光','광'],['廣','광'],['鑛','광'],['狂','광'],['曠','광'],['壙','광'],['匡','광'],['胱','광'],['珖','광'],['洸','광'],['筐','광'],['侊','광'],['炚','광'],['纊','광'],['誑','광'],['桄','광'],['迋','광'],['掛','괘'],['罫','괘'],['卦','괘'],['壞','괴'],['怪','괴'],['塊','괴'],['愧','괴'],['傀','괴'],['槐','괴'],['拐','괴'],['魁','괴'],['乖','괴'],['蕢','괴'],['瑰','괴'],['虢','괵'],['肱','굉'],['轟','굉'],['宏','굉'],['紘','굉'],['觥','굉'],['鞃','굉'],['校','교'],['敎','교'],['交','교'],['橋','교'],['巧','교'],['較','교'],['郊','교'],['矯','교'],['僑','교'],['膠','교'],['絞','교'],['攪','교'],['咬','교'],['喬','교'],['驕','교'],['轎','교'],['蛟','교'],['皎','교'],['狡','교'],['嬌','교'],['嶠','교'],['鮫','교'],['餃','교'],['翹','교'],['蕎','교'],['儌','교'],['敽','교'],['荍','교'],['磽','교'],['茭','교'],['蹻','교'],['嘐','교'],['佼','교'],['鷮','교'],['曒','교'],['姣','교'],['九','구'],['口','구'],['球','구'],['區','구'],['具','구'],['舊','구'],['救','구'],['求','구'],['句','구'],['究','구'],['構','구'],['久','구'],['拘','구'],['丘','구'],['俱','구'],['龜','구'],['驅','구'],['苟','구'],['懼','구'],['狗','구'],['鷗','구'],['歐','구'],['購','구'],['邱','구'],['玖','구'],['矩','구'],['駒','구'],['鳩','구'],['舅','구'],['枸','구'],['廏','구'],['寇','구'],['嘔','구'],['仇','구'],['垢','구'],['衢','구'],['鉤','구'],['臼','구'],['毆','구'],['溝','구'],['灸','구'],['軀','구'],['柩','구'],['謳','구'],['嶇','구'],['絿','구'],['廐','구'],['勾','구'],['坵','구'],['瞿','구'],['逑','구'],['銶','구'],['耈','구'],['咎','구'],['柾','구'],['毬','구'],['屨','구'],['嫗','구'],['俅','구'],['劬','구'],['姤','구'],['糗','구'],['雊','구'],['觩','구'],['艽','구'],['笱','구'],['韭','구'],['遘','구'],['媾','구'],['裘','구'],['彀','구'],['窶','구'],['疚','구'],['璆','구'],['漚','구'],['搆','구'],['捄','구'],['扣','구'],['覯','구'],['國','국'],['局','국'],['菊','국'],['鞠','국'],['鞫','국'],['麴','국'],['匊','국'],['軍','군'],['郡','군'],['君','군'],['群','군'],['窘','군'],['裙','군'],['屈','굴'],['窟','굴'],['掘','굴'],['堀','굴'],['詘','굴'],['宮','궁'],['窮','궁'],['弓','궁'],['躬','궁'],['穹','궁'],['芎','궁'],['權','권'],['券','권'],['勸','권'],['卷','권'],['拳','권'],['圈','권'],['眷','권'],['捲','권'],['倦','권'],['淃','권'],['棬','권'],['睠','권'],['綣','권'],['鬈','권'],['厥','궐'],['闕','궐'],['蹶','궐'],['蕨','궐'],['獗','궐'],['軌','궤'],['潰','궤'],['詭','궤'],['几','궤'],['櫃','궤'],['机','궤'],['饋','궤'],['垝','궤'],['匱','궤'],['氿','궤'],['簋','궤'],['跪','궤'],['餽','궤'],['匭','궤'],['簣','궤'],['貴','귀'],['歸','귀'],['鬼','귀'],['晷','귀'],['宄','귀'],['規','규'],['糾','규'],['叫','규'],['閨','규'],['珪','규'],['揆','규'],['奎','규']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR149
   Local $HanchaSet[250][2] = [['圭','규'],['逵','규'],['葵','규'],['窺','규'],['硅','규'],['赳','규'],['竅','규'],['槻','규'],['闚','규'],['糺','규'],['戣','규'],['頍','규'],['睽','규'],['樛','규'],['刲','규'],['騤','규'],['頄','규'],['均','균'],['菌','균'],['鈞','균'],['勻','균'],['畇','균'],['筠','균'],['麕','균'],['箘','균'],['橘','귤'],['極','극'],['劇','극'],['克','극'],['隙','극'],['剋','극'],['戟','극'],['棘','극'],['殛','극'],['亟','극'],['郤','극'],['襋','극'],['根','근'],['近','근'],['勤','근'],['筋','근'],['僅','근'],['謹','근'],['斤','근'],['瑾','근'],['槿','근'],['饉','근'],['覲','근'],['劤','근'],['芹','근'],['菫','근'],['懃','근'],['漌','근'],['墐','근'],['金','금'],['今','금'],['禁','금'],['禽','금'],['錦','금'],['琴','금'],['襟','금'],['擒','금'],['衾','금'],['昑','금'],['檎','금'],['芩','금'],['衿','금'],['妗','금'],['急','급'],['級','급'],['給','급'],['及','급'],['扱','급'],['汲','급'],['伋','급'],['岌','급'],['肯','긍'],['兢','긍'],['矜','긍'],['亘','긍'],['亙','긍'],['氣','기'],['記','기'],['旗','기'],['基','기'],['己','기'],['汽','기'],['期','기'],['技','기'],['器','기'],['起','기'],['機','기'],['寄','기'],['奇','기'],['紀','기'],['騎','기'],['祈','기'],['畿','기'],['其','기'],['企','기'],['旣','기'],['忌','기'],['棄','기'],['欺','기'],['飢','기'],['豈','기'],['幾','기'],['棋','기'],['冀','기'],['岐','기'],['驥','기'],['耆','기'],['麒','기'],['沂','기'],['淇','기'],['琦','기'],['琪','기'],['璣','기'],['箕','기'],['騏','기'],['譏','기'],['肌','기'],['綺','기'],['杞','기'],['朞','기'],['崎','기'],['妓','기'],['伎','기'],['羈','기'],['嗜','기'],['畸','기'],['磯','기'],['埼','기'],['圻','기'],['碁','기'],['夔','기'],['璂','기'],['祁','기'],['祇','기'],['祺','기'],['玘','기'],['錡','기'],['錤','기'],['耭','기'],['饑','기'],['歧','기'],['棊','기'],['曁','기'],['暣','기'],['旂','기'],['覊','기'],['跂','기'],['蘷','기'],['墍','기'],['屺','기'],['忮','기'],['軝','기'],['頎','기'],['芑','기'],['掎','기'],['僛','기'],['羇','기'],['綦','기'],['緊','긴'],['吉','길'],['拮','길'],['佶','길'],['桔','길'],['姞','길'],['喫','끽'],['那','나'],['拏','나'],['懦','나'],['拿','나'],['儺','나'],['娜','나'],['諾','낙'],['暖','난'],['難','난'],['煖','난'],['戁','난'],['赧','난'],['捏','날'],['捺','날'],['陧','날'],['南','남'],['男','남'],['楠','남'],['枏','남'],['湳','남'],['納','납'],['衲','납'],['軜','납'],['娘','랑'],['囊','낭'],['曩','낭'],['內','내'],['耐','내'],['奈','내'],['乃','내'],['柰','내'],['鼐','내'],['迺','내'],['女','녀'],['年','년'],['撚','년'],['秊','년'],['涅','녈'],['念','념'],['拈','념'],['恬','념'],['捻','념'],['寧','녕'],['寗','녕'],['獰','녕'],['甯','녕'],['佞','녕'],['怒','노'],['努','노'],['奴','노'],['弩','노'],['駑','노'],['瑙','노'],['峱','노'],['猱','노'],['呶','노'],['孥','노'],['砮','노'],['怓','노'],['農','농'],['濃','농'],['膿','농'],['穠','농'],['腦','뇌'],['惱','뇌'],['餒','뇌'],['尿','뇨'],['撓','뇨'],['鬧','뇨'],['耨','누'],['嫩','눈'],['訥','눌'],['紐','뉴'],['杻','뉴'],['忸','뉴'],['鈕','뉴'],['狃','뉴'],['能','능'],['泥','니'],['尼','니']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR150
   Local $HanchaSet[250][2] = [['你','니'],['柅','니'],['怩','니'],['溺','닉'],['匿','닉'],['昵','닐'],['多','다'],['茶','다'],['爹','다'],['短','단'],['團','단'],['壇','단'],['斷','단'],['單','단'],['檀','단'],['端','단'],['段','단'],['旦','단'],['但','단'],['丹','단'],['鍛','단'],['湍','단'],['蛋','단'],['簞','단'],['緞','단'],['亶','단'],['彖','단'],['袒','단'],['鄲','단'],['漙','단'],['慱','단'],['襢','단'],['癉','단'],['煅','단'],['達','달'],['撻','달'],['疸','달'],['獺','달'],['澾','달'],['怛','달'],['闥','달'],['談','담'],['擔','담'],['淡','담'],['潭','담'],['膽','담'],['憺','담'],['曇','담'],['澹','담'],['痰','담'],['譚','담'],['錟','담'],['坍','담'],['啖','담'],['覃','담'],['蕁','담'],['聃','담'],['湛','담'],['惔','담'],['萏','담'],['餤','담'],['驔','담'],['髧','담'],['耼','담'],['菼','담'],['窞','담'],['黮','담'],['答','답'],['踏','답'],['畓','답'],['遝','답'],['沓','답'],['堂','당'],['當','당'],['黨','당'],['糖','당'],['唐','당'],['塘','당'],['撞','당'],['棠','당'],['螳','당'],['戇','당'],['幢','당'],['儻','당'],['鏜','당'],['鐺','당'],['螗','당'],['倘','당'],['大','대'],['代','대'],['對','대'],['待','대'],['帶','대'],['隊','대'],['臺','대'],['貸','대'],['戴','대'],['垈','대'],['擡','대'],['袋','대'],['黛','대'],['岱','대'],['坮','대'],['玳','대'],['祋','대'],['譈','대'],['懟','대'],['憝','대'],['德','덕'],['悳','덕'],['道','도'],['圖','도'],['度','도'],['到','도'],['都','도'],['島','도'],['導','도'],['徒','도'],['盜','도'],['逃','도'],['渡','도'],['桃','도'],['倒','도'],['陶','도'],['途','도'],['刀','도'],['跳','도'],['挑','도'],['塗','도'],['稻','도'],['悼','도'],['燾','도'],['搗','도'],['鍍','도'],['蹈','도'],['賭','도'],['萄','도'],['禱','도'],['睹','도'],['濤','도'],['屠','도'],['淘','도'],['掉','도'],['堵','도'],['滔','도'],['嶋','도'],['覩','도'],['韜','도'],['櫂','도'],['棹','도'],['翿','도'],['咷','도'],['闍','도'],['稌','도'],['檮','도'],['擣','도'],['慆','도'],['鼗','도'],['叨','도'],['綯','도'],['荼','도'],['謟','도'],['鞉','도'],['瘏','도'],['忉','도'],['讀','독'],['獨','독'],['毒','독'],['督','독'],['篤','독'],['禿','독'],['瀆','독'],['犢','독'],['牘','독'],['纛','독'],['匵','독'],['櫝','독'],['黷','독'],['敦','돈'],['豚','돈'],['惇','돈'],['燉','돈'],['頓','돈'],['沌','돈'],['暾','돈'],['遯','돈'],['旽','돈'],['墩','돈'],['焞','돈'],['突','돌'],['乭','돌'],['東','동'],['動','동'],['同','동'],['洞','동'],['冬','동'],['童','동'],['銅','동'],['凍','동'],['棟','동'],['桐','동'],['董','동'],['疼','동'],['瞳','동'],['胴','동'],['憧','동'],['仝','동'],['潼','동'],['僮','동'],['侗','동'],['烔','동'],['罿','동'],['彤','동'],['蝀','동'],['頭','두'],['斗','두'],['豆','두'],['杜','두'],['兜','두'],['痘','두'],['竇','두'],['荳','두'],['逗','두'],['枓','두'],['斁','두'],['屯','둔'],['鈍','둔'],['臀','둔'],['遁','둔'],['芚','둔'],['得','득'],['登','등'],['等','등'],['燈','등'],['騰','등'],['藤','등'],['謄','등'],['鄧','등'],['橙','등'],['嶝','등'],['螣','등'],['滕','등'],['縢','등'],['羅','라'],['裸','라'],['邏','라'],['螺','라'],['懶','라'],['癩','라'],['喇','라']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR151
   Local $HanchaSet[246][2] = [['蘿','라'],['臝','라'],['蠃','라'],['樂','락'],['落','락'],['絡','락'],['洛','락'],['駱','락'],['烙','락'],['酪','락'],['珞','락'],['雒','락'],['亂','란'],['卵','란'],['欄','란'],['蘭','란'],['爛','란'],['瀾','란'],['鸞','란'],['欒','란'],['闌','란'],['瓓','란'],['剌','랄'],['辣','랄'],['捋','랄'],['覽','람'],['濫','람'],['藍','람'],['籃','람'],['嵐','람'],['襤','람'],['擥','람'],['攬','람'],['纜','람'],['欖','람'],['拉','랍'],['蠟','랍'],['臘','랍'],['朗','랑'],['浪','랑'],['廊','랑'],['郞','랑'],['狼','랑'],['螂','랑'],['琅','랑'],['瑯','랑'],['稂','랑'],['來','래'],['萊','래'],['崍','래'],['徠','래'],['勑','래'],['倈','래'],['騋','래'],['冷','랭'],['略','략'],['掠','략'],['良','량'],['量','량'],['兩','량'],['糧','량'],['涼','량'],['梁','량'],['諒','량'],['輛','량'],['樑','량'],['亮','량'],['倆','량'],['粱','량'],['粮','량'],['凉','량'],['旅','려'],['麗','려'],['慮','려'],['勵','려'],['廬','려'],['礪','려'],['呂','려'],['驪','려'],['侶','려'],['戾','려'],['濾','려'],['閭','려'],['黎','려'],['藜','려'],['驢','려'],['儷','려'],['櫚','려'],['蠣','려'],['犁','려'],['膂','려'],['厲','려'],['蠡','려'],['藘','려'],['力','력'],['歷','력'],['曆','력'],['瀝','력'],['礫','력'],['轢','력'],['靂','력'],['櫟','력'],['鬲','력'],['酈','력'],['練','련'],['連','련'],['鍊','련'],['蓮','련'],['聯','련'],['戀','련'],['憐','련'],['煉','련'],['漣','련'],['輦','련'],['攣','련'],['璉','련'],['孌','련'],['冽','렬'],['洌','렬'],['栵','렬'],['廉','렴'],['濂','렴'],['斂','렴'],['殮','렴'],['簾','렴'],['蘞','렴'],['獵','렵'],['領','령'],['令','령'],['靈','령'],['嶺','령'],['零','령'],['玲','령'],['齡','령'],['囹','령'],['逞','령'],['鈴','령'],['聆','령'],['伶','령'],['怜','령'],['羚','령'],['岺','령'],['笭','령'],['翎','령'],['蛉','령'],['苓','령'],['姈','령'],['昤','령'],['例','례'],['禮','례'],['隷','례'],['醴','례'],['澧','례'],['鱧','례'],['老','로'],['路','로'],['勞','로'],['露','로'],['爐','로'],['盧','로'],['鷺','로'],['蘆','로'],['魯','로'],['虜','로'],['擄','로'],['撈','로'],['瀘','로'],['潞','로'],['櫓','로'],['輅','로'],['鹵','로'],['纑','로'],['簵','로'],['壚','로'],['綠','록'],['錄','록'],['祿','록'],['鹿','록'],['麓','록'],['碌','록'],['菉','록'],['彔','록'],['論','론'],['弄','롱'],['籠','롱'],['壟','롱'],['聾','롱'],['瓏','롱'],['瀧','롱'],['朧','롱'],['隴','롱'],['賴','뢰'],['雷','뢰'],['賂','뢰'],['磊','뢰'],['牢','뢰'],['儡','뢰'],['瀨','뢰'],['賚','뢰'],['耒','뢰'],['罍','뢰'],['料','료'],['僚','료'],['了','료'],['療','료'],['遼','료'],['燎','료'],['瞭','료'],['聊','료'],['寥','료'],['寮','료'],['蓼','료'],['廖','료'],['敹','료'],['繚','료'],['潦','료'],['龍','룡'],['漏','루'],['樓','루'],['累','루'],['淚','루'],['屢','루'],['壘','루'],['陋','루'],['褸','루'],['蔞','루'],['瘻','루'],['縷','루'],['鏤','루'],['婁','루'],['摟','루'],['流','류'],['類','류'],['留','류'],['柳','류'],['硫','류'],['謬','류'],['劉','류'],['琉','류'],['溜','류'],['瘤','류'],['旒','류'],['榴','류'],['瀏','류'],['瑠','류'],['纍','류']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR152
   Local $HanchaSet[246][2] = [['懰','류'],['罶','류'],['藟','류'],['虆','류'],['駵','류'],['六','륙'],['陸','륙'],['戮','륙'],['僇','륙'],['穋','륙'],['輪','륜'],['倫','륜'],['崙','륜'],['淪','륜'],['綸','륜'],['侖','륜'],['隆','륭'],['肋','륵'],['勒','륵'],['凜','름'],['懍','름'],['廩','름'],['陵','릉'],['楞','릉'],['稜','릉'],['綾','릉'],['凌','릉'],['菱','릉'],['里','리'],['利','리'],['理','리'],['李','리'],['離','리'],['吏','리'],['履','리'],['裏','리'],['梨','리'],['悧','리'],['籬','리'],['釐','리'],['俚','리'],['裡','리'],['痢','리'],['罹','리'],['狸','리'],['羸','리'],['莉','리'],['厘','리'],['唎','리'],['鯉','리'],['浬','리'],['璃','리'],['纚','리'],['莅','리'],['詈','리'],['俐','리'],['縭','리'],['离','리'],['涖','리'],['梩','리'],['隣','린'],['麟','린'],['吝','린'],['鱗','린'],['燐','린'],['躪','린'],['璘','린'],['藺','린'],['潾','린'],['粼','린'],['鄰','린'],['林','림'],['臨','림'],['淋','림'],['霖','림'],['琳','림'],['立','립'],['笠','립'],['粒','립'],['砬','립'],['苙','립'],['馬','마'],['磨','마'],['麻','마'],['摩','마'],['痲','마'],['魔','마'],['碼','마'],['瑪','마'],['禡','마'],['漠','막'],['莫','막'],['幕','막'],['膜','막'],['寞','막'],['邈','막'],['藐','막'],['瘼','막'],['萬','만'],['滿','만'],['晩','만'],['慢','만'],['漫','만'],['娩','만'],['灣','만'],['蠻','만'],['輓','만'],['饅','만'],['蔓','만'],['鰻','만'],['卍','만'],['彎','만'],['挽','만'],['瞞','만'],['万','만'],['巒','만'],['曼','만'],['鏋','만'],['墁','만'],['末','말'],['靺','말'],['抹','말'],['沫','말'],['襪','말'],['唜','말'],['茉','말'],['秣','말'],['望','망'],['亡','망'],['妄','망'],['忘','망'],['茫','망'],['忙','망'],['罔','망'],['網','망'],['芒','망'],['惘','망'],['莽','망'],['邙','망'],['輞','망'],['蘉','망'],['每','매'],['買','매'],['賣','매'],['妹','매'],['媒','매'],['梅','매'],['埋','매'],['魅','매'],['枚','매'],['煤','매'],['罵','매'],['邁','매'],['呆','매'],['昧','매'],['寐','매'],['脢','매'],['沬','매'],['韎','매'],['霾','매'],['鋂','매'],['痗','매'],['浼','매'],['苺','매'],['勱','매'],['脈','맥'],['麥','맥'],['貊','맥'],['驀','맥'],['陌','맥'],['貉','맥'],['霢','맥'],['孟','맹'],['猛','맹'],['盲','맹'],['盟','맹'],['萌','맹'],['氓','맹'],['覓','멱'],['冪','멱'],['面','면'],['勉','면'],['眠','면'],['綿','면'],['免','면'],['俛','면'],['沔','면'],['冕','면'],['棉','면'],['眄','면'],['緬','면'],['麪','면'],['麵','면'],['湎','면'],['滅','멸'],['蔑','멸'],['篾','멸'],['幭','멸'],['名','명'],['命','명'],['明','명'],['鳴','명'],['銘','명'],['冥','명'],['溟','명'],['皿','명'],['螟','명'],['暝','명'],['酩','명'],['椧','명'],['瞑','명'],['蓂','명'],['茗','명'],['袂','몌'],['母','모'],['毛','모'],['模','모'],['謀','모'],['貌','모'],['慕','모'],['某','모'],['暮','모'],['募','모'],['冒','모'],['侮','모'],['矛','모'],['帽','모'],['茅','모'],['謨','모'],['牟','모'],['摸','모'],['牡','모'],['糢','모'],['耗','모'],['芼','모'],['眸','모'],['瑁','모'],['姆','모'],['摹','모'],['麰','모'],['眊','모'],['旄','모'],['耄','모'],['髦','모'],['蟊','모'],['木','목']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR153
   Local $HanchaSet[250][2] = [['目','목'],['牧','목'],['睦','목'],['沐','목'],['穆','목'],['鶩','목'],['霂','목'],['楘','목'],['沒','몰'],['歿','몰'],['蒙','몽'],['夢','몽'],['朦','몽'],['饛','몽'],['幪','몽'],['濛','몽'],['矇','몽'],['墓','묘'],['妙','묘'],['卯','묘'],['廟','묘'],['苗','묘'],['昴','묘'],['猫','묘'],['描','묘'],['杳','묘'],['渺','묘'],['竗','묘'],['錨','묘'],['眇','묘'],['貓','묘'],['茆','묘'],['無','무'],['務','무'],['武','무'],['舞','무'],['貿','무'],['茂','무'],['戊','무'],['霧','무'],['巫','무'],['蕪','무'],['畝','무'],['毋','무'],['撫','무'],['拇','무'],['憮','무'],['誣','무'],['楙','무'],['珷','무'],['繆','무'],['鵡','무'],['懋','무'],['无','무'],['儛','무'],['廡','무'],['膴','무'],['髳','무'],['墨','묵'],['默','묵'],['纆','묵'],['門','문'],['文','문'],['問','문'],['聞','문'],['紋','문'],['紊','문'],['汶','문'],['蚊','문'],['吻','문'],['刎','문'],['們','문'],['雯','문'],['捫','문'],['炆','문'],['璊','문'],['穈','문'],['物','물'],['勿','물'],['沕','물'],['美','미'],['米','미'],['未','미'],['味','미'],['微','미'],['尾','미'],['迷','미'],['眉','미'],['彌','미'],['靡','미'],['薇','미'],['媚','미'],['湄','미'],['謎','미'],['渼','미'],['楣','미'],['黴','미'],['梶','미'],['嵋','미'],['麋','미'],['亹','미'],['弭','미'],['敉','미'],['糜','미'],['郿','미'],['瀰','미'],['民','민'],['敏','민'],['憫','민'],['旻','민'],['閔','민'],['玟','민'],['珉','민'],['旼','민'],['悶','민'],['泯','민'],['岷','민'],['愍','민'],['緡','민'],['慜','민'],['敃','민'],['潣','민'],['忞','민'],['痻','민'],['暋','민'],['黽','민'],['密','밀'],['蜜','밀'],['謐','밀'],['朴','박'],['博','박'],['拍','박'],['迫','박'],['薄','박'],['泊','박'],['舶','박'],['膊','박'],['搏','박'],['縛','박'],['箔','박'],['撲','박'],['剝','박'],['珀','박'],['樸','박'],['粕','박'],['駁','박'],['璞','박'],['雹','박'],['亳','박'],['鎛','박'],['襮','박'],['鉑','박'],['半','반'],['反','반'],['班','반'],['般','반'],['盤','반'],['飯','반'],['伴','반'],['叛','반'],['返','반'],['搬','반'],['潘','반'],['磻','반'],['槃','반'],['斑','반'],['礬','반'],['絆','반'],['畔','반'],['蟠','반'],['頒','반'],['攀','반'],['拌','반'],['瘢','반'],['泮','반'],['盼','반'],['磐','반'],['鞶','반'],['胖','반'],['發','발'],['髮','발'],['拔','발'],['渤','발'],['鉢','발'],['跋','발'],['勃','발'],['魃','발'],['醱','발'],['潑','발'],['撥','발'],['茇','발'],['浡','발'],['軷','발'],['方','방'],['放','방'],['防','방'],['房','방'],['訪','방'],['妨','방'],['芳','방'],['倣','방'],['傍','방'],['邦','방'],['紡','방'],['旁','방'],['龐','방'],['彷','방'],['尨','방'],['謗','방'],['坊','방'],['膀','방'],['幇','방'],['昉','방'],['肪','방'],['榜','방'],['枋','방'],['蒡','방'],['滂','방'],['磅','방'],['舫','방'],['蚌','방'],['厖','방'],['雱','방'],['逄','방'],['魴','방'],['幫','방'],['倍','배'],['拜','배'],['背','배'],['配','배'],['輩','배'],['培','배'],['排','배'],['杯','배'],['賠','배'],['俳','배'],['裵','배'],['陪','배'],['胚','배'],['湃','배'],['徘','배'],['裴','배'],['盃','배'],['褙','배'],['焙','배'],['桮','배'],['白','백'],['百','백'],['伯','백'],['柏','백']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR154
   Local $HanchaSet[249][2] = [['魄','백'],['帛','백'],['栢','백'],['佰','백'],['番','번'],['繁','번'],['飜','번'],['煩','번'],['藩','번'],['蕃','번'],['樊','번'],['燔','번'],['幡','번'],['翻','번'],['蘩','번'],['袢','번'],['墦','번'],['罰','벌'],['伐','벌'],['閥','벌'],['筏','벌'],['犯','범'],['範','범'],['凡','범'],['汎','범'],['范','범'],['帆','범'],['梵','범'],['氾','범'],['泛','범'],['杋','범'],['法','법'],['琺','법'],['壁','벽'],['碧','벽'],['僻','벽'],['癖','벽'],['劈','벽'],['闢','벽'],['擘','벽'],['璧','벽'],['霹','벽'],['蘗','벽'],['檗','벽'],['辟','벽'],['甓','벽'],['變','변'],['邊','변'],['辯','변'],['辨','변'],['弁','변'],['卞','변'],['騈','변'],['籩','변'],['釆','변'],['別','별'],['鼈','별'],['瞥','별'],['鱉','별'],['病','병'],['兵','병'],['丙','병'],['竝','병'],['屛','병'],['倂','병'],['昺','병'],['昞','병'],['秉','병'],['柄','병'],['炳','병'],['甁','병'],['餠','병'],['棅','병'],['幷','병'],['輧','병'],['荓','병'],['怲','병'],['迸','병'],['缾','병'],['保','보'],['步','보'],['報','보'],['寶','보'],['普','보'],['譜','보'],['補','보'],['甫','보'],['輔','보'],['潽','보'],['菩','보'],['堡','보'],['洑','보'],['褓','보'],['湺','보'],['珤','보'],['鴇','보'],['黼','보'],['服','복'],['福','복'],['復','복'],['伏','복'],['複','복'],['覆','복'],['腹','복'],['卜','복'],['馥','복'],['鰒','복'],['僕','복'],['匐','복'],['輻','복'],['輹','복'],['宓','복'],['蔔','복'],['茯','복'],['濮','복'],['楅','복'],['葍','복'],['扑','복'],['鍑','복'],['本','본'],['乶','볼'],['奉','봉'],['鳳','봉'],['封','봉'],['峯','봉'],['逢','봉'],['蜂','봉'],['俸','봉'],['縫','봉'],['蓬','봉'],['鋒','봉'],['烽','봉'],['捧','봉'],['棒','봉'],['琫','봉'],['峰','봉'],['熢','봉'],['菶','봉'],['丰','봉'],['唪','봉'],['葑','봉'],['芃','봉'],['父','부'],['夫','부'],['部','부'],['府','부'],['富','부'],['副','부'],['婦','부'],['否','부'],['負','부'],['符','부'],['付','부'],['浮','부'],['賦','부'],['腐','부'],['附','부'],['簿','부'],['扶','부'],['赴','부'],['敷','부'],['膚','부'],['傅','부'],['釜','부'],['阜','부'],['賻','부'],['駙','부'],['訃','부'],['芙','부'],['腑','부'],['斧','부'],['埠','부'],['咐','부'],['剖','부'],['俯','부'],['孵','부'],['孚','부'],['鳧','부'],['趺','부'],['艀','부'],['溥','부'],['缶','부'],['莩','부'],['祔','부'],['拊','부'],['痡','부'],['紑','부'],['鈇','부'],['裒','부'],['蜉','부'],['芣','부'],['鮒','부'],['掊','부'],['罦','부'],['俘','부'],['桴','부'],['北','북'],['分','분'],['粉','분'],['憤','분'],['奔','분'],['奮','분'],['紛','분'],['墳','분'],['芬','분'],['扮','분'],['雰','분'],['盆','분'],['焚','분'],['吩','분'],['噴','분'],['忿','분'],['糞','분'],['昐','분'],['汾','분'],['賁','분'],['幩','분'],['鼖','분'],['饙','분'],['苯','분'],['蕡','분'],['濆','분'],['棼','분'],['枌','분'],['豶','분'],['佛','불'],['拂','불'],['弗','불'],['彿','불'],['紼','불'],['咈','불'],['紱','불'],['笰','불'],['巿','불'],['黻','불'],['茀','불'],['艴','불'],['芾','불'],['崩','붕'],['朋','붕'],['鵬','붕'],['棚','붕'],['硼','붕'],['繃','붕'],['比','비'],['費','비'],['鼻','비'],['飛','비'],['備','비']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR155
   Local $HanchaSet[250][2] = [['非','비'],['悲','비'],['批','비'],['祕','비'],['碑','비'],['妃','비'],['婢','비'],['肥','비'],['卑','비'],['匪','비'],['泌','필'],['丕','비'],['毖','비'],['毘','비'],['誹','비'],['砒','비'],['妣','비'],['鄙','비'],['譬','비'],['裨','비'],['臂','비'],['脾','비'],['翡','비'],['扉','비'],['秕','비'],['痺','비'],['琵','비'],['沸','비'],['憊','비'],['匕','비'],['蜚','비'],['庇','비'],['緋','비'],['斐','비'],['榧','비'],['枇','비'],['粃','비'],['菲','비'],['秘','비'],['毗','비'],['閟','비'],['剕','비'],['圮','비'],['埤','비'],['庳','비'],['悱','비'],['棐','비'],['淠','비'],['紕','비'],['腓','비'],['俾','비'],['轡','비'],['痹','비'],['霏','비'],['騑','비'],['伾','비'],['奰','비'],['岯','비'],['朏','비'],['畀','비'],['秠','비'],['篚','비'],['鞞','비'],['駓','비'],['貔','비'],['羆','비'],['仳','비'],['貧','빈'],['賓','빈'],['頻','빈'],['彬','빈'],['殯','빈'],['濱','빈'],['嬪','빈'],['嚬','빈'],['瀕','빈'],['檳','빈'],['浜','빈'],['牝','빈'],['玭','빈'],['斌','빈'],['繽','빈'],['邠','빈'],['璸','빈'],['儐','빈'],['擯','빈'],['鬢','빈'],['豳','빈'],['蠙','빈'],['蘋','빈'],['氷','빙'],['聘','빙'],['馮','빙'],['憑','빙'],['騁','빙'],['四','사'],['事','사'],['社','사'],['使','사'],['死','사'],['史','사'],['士','사'],['仕','사'],['寫','사'],['思','사'],['查','사'],['寺','사'],['師','사'],['謝','사'],['舍','사'],['辭','사'],['私','사'],['絲','사'],['射','사'],['邪','사'],['沙','사'],['司','사'],['蛇','사'],['斜','사'],['詞','사'],['祀','사'],['巳','사'],['捨','사'],['斯','사'],['詐','사'],['賜','사'],['似','사'],['赦','사'],['飼','사'],['唆','사'],['泗','사'],['些','사'],['麝','사'],['祠','사'],['紗','사'],['嗣','사'],['奢','사'],['娑','사'],['徙','사'],['瀉','사'],['獅','사'],['蓑','사'],['篩','사'],['肆','사'],['俟','사'],['渣','사'],['梭','사'],['柶','사'],['僿','사'],['裟','사'],['砂','사'],['乍','사'],['莎','사'],['伺','사'],['駟','사'],['鯊','사'],['耜','사'],['笥','사'],['戺','사'],['涘','사'],['簑','사'],['傞','사'],['汜','사'],['榭','사'],['糸','사'],['葸','사'],['蓰','사'],['蹝','사'],['削','삭'],['朔','삭'],['鑠','삭'],['山','산'],['算','산'],['産','산'],['散','산'],['傘','산'],['酸','산'],['疝','산'],['珊','산'],['刪','산'],['汕','산'],['蒜','산'],['霰','산'],['潸','산'],['殺','살'],['撒','살'],['煞','살'],['薩','살'],['乷','살'],['三','삼'],['森','삼'],['蔘','삼'],['滲','삼'],['衫','삼'],['杉','삼'],['芟','삼'],['揷','삽'],['澁','삽'],['鈒','삽'],['颯','삽'],['歃','삽'],['上','상'],['商','상'],['相','상'],['賞','상'],['常','상'],['床','상'],['想','상'],['狀','상'],['傷','상'],['象','상'],['霜','상'],['裳','상'],['桑','상'],['喪','상'],['詳','상'],['尙','상'],['像','상'],['償','상'],['祥','상'],['嘗','상'],['箱','상'],['庠','상'],['爽','상'],['翔','상'],['觴','상'],['孀','상'],['牀','상'],['峠','상'],['橡','상'],['廂','상'],['湘','상'],['鱨','상'],['塽','상'],['殤','상'],['顙','상'],['璽','새'],['賽','새'],['色','색'],['索','색'],['塞','색'],['嗇','색'],['穡','색'],['生','생'],['牲','생'],['甥','생'],['笙','생'],['眚','생'],['西','서'],['書','서']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR156
   Local $HanchaSet[250][2] = [['序','서'],['恕','서'],['緖','서'],['徐','서'],['署','서'],['暑','서'],['敍','서'],['逝','서'],['庶','서'],['誓','서'],['瑞','서'],['舒','서'],['抒','서'],['棲','서'],['犀','서'],['胥','서'],['薯','서'],['黍','서'],['嶼','서'],['曙','서'],['鼠','서'],['壻','서'],['絮','서'],['筮','서'],['栖','서'],['鋤','서'],['墅','서'],['捿','서'],['鱮','서'],['噬','서'],['婿','서'],['湑','서'],['澨','서'],['紓','서'],['諝','서'],['癙','서'],['藇','서'],['夕','석'],['席','석'],['石','석'],['惜','석'],['釋','석'],['昔','석'],['析','석'],['碩','석'],['錫','석'],['奭','석'],['晳','석'],['潟','석'],['蓆','석'],['汐','석'],['淅','석'],['鼫','석'],['螫','석'],['裼','석'],['腊','석'],['鉐','석'],['舃','석'],['先','선'],['線','선'],['鮮','선'],['仙','선'],['善','선'],['選','선'],['船','선'],['宣','선'],['禪','선'],['旋','선'],['繕','선'],['璇','선'],['瑄','선'],['璿','선'],['煽','선'],['銑','선'],['膳','선'],['羨','선'],['扇','선'],['腺','선'],['詵','선'],['僊','선'],['鐥','선'],['琁','선'],['蟬','선'],['蘚','선'],['饍','선'],['癬','선'],['嬋','선'],['跣','선'],['渲','선'],['敾','선'],['墡','선'],['愃','선'],['僎','선'],['墠','선'],['毨','선'],['珗','선'],['雪','설'],['說','설'],['設','설'],['舌','설'],['薛','설'],['卨','설'],['屑','설'],['泄','설'],['洩','설'],['渫','설'],['齧','설'],['褻','설'],['楔','설'],['暬','설'],['偰','설'],['紲','설'],['挈','설'],['絏','설'],['纖','섬'],['陝','섬'],['蟾','섬'],['暹','섬'],['閃','섬'],['殲','섬'],['贍','섬'],['憸','섬'],['攝','섭'],['涉','섭'],['燮','섭'],['韘','섭'],['姓','성'],['成','성'],['省','성'],['性','성'],['誠','성'],['聲','성'],['盛','성'],['聖','성'],['城','성'],['星','성'],['晟','성'],['醒','성'],['惺','성'],['腥','성'],['珹','성'],['宬','성'],['猩','성'],['筬','성'],['瑆','성'],['騂','성'],['娍','성'],['世','세'],['洗','세'],['歲','세'],['勢','세'],['稅','세'],['細','세'],['貰','세'],['笹','세'],['帨','세'],['小','소'],['少','소'],['所','소'],['消','소'],['笑','소'],['掃','소'],['素','소'],['訴','소'],['燒','소'],['疏','소'],['蘇','소'],['召','소'],['昭','소'],['蔬','소'],['騷','소'],['紹','소'],['沼','소'],['巢','소'],['邵','소'],['簫','소'],['塑','소'],['遡','소'],['逍','소'],['蕭','소'],['瘙','소'],['疎','소'],['甦','소'],['梳','소'],['宵','소'],['搔','소'],['嘯','소'],['瀟','소'],['銷','소'],['溯','소'],['篠','소'],['韶','소'],['炤','소'],['愬','소'],['艘','소'],['蛸','소'],['玿','소'],['埽','소'],['翛','소'],['繅','소'],['蠨','소'],['霄','소'],['愫','소'],['慅','소'],['柖','소'],['速','속'],['束','속'],['續','속'],['俗','속'],['屬','속'],['粟','속'],['贖','속'],['涑','속'],['謖','속'],['餗','속'],['樕','속'],['蔌','속'],['觫','속'],['藚','속'],['孫','손'],['損','손'],['遜','손'],['蓀','손'],['巽','손'],['飡','손'],['飱','손'],['飧','손'],['蟀','솔'],['送','송'],['頌','송'],['松','송'],['訟','송'],['誦','송'],['宋','송'],['悚','송'],['淞','송'],['竦','송'],['鎖','쇄'],['刷','쇄'],['碎','쇄'],['灑','쇄'],['洒','쇄'],['瑣','쇄'],['衰','쇠'],['釗','쇠'],['水','수'],['手','수'],['數','수'],['樹','수'],['首','수']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR157
   Local $HanchaSet[250][2] = [['修','수'],['受','수'],['守','수'],['授','수'],['收','수'],['秀','수'],['愁','수'],['壽','수'],['帥','수'],['殊','수'],['輸','수'],['隨','수'],['需','수'],['垂','수'],['獸','수'],['睡','수'],['須','수'],['雖','수'],['誰','수'],['搜','수'],['囚','수'],['遂','수'],['銖','수'],['隋','수'],['洙','수'],['蒐','수'],['嫂','수'],['戍','수'],['髓','수'],['酬','수'],['袖','수'],['羞','수'],['狩','수'],['繡','수'],['粹','수'],['竪','수'],['穗','수'],['瘦','수'],['讎','수'],['蓚','수'],['綬','수'],['綏','수'],['琇','수'],['鬚','수'],['漱','수'],['峀','수'],['銹','수'],['嗽','수'],['邃','수'],['璲','수'],['藪','수'],['隧','수'],['讐','수'],['燧','수'],['茱','수'],['岫','수'],['脩','수'],['魗','수'],['叟','수'],['售','수'],['廋','수'],['殳','수'],['濉','수'],['睟','수'],['瞍','수'],['豎','수'],['檖','수'],['繻','수'],['穟','수'],['宿','숙'],['叔','숙'],['肅','숙'],['淑','숙'],['熟','숙'],['孰','숙'],['夙','숙'],['菽','숙'],['塾','숙'],['琡','숙'],['璹','숙'],['潚','숙'],['橚','숙'],['俶','숙'],['順','순'],['純','순'],['旬','순'],['瞬','순'],['巡','순'],['循','순'],['殉','순'],['脣','순'],['盾','순'],['舜','순'],['珣','순'],['淳','순'],['洵','순'],['荀','순'],['醇','순'],['筍','순'],['馴','순'],['詢','순'],['錞','순'],['徇','순'],['恂','순'],['栒','순'],['楯','순'],['橓','순'],['蓴','순'],['諄','순'],['蕣','순'],['漘','순'],['犉','순'],['肫','순'],['郇','순'],['鶉','순'],['術','술'],['述','술'],['戌','술'],['鉥','술'],['崇','숭'],['嵩','숭'],['崧','숭'],['瑟','슬'],['膝','슬'],['蝨','슬'],['璱','슬'],['習','습'],['濕','습'],['拾','습'],['襲','습'],['褶','습'],['隰','습'],['熠','습'],['勝','승'],['承','승'],['乘','승'],['昇','승'],['僧','승'],['升','승'],['繩','승'],['丞','승'],['陞','승'],['蠅','승'],['時','시'],['市','시'],['始','시'],['示','시'],['詩','시'],['試','시'],['視','시'],['施','시'],['是','시'],['侍','시'],['矢','시'],['屍','시'],['柴','시'],['柿','시'],['匙','시'],['媤','시'],['弑','시'],['猜','시'],['諡','시'],['豺','시'],['豕','시'],['恃','시'],['翅','시'],['蒔','시'],['蓍','시'],['尸','시'],['嘶','시'],['屎','시'],['諟','시'],['枲','시'],['塒','시'],['啻','시'],['兕','시'],['偲','시'],['鳲','시'],['釃','시'],['緦','시'],['食','식'],['植','식'],['式','식'],['識','식'],['息','식'],['飾','식'],['殖','식'],['軾','식'],['湜','식'],['熄','식'],['蝕','식'],['拭','식'],['寔','식'],['篒','식'],['埴','식'],['栻','식'],['身','신'],['神','신'],['信','신'],['新','신'],['臣','신'],['申','신'],['愼','신'],['辛','신'],['伸','신'],['晨','신'],['紳','신'],['腎','신'],['薪','신'],['迅','신'],['蜃','신'],['燼','신'],['宸','신'],['娠','신'],['呻','신'],['訊','신'],['侁','신'],['莘','신'],['藎','신'],['駪','신'],['贐','신'],['矧','신'],['甡','신'],['璶','신'],['哂','신'],['室','실'],['失','실'],['實','실'],['悉','실'],['蟋','실'],['心','심'],['深','심'],['甚','심'],['審','심'],['尋','심'],['瀋','심'],['芯','심'],['諶','심'],['沁','심'],['葚','심'],['諗','심'],['十','십'],['什','십'],['雙','쌍'],['氏','씨'],['兒','아'],['雅','아'],['我','아'],['阿','아'],['亞','아']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR158
   Local $HanchaSet[250][2] = [['芽','아'],['牙','아'],['餓','아'],['訝','아'],['衙','아'],['啞','아'],['俄','아'],['娥','아'],['峨','아'],['莪','아'],['蛾','아'],['鴉','아'],['鵝','아'],['迓','아'],['惡','악'],['岳','악'],['握','악'],['堊','악'],['愕','악'],['顎','악'],['嶽','악'],['渥','악'],['鰐','악'],['幄','악'],['鍔','악'],['鄂','악'],['齷','악'],['咢','악'],['安','안'],['案','안'],['眼','안'],['顔','안'],['岸','안'],['雁','안'],['晏','안'],['鞍','안'],['按','안'],['鮟','안'],['鴈','안'],['犴','안'],['謁','알'],['閼','알'],['斡','알'],['軋','알'],['訐','알'],['遏','알'],['頞','알'],['歹','알'],['戛','알'],['揠','알'],['暗','암'],['巖','암'],['癌','암'],['闇','암'],['庵','암'],['菴','암'],['岩','암'],['唵','암'],['黯','암'],['壓','압'],['押','압'],['鴨','압'],['狎','압'],['仰','앙'],['央','앙'],['殃','앙'],['昂','앙'],['怏','앙'],['秧','앙'],['鴦','앙'],['昻','앙'],['泱','앙'],['盎','앙'],['鞅','앙'],['卬','앙'],['愛','애'],['哀','애'],['涯','애'],['礙','애'],['艾','애'],['埃','애'],['崖','애'],['曖','애'],['隘','애'],['靄','애'],['碍','애'],['厓','애'],['餲','애'],['藹','애'],['僾','애'],['液','액'],['額','액'],['厄','액'],['扼','액'],['腋','액'],['縊','액'],['掖','액'],['頟','액'],['戹','액'],['阨','액'],['櫻','앵'],['鶯','앵'],['罌','앵'],['鸚','앵'],['嚶','앵'],['夜','야'],['野','야'],['也','야'],['耶','야'],['惹','야'],['倻','야'],['揶','야'],['冶','야'],['爺','야'],['椰','야'],['弱','약'],['藥','약'],['約','약'],['若','약'],['躍','약'],['葯','약'],['蒻','약'],['瀹','약'],['籥','약'],['禴','약'],['陽','양'],['洋','양'],['養','양'],['羊','양'],['樣','양'],['讓','양'],['壤','양'],['揚','양'],['楊','양'],['孃','양'],['襄','양'],['攘','양'],['恙','양'],['釀','양'],['癢','양'],['瘍','양'],['瀁','양'],['佯','양'],['敭','양'],['暘','양'],['禳','양'],['痒','양'],['穰','양'],['煬','양'],['颺','양'],['饟','양'],['昜','양'],['瀼','양'],['漾','양'],['鍚','양'],['語','어'],['漁','어'],['魚','어'],['御','어'],['於','어'],['圄','어'],['禦','어'],['瘀','어'],['齬','어'],['馭','어'],['敔','어'],['饇','어'],['飫','어'],['圉','어'],['億','억'],['憶','억'],['抑','억'],['臆','억'],['檍','억'],['嶷','억'],['言','언'],['焉','언'],['彦','언'],['堰','언'],['諺','언'],['偃','언'],['鰋','언'],['唁','언'],['蘖','얼'],['孼','얼'],['臬','얼'],['孽','얼'],['臲','얼'],['嚴','엄'],['掩','엄'],['奄','엄'],['儼','엄'],['淹','엄'],['俺','엄'],['閹','엄'],['揜','엄'],['渰','엄'],['業','업'],['嶪','업'],['餘','여'],['如','여'],['與','여'],['輿','여'],['汝','여'],['余','여'],['予','여'],['璵','여'],['艅','여'],['轝','여'],['歟','여'],['茹','여'],['礖','여'],['旟','여'],['鸒','여'],['洳','여'],['畬','여'],['逆','역'],['域','역'],['易','역'],['疫','역'],['亦','역'],['役','역'],['譯','역'],['驛','역'],['繹','역'],['鷊','역'],['鶂','역'],['罭','역'],['埸','역'],['嶧','역'],['棫','역'],['晹','역'],['淢','역'],['緎','역'],['懌','역'],['閾','역'],['然','연'],['煙','연'],['硏','연'],['演','연'],['燃','연'],['鉛','연'],['緣','연'],['延','연'],['沿','연'],['軟','연'],['宴','연'],['燕','연'],['硯','연'],['衍','연']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR159
   Local $HanchaSet[250][2] = [['姸','연'],['淵','연'],['鳶','연'],['捐','연'],['筵','연'],['椽','연'],['嚥','연'],['縯','연'],['烟','연'],['涓','연'],['挻','연'],['堧','연'],['沇','연'],['娟','연'],['涎','연'],['醼','연'],['蜎','연'],['掾','연'],['悁','연'],['兗','연'],['熱','열'],['悅','열'],['閱','열'],['噎','열'],['染','염'],['鹽','염'],['炎','염'],['厭','염'],['閻','염'],['焰','염'],['艶','염'],['剡','염'],['琰','염'],['苒','염'],['髥','염'],['艷','염'],['饜','염'],['焱','염'],['檿','염'],['燄','염'],['冉','염'],['葉','엽'],['燁','엽'],['曄','엽'],['饁','엽'],['爗','엽'],['英','영'],['永','영'],['榮','영'],['迎','영'],['映','영'],['營','영'],['影','영'],['詠','영'],['泳','영'],['盈','영'],['瑛','영'],['暎','영'],['嬰','영'],['渶','영'],['濚','영'],['嶸','영'],['楹','영'],['塋','영'],['潁','영'],['瀛','영'],['煐','영'],['鍈','영'],['纓','영'],['瓔','영'],['瀯','영'],['霙','영'],['穎','영'],['咏','영'],['嬴','영'],['縈','영'],['贏','영'],['郢','영'],['攖','영'],['藝','예'],['豫','예'],['譽','예'],['銳','예'],['預','예'],['芮','예'],['睿','예'],['濊','예'],['詣','예'],['曳','예'],['穢','예'],['裔','예'],['刈','예'],['乂','예'],['霓','예'],['倪','예'],['叡','예'],['汭','예'],['蘂','예'],['猊','예'],['瘞','예'],['輗','예'],['羿','예'],['橤','예'],['堄','예'],['勩','예'],['麑','예'],['鷖','예'],['蚋','예'],['蕊','예'],['翳','예'],['睨','예'],['蓺','예'],['五','오'],['午','오'],['誤','오'],['烏','오'],['悟','오'],['嗚','오'],['娛','오'],['吾','오'],['傲','오'],['汚','오'],['梧','오'],['墺','오'],['吳','오'],['奧','오'],['懊','오'],['伍','오'],['寤','오'],['鰲','오'],['塢','오'],['獒','오'],['晤','오'],['俉','오'],['蜈','오'],['鼇','오'],['筽','오'],['旿','오'],['澳','오'],['熬','오'],['敖','오'],['珸','오'],['忤','오'],['汙','오'],['隩','오'],['嗸','오'],['杇','오'],['奡','오'],['屋','옥'],['玉','옥'],['獄','옥'],['鈺','옥'],['沃','옥'],['鋈','옥'],['溫','온'],['穩','온'],['蘊','온'],['瑥','온'],['縕','온'],['瘟','온'],['韞','온'],['慍','온'],['媼','온'],['昷','온'],['醞','온'],['兀','올'],['杌','올'],['扤','올'],['卼','올'],['擁','옹'],['翁','옹'],['甕','옹'],['雍','옹'],['邕','옹'],['壅','옹'],['瓮','옹'],['饔','옹'],['癰','옹'],['灉','옹'],['雝','옹'],['廱','옹'],['顒','옹'],['瓦','와'],['臥','와'],['訛','와'],['渦','와'],['蝸','와'],['窪','와'],['蛙','와'],['窩','와'],['吪','와'],['完','완'],['緩','완'],['莞','완'],['婉','완'],['宛','완'],['玩','완'],['腕','완'],['阮','완'],['頑','완'],['豌','완'],['椀','완'],['琓','완'],['琬','완'],['翫','완'],['碗','완'],['浣','완'],['脘','완'],['婠','완'],['盌','완'],['垸','완'],['曰','왈'],['王','왕'],['往','왕'],['汪','왕'],['旺','왕'],['枉','왕'],['歪','왜'],['倭','왜'],['矮','왜'],['娃','왜'],['騧','왜'],['外','외'],['畏','외'],['巍','외'],['猥','외'],['嵬','외'],['要','요'],['曜','요'],['謠','요'],['遙','요'],['腰','요'],['搖','요'],['妖','요'],['姚','요'],['堯','요'],['耀','요'],['擾','요'],['窈','요'],['窯','요'],['邀','요'],['饒','요'],['僥','요'],['凹','요'],['拗','요'],['夭','요'],['瑤','요'],['繞','요'],['繇','요'],['橈','요']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR160
   Local $HanchaSet[250][2] = [['蟯','요'],['嶢','요'],['燿','요'],['徭','요'],['蕘','요'],['喓','요'],['殀','요'],['葽','요'],['鷕','요'],['徼','요'],['浴','욕'],['慾','욕'],['欲','욕'],['辱','욕'],['縟','욕'],['褥','욕'],['勇','용'],['用','용'],['容','용'],['庸','용'],['熔','용'],['傭','용'],['瑢','용'],['溶','용'],['鎔','용'],['鏞','용'],['踊','용'],['蓉','용'],['茸','용'],['聳','용'],['涌','용'],['冗','용'],['榕','용'],['俑','용'],['墉','용'],['甬','용'],['湧','용'],['埇','용'],['慂','용'],['鄘','용'],['宂','용'],['踴','용'],['右','우'],['友','우'],['雨','우'],['牛','우'],['優','우'],['遇','우'],['郵','우'],['憂','우'],['偶','우'],['宇','우'],['愚','우'],['羽','우'],['于','우'],['尤','우'],['又','우'],['佑','우'],['禹','우'],['祐','우'],['虞','우'],['迂','우'],['寓','우'],['嵎','우'],['隅','우'],['釪','우'],['禑','우'],['旴','우'],['玗','우'],['瑀','우'],['盂','우'],['藕','우'],['雩','우'],['紆','우'],['芋','우'],['盱','우'],['吁','우'],['俁','우'],['堣','우'],['楀','우'],['耦','우'],['訏','우'],['懮','우'],['噳','우'],['麌','우'],['麀','우'],['踽','우'],['耰','우'],['訧','우'],['旭','욱'],['昱','욱'],['煜','욱'],['郁','욱'],['頊','욱'],['栯','욱'],['彧','욱'],['勖','욱'],['稶','욱'],['稢','욱'],['薁','욱'],['勗','욱'],['燠','욱'],['運','운'],['雲','운'],['韻','운'],['云','운'],['芸','운'],['耘','운'],['殞','운'],['隕','운'],['蕓','운'],['澐','운'],['橒','운'],['熉','운'],['沄','운'],['篔','운'],['鬱','울'],['蔚','울'],['亐','울'],['菀','울'],['雄','웅'],['熊','웅'],['園','원'],['遠','원'],['元','원'],['原','원'],['院','원'],['願','원'],['圓','원'],['員','원'],['怨','원'],['援','원'],['源','원'],['苑','원'],['瑗','원'],['袁','원'],['媛','원'],['冤','원'],['猿','원'],['鴛','원'],['垣','원'],['轅','원'],['円','원'],['湲','원'],['沅','원'],['嫄','원'],['愿','원'],['洹','원'],['寃','원'],['爰','원'],['黿','원'],['騵','원'],['月','월'],['越','월'],['鉞','월'],['刖','월'],['軏','월'],['偉','위'],['位','위'],['衛','위'],['爲','위'],['圍','위'],['委','위'],['威','위'],['慰','위'],['危','위'],['胃','위'],['僞','위'],['謂','위'],['違','위'],['緯','위'],['尉','위'],['渭','위'],['韋','위'],['魏','위'],['萎','위'],['暐','위'],['葦','위'],['瑋','위'],['蔿','위'],['蝟','위'],['褘','위'],['藯','위'],['韡','위'],['喟','위'],['煒','위'],['闈','위'],['有','유'],['由','유'],['油','유'],['遊','유'],['乳','유'],['儒','유'],['遺','유'],['猶','유'],['幽','유'],['幼','유'],['柔','유'],['維','유'],['裕','유'],['誘','유'],['悠','유'],['唯','유'],['酉','유'],['愈','유'],['惟','유'],['庾','유'],['兪','유'],['踰','유'],['楡','유'],['揄','유'],['柚','유'],['游','유'],['鍮','유'],['癒','유'],['諛','유'],['諭','유'],['蹂','유'],['喩','유'],['愉','유'],['宥','유'],['孺','유'],['猷','유'],['瑜','유'],['釉','유'],['逾','유'],['萸','유'],['濡','유'],['侑','유'],['洧','유'],['楢','유'],['攸','유'],['臾','유'],['滺','유'],['秞','유'],['濰','유'],['褎','유'],['槱','유'],['楰','유'],['曘','유'],['卣','유'],['龥','유'],['籲','유'],['黝','유'],['醹','유'],['莠','유'],['輶','유'],['鮪','유'],['窬','유'],['緌','유']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR161
   Local $HanchaSet[250][2] = [['呦','유'],['囿','유'],['帷','유'],['揉','유'],['牖','유'],['羑','유'],['育','육'],['肉','육'],['毓','육'],['堉','육'],['潤','윤'],['閏','윤'],['允','윤'],['胤','윤'],['鈗','윤'],['尹','윤'],['玧','윤'],['贇','윤'],['奫','윤'],['狁','윤'],['阭','윤'],['聿','율'],['繘','율'],['驈','율'],['汩','율'],['鴥','율'],['融','융'],['絨','융'],['戎','융'],['瀜','융'],['銀','은'],['恩','은'],['隱','은'],['垠','은'],['誾','은'],['殷','은'],['慇','은'],['嚚','은'],['憖','은'],['檼','은'],['溵','은'],['訔','은'],['乙','을'],['音','음'],['飮','음'],['陰','음'],['淫','음'],['吟','음'],['蔭','음'],['邑','읍'],['泣','읍'],['揖','읍'],['挹','읍'],['浥','읍'],['應','응'],['凝','응'],['鷹','응'],['膺','응'],['意','의'],['醫','의'],['衣','의'],['議','의'],['義','의'],['依','의'],['儀','의'],['疑','의'],['矣','의'],['宜','의'],['毅','의'],['椅','의'],['擬','의'],['誼','의'],['薏','의'],['艤','의'],['倚','의'],['懿','의'],['蟻','의'],['猗','의'],['饐','의'],['扆','의'],['薿','의'],['劓','의'],['二','이'],['以','이'],['耳','이'],['移','이'],['異','이'],['已','이'],['而','이'],['夷','이'],['貳','이'],['怡','이'],['伊','이'],['珥','이'],['餌','이'],['姨','이'],['痍','이'],['爾','이'],['弛','이'],['彛','이'],['貽','이'],['飴','이'],['苡','이'],['荑','이'],['肄','이'],['邇','이'],['洟','이'],['詒','이'],['苢','이'],['樲','이'],['异','이'],['刵','이'],['桋','이'],['訑','이'],['杝','이'],['彝','이'],['頤','이'],['迤','이'],['益','익'],['翼','익'],['翊','익'],['翌','익'],['謚','익'],['瀷','익'],['弋','익'],['人','인'],['因','인'],['印','인'],['引','인'],['認','인'],['仁','인'],['忍','인'],['寅','인'],['姻','인'],['刃','인'],['蚓','인'],['靭','인'],['咽','인'],['湮','인'],['茵','인'],['靷','인'],['絪','인'],['駰','인'],['陻','인'],['仞','인'],['夤','인'],['禋','인'],['牣','인'],['訒','인'],['闉','인'],['軔','인'],['一','일'],['日','일'],['逸','일'],['壹','일'],['佾','일'],['鎰','일'],['溢','일'],['佚','일'],['馹','일'],['泆','일'],['任','임'],['壬','임'],['賃','임'],['妊','임'],['恁','임'],['荏','임'],['稔','임'],['姙','임'],['袵','임'],['衽','임'],['入','입'],['卄','입'],['剩','잉'],['孕','잉'],['仍','잉'],['芿','잉'],['陾','잉'],['子','자'],['自','자'],['字','자'],['者','자'],['資','자'],['姿','자'],['姉','자'],['紫','자'],['慈','자'],['刺','자'],['恣','자'],['玆','자'],['磁','자'],['諮','자'],['雌','자'],['滋','자'],['疵','자'],['仔','자'],['蔗','자'],['炙','자'],['煮','자'],['藉','자'],['瓷','자'],['咨','자'],['孜','자'],['茨','자'],['鼒','자'],['孶','자'],['赭','자'],['鎡','자'],['秭','자'],['訿','자'],['貲','자'],['訾','자'],['茲','자'],['胾','자'],['耔','자'],['粢','자'],['柘','자'],['胏','자'],['作','작'],['昨','작'],['酌','작'],['爵','작'],['炸','작'],['勺','작'],['灼','작'],['綽','작'],['嚼','작'],['芍','작'],['雀','작'],['鵲','작'],['斫','작'],['柞','작'],['殘','잔'],['盞','잔'],['棧','잔'],['潺','잔'],['孱','잔'],['僝','잔'],['暫','잠'],['潛','잠'],['蠶','잠'],['箴','잠'],['簪','잠'],['岑','잠'],['雜','잡'],['長','장'],['場','장'],['章','장'],['將','장'],['障','장']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR162
   Local $HanchaSet[250][2] = [['獎','장'],['裝','장'],['腸','장'],['張','장'],['壯','장'],['帳','장'],['莊','장'],['葬','장'],['臟','장'],['粧','장'],['掌','장'],['丈','장'],['藏','장'],['墻','장'],['獐','장'],['庄','장'],['璋','장'],['蔣','장'],['檣','장'],['薔','장'],['漿','장'],['醬','장'],['杖','장'],['匠','장'],['仗','장'],['贓','장'],['牆','장'],['臧','장'],['樟','장'],['欌','장'],['暲','장'],['漳','장'],['粻','장'],['斨','장'],['鏘','장'],['牂','장'],['戕','장'],['奘','장'],['萇','장'],['才','재'],['在','재'],['財','재'],['材','재'],['災','재'],['再','재'],['栽','재'],['裁','재'],['載','재'],['哉','재'],['宰','재'],['齋','재'],['滓','재'],['梓','재'],['齎','재'],['縡','재'],['渽','재'],['灾','재'],['纔','재'],['賫','재'],['爭','쟁'],['錚','쟁'],['箏','쟁'],['諍','쟁'],['貯','저'],['低','저'],['底','저'],['著','저'],['抵','저'],['沮','저'],['狙','저'],['豬','저'],['箸','저'],['咀','저'],['詛','저'],['躇','저'],['邸','저'],['觝','저'],['姐','저'],['齟','저'],['這','저'],['藷','저'],['菹','저'],['苧','저'],['雎','저'],['疽','저'],['紵','저'],['佇','저'],['杵','저'],['楮','저'],['樗','저'],['渚','저'],['猪','저'],['儲','저'],['羜','저'],['氐','저'],['罝','저'],['砠','저'],['疷','저'],['苴','저'],['羝','저'],['杼','저'],['筯','저'],['的','적'],['赤','적'],['敵','적'],['積','적'],['籍','적'],['適','적'],['績','적'],['賊','적'],['跡','적'],['寂','적'],['笛','적'],['摘','적'],['蹟','적'],['滴','적'],['嫡','적'],['謫','적'],['狄','적'],['迹','적'],['荻','적'],['迪','적'],['鏑','적'],['勣','적'],['翟','적'],['糴','적'],['趯','적'],['逖','적'],['籊','적'],['覿','적'],['踖','적'],['電','전'],['前','전'],['全','전'],['戰','전'],['傳','전'],['典','전'],['展','전'],['田','전'],['專','전'],['轉','전'],['錢','전'],['殿','전'],['甸','전'],['塡','전'],['箋','전'],['餞','전'],['顫','전'],['顚','전'],['銓','전'],['輾','전'],['纏','전'],['栓','전'],['箭','전'],['廛','전'],['癲','전'],['煎','전'],['澱','전'],['剪','전'],['氈','전'],['悛','전'],['篆','전'],['奠','전'],['筌','전'],['佺','전'],['塼','전'],['佃','전'],['鈿','전'],['鐫','전'],['詮','전'],['畑','전'],['琠','전'],['腆','전'],['翦','전'],['邅','전'],['靦','전'],['顓','전'],['闐','전'],['旃','전'],['巓','전'],['戩','전'],['荃','전'],['瘨','전'],['牷','전'],['瀍','전'],['鱣','전'],['飦','전'],['畋','전'],['節','절'],['切','절'],['絶','절'],['折','절'],['竊','절'],['截','절'],['浙','절'],['癤','절'],['晢','절'],['晣','절'],['店','점'],['點','점'],['占','점'],['漸','점'],['霑','점'],['粘','점'],['岾','점'],['鮎','점'],['点','점'],['玷','점'],['墊','점'],['坫','점'],['簟','점'],['接','접'],['蝶','접'],['摺','접'],['正','정'],['庭','정'],['定','정'],['情','정'],['停','정'],['政','정'],['程','정'],['精','정'],['靜','정'],['丁','정'],['整','정'],['淨','정'],['頂','정'],['井','정'],['亭','정'],['廷','정'],['貞','정'],['征','정'],['訂','정'],['艇','정'],['偵','정'],['呈','정'],['汀','정'],['楨','정'],['晶','정'],['鼎','정'],['鄭','정'],['禎','정'],['旌','정'],['珽','정'],['錠','정'],['挺','정'],['町','정'],['睛','정'],['碇','정'],['穽','정']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR163
   Local $HanchaSet[250][2] = [['釘','정'],['靖','정'],['幀','정'],['酊','정'],['淀','정'],['湞','정'],['炡','정'],['渟','정'],['晸','정'],['姃','정'],['鉦','정'],['諪','정'],['鋌','정'],['綎','정'],['檉','정'],['瀞','정'],['霆','정'],['玎','정'],['梃','정'],['阱','정'],['赬','정'],['裎','정'],['涏','정'],['靚','정'],['鋥','정'],['酲','정'],['桯','정'],['棖','정'],['珵','정'],['弟','제'],['第','제'],['題','제'],['濟','제'],['提','제'],['制','제'],['製','제'],['除','제'],['際','제'],['祭','제'],['帝','제'],['諸','제'],['齊','제'],['堤','제'],['劑','제'],['啼','제'],['梯','제'],['悌','제'],['蹄','제'],['醍','제'],['霽','제'],['薺','제'],['臍','제'],['隮','제'],['禔','제'],['鵜','제'],['穧','제'],['泲','제'],['懠','제'],['嚌','제'],['隄','제'],['躋','제'],['稊','제'],['瑅','제'],['娣','제'],['蠐','제'],['祖','조'],['朝','조'],['調','조'],['操','조'],['鳥','조'],['助','조'],['早','조'],['造','조'],['條','조'],['潮','조'],['組','조'],['租','조'],['照','조'],['兆','조'],['燥','조'],['弔','조'],['措','조'],['釣','조'],['彫','조'],['趙','조'],['曺','조'],['祚','조'],['詔','조'],['藻','조'],['躁','조'],['阻','조'],['凋','조'],['嘲','조'],['曹','조'],['棗','조'],['粗','조'],['肇','조'],['遭','조'],['槽','조'],['繰','조'],['糟','조'],['稠','조'],['漕','조'],['爪','조'],['眺','조'],['蚤','조'],['俎','조'],['晁','조'],['璪','조'],['雕','조'],['吊','조'],['窕','조'],['鞗','조'],['阼','조'],['螬','조'],['蓧','조'],['罩','조'],['旐','조'],['慥','조'],['鰷','조'],['殂','조'],['皂','조'],['佻','조'],['洮','조'],['鼂','조'],['蜩','조'],['蔦','조'],['竈','조'],['皁','조'],['恌','조'],['懆','조'],['徂','조'],['足','족'],['族','족'],['簇','족'],['鏃','족'],['尊','존'],['存','존'],['卒','졸'],['拙','졸'],['猝','졸'],['種','종'],['終','종'],['宗','종'],['鍾','종'],['從','종'],['縱','종'],['綜','종'],['琮','종'],['踵','종'],['慫','종'],['腫','종'],['踪','종'],['棕','종'],['淙','종'],['悰','종'],['鐘','종'],['倧','종'],['螽','종'],['尰','종'],['蹤','종'],['瑽','종'],['豵','종'],['樅','종'],['鬷','종'],['椶','종'],['左','좌'],['座','좌'],['坐','좌'],['佐','좌'],['挫','좌'],['脞','좌'],['罪','죄'],['住','주'],['主','주'],['注','주'],['晝','주'],['週','주'],['州','주'],['走','주'],['酒','주'],['朱','주'],['周','주'],['柱','주'],['珠','주'],['株','주'],['奏','주'],['洲','주'],['鑄','주'],['宙','주'],['舟','주'],['駐','주'],['疇','주'],['躊','주'],['輳','주'],['誅','주'],['做','주'],['胄','주'],['呪','주'],['嗾','주'],['廚','주'],['紂','주'],['紬','주'],['註','주'],['澍','주'],['侏','주'],['湊','주'],['炷','주'],['籌','주'],['冑','주'],['蛛','주'],['綢','주'],['酎','주'],['姝','주'],['妵','주'],['侜','주'],['幬','주'],['裯','주'],['輈','주'],['遒','주'],['咮','주'],['燽','주'],['譸','주'],['躕','주'],['邾','주'],['馵','주'],['霔','주'],['竹','죽'],['粥','죽'],['鬻','죽'],['準','준'],['遵','준'],['俊','준'],['准','준'],['駿','준'],['濬','준'],['浚','준'],['晙','준'],['峻','준'],['埈','준'],['竣','준'],['樽','준'],['蠢','준'],['畯','준'],['儁','준'],['雋','준'],['逡','준'],['寯','준'],['焌','준'],['噂','준']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR164
   Local $HanchaSet[250][2] = [['埻','준'],['蹲','준'],['隼','준'],['鱒','준'],['茁','줄'],['崒','줄'],['中','중'],['重','중'],['衆','중'],['仲','중'],['卽','즉'],['櫛','즐'],['騭','즐'],['葺','즙'],['汁','즙'],['緝','즙'],['楫','즙'],['濈','즙'],['戢','즙'],['增','증'],['證','증'],['憎','증'],['曾','증'],['症','증'],['蒸','증'],['贈','증'],['甑','증'],['拯','증'],['烝','증'],['繒','증'],['璔','증'],['紙','지'],['地','지'],['知','지'],['止','지'],['志','지'],['指','지'],['支','지'],['至','지'],['持','지'],['智','지'],['誌','지'],['之','지'],['池','지'],['枝','지'],['只','지'],['遲','지'],['脂','지'],['旨','지'],['芝','지'],['址','지'],['咫','지'],['摯','지'],['枳','지'],['祉','지'],['肢','지'],['漬','지'],['芷','지'],['砥','지'],['贄','지'],['蜘','지'],['沚','지'],['祗','지'],['趾','지'],['篪','지'],['踟','지'],['蚳','지'],['輊','지'],['鋕','지'],['坻','지'],['直','직'],['職','직'],['織','직'],['稷','직'],['稙','직'],['進','진'],['眞','진'],['珍','진'],['盡','진'],['陣','진'],['陳','진'],['震','진'],['鎭','진'],['辰','진'],['振','진'],['診','진'],['津','진'],['塵','진'],['秦','진'],['晋','진'],['嗔','진'],['疹','진'],['唇','진'],['瑨','진'],['溱','진'],['榛','진'],['軫','진'],['晉','진'],['畛','진'],['搢','진'],['瞋','진'],['縝','진'],['臻','진'],['蔯','진'],['桭','진'],['賑','진'],['縉','진'],['璡','진'],['殄','진'],['袗','진'],['鬒','진'],['螓','진'],['禛','진'],['蓁','진'],['瑱','진'],['紾','진'],['質','질'],['疾','질'],['秩','질'],['姪','질'],['窒','질'],['帙','질'],['桎','질'],['膣','질'],['叱','질'],['跌','질'],['迭','질'],['嫉','질'],['蛭','질'],['侄','질'],['瓆','질'],['垤','질'],['絰','질'],['銍','질'],['蒺','질'],['礩','질'],['挃','질'],['耋','질'],['瓞','질'],['朕','짐'],['斟','짐'],['集','집'],['執','집'],['輯','집'],['潗','집'],['鏶','집'],['徵','징'],['懲','징'],['澄','징'],['次','차'],['差','차'],['此','차'],['借','차'],['且','차'],['遮','차'],['叉','차'],['嗟','차'],['蹉','차'],['箚','차'],['磋','차'],['侘','차'],['嵯','차'],['瑳','차'],['佌','차'],['泚','차'],['佽','차'],['着','착'],['錯','착'],['捉','착'],['搾','착'],['窄','착'],['鑿','착'],['齪','착'],['斮','착'],['斲','착'],['讚','찬'],['贊','찬'],['餐','찬'],['瓚','찬'],['鑽','찬'],['璨','찬'],['燦','찬'],['撰','찬'],['纂','찬'],['饌','찬'],['篡','찬'],['竄','찬'],['簒','찬'],['澯','찬'],['纘','찬'],['粲','찬'],['爨','찬'],['巑','찬'],['湌','찬'],['察','찰'],['刹','찰'],['札','찰'],['擦','찰'],['紮','찰'],['扎','찰'],['參','참'],['慙','참'],['慘','참'],['斬','참'],['塹','참'],['站','참'],['僭','참'],['懺','참'],['讒','참'],['讖','참'],['憯','참'],['譖','참'],['毚','참'],['窓','창'],['唱','창'],['創','창'],['昌','창'],['蒼','창'],['倉','창'],['暢','창'],['滄','창'],['彰','창'],['敞','창'],['昶','창'],['槍','창'],['脹','창'],['娼','창'],['猖','창'],['廠','창'],['瘡','창'],['倡','창'],['艙','창'],['菖','창'],['愴','창'],['漲','창'],['搶','창'],['瑲','창'],['蹌','창'],['窗','창'],['鶬','창'],['悵','창'],['鬯','창'],['韔','창'],['採','채'],['債','채'],['彩','채'],['菜','채'],['埰','채'],['采','채'],['蔡','채']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR165
   Local $HanchaSet[250][2] = [['寨','채'],['綵','채'],['寀','채'],['釵','채'],['砦','채'],['瘥','채'],['瘵','채'],['蠆','채'],['責','책'],['冊','책'],['策','책'],['柵','책'],['簀','책'],['處','처'],['妻','처'],['悽','처'],['凄','처'],['萋','처'],['尺','척'],['戚','척'],['拓','척'],['斥','척'],['隻','척'],['陟','척'],['瘠','척'],['滌','척'],['脊','척'],['擲','척'],['慽','척'],['倜','척'],['蹠','척'],['剔','척'],['坧','척'],['蹢','척'],['惕','척'],['蹐','척'],['慼','척'],['跖','척'],['千','천'],['天','천'],['川','천'],['泉','천'],['踐','천'],['賤','천'],['淺','천'],['遷','천'],['薦','천'],['釧','천'],['闡','천'],['穿','천'],['擅','천'],['喘','천'],['玔','천'],['韆','천'],['仟','천'],['舛','천'],['阡','천'],['梴','천'],['遄','천'],['幝','천'],['倩','천'],['俴','천'],['鐵','철'],['哲','철'],['徹','철'],['撤','철'],['澈','철'],['喆','철'],['轍','철'],['綴','철'],['凸','철'],['輟','철'],['歠','철'],['驖','철'],['惙','철'],['啜','철'],['掇','철'],['尖','첨'],['添','첨'],['瞻','첨'],['籤','첨'],['僉','첨'],['諂','첨'],['詹','첨'],['沾','첨'],['甛','첨'],['簽','첨'],['襜','첨'],['餂','첨'],['覘','첨'],['忝','첨'],['妾','첩'],['諜','첩'],['帖','첩'],['貼','첩'],['疊','첩'],['牒','첩'],['捷','첩'],['睫','첩'],['輒','첩'],['堞','첩'],['靑','청'],['淸','청'],['請','청'],['聽','청'],['廳','청'],['晴','청'],['菁','청'],['鯖','청'],['體','체'],['滯','체'],['遞','체'],['逮','체'],['替','체'],['締','체'],['涕','체'],['諦','체'],['剃','체'],['疐','체'],['彘','체'],['棣','체'],['嚔','체'],['掣','체'],['杕','체'],['禘','체'],['蝃','체'],['遆','체'],['髢','체'],['揥','체'],['草','초'],['初','초'],['招','초'],['超','초'],['肖','초'],['礎','초'],['抄','초'],['秒','초'],['哨','초'],['焦','초'],['楚','초'],['貂','초'],['礁','초'],['硝','초'],['憔','초'],['醋','초'],['蕉','초'],['樵','초'],['梢','초'],['稍','초'],['炒','초'],['酢','초'],['椒','초'],['苕','초'],['艸','초'],['醮','초'],['剿','초'],['誚','초'],['勦','초'],['悄','초'],['譙','초'],['觸','촉'],['促','촉'],['燭','촉'],['蜀','촉'],['囑','촉'],['矗','촉'],['蠋','촉'],['躅','촉'],['寸','촌'],['村','촌'],['忖','촌'],['邨','촌'],['總','총'],['銃','총'],['聰','총'],['叢','총'],['塚','총'],['寵','총'],['蔥','총'],['摠','총'],['憁','총'],['悤','총'],['冢','총'],['潨','총'],['撮','촬'],['最','최'],['催','최'],['崔','최'],['摧','최'],['嘬','최'],['凗','최'],['秋','추'],['推','추'],['追','추'],['醜','추'],['抽','추'],['趨','추'],['鄒','추'],['楸','추'],['槌','추'],['樞','추'],['芻','추'],['墜','추'],['鰍','추'],['鎚','추'],['酋','추'],['錐','추'],['錘','추'],['椎','추'],['皺','추'],['萩','추'],['湫','추'],['諏','추'],['雛','추'],['騶','추'],['瘳','추'],['鄹','추'],['萑','추'],['緅','추'],['棸','추'],['麤','추'],['鶖','추'],['鵻','추'],['甃','추'],['縐','추'],['騅','추'],['蝤','추'],['祝','축'],['築','축'],['蓄','축'],['縮','축'],['畜','축'],['逐','축'],['丑','축'],['蹴','축'],['軸','축'],['蹙','축'],['筑','축'],['竺','축'],['蓫','축'],['柷','축'],['蹜','축'],['妯','축'],['顣','축'],['踧','축'],['春','춘'],['椿','춘'],['瑃','춘'],['賰','춘'],['杶','춘']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR166
   Local $HanchaSet[250][2] = [['出','출'],['黜','출'],['朮','출'],['怵','출'],['充','충'],['忠','충'],['蟲','충'],['衝','충'],['衷','충'],['沖','충'],['忡','충'],['珫','충'],['虫','충'],['贅','췌'],['悴','췌'],['膵','췌'],['萃','췌'],['揣','췌'],['惴','췌'],['瘁','췌'],['取','취'],['就','취'],['趣','취'],['吹','취'],['醉','취'],['臭','취'],['炊','취'],['聚','취'],['娶','취'],['翠','취'],['脆','취'],['鷲','취'],['嘴','취'],['驟','취'],['毳','취'],['測','측'],['側','측'],['惻','측'],['厠','측'],['仄','측'],['昃','측'],['廁','측'],['層','층'],['致','치'],['治','치'],['置','치'],['齒','치'],['値','치'],['恥','치'],['稚','치'],['峙','치'],['雉','치'],['幟','치'],['嗤','치'],['痔','치'],['侈','치'],['熾','치'],['癡','치'],['緻','치'],['馳','치'],['輜','치'],['痴','치'],['穉','치'],['蚩','치'],['淄','치'],['緇','치'],['梔','치'],['褫','치'],['懫','치'],['庤','치'],['寘','치'],['懥','치'],['鴟','치'],['觶','치'],['菑','치'],['哆','치'],['絺','치'],['則','칙'],['勅','칙'],['飭','칙'],['親','친'],['七','칠'],['漆','칠'],['柒','칠'],['侵','침'],['寢','침'],['針','침'],['浸','침'],['沈','침'],['枕','침'],['鍼','침'],['砧','침'],['琛','침'],['忱','침'],['綅','침'],['寑','침'],['駸','침'],['蟄','칩'],['縶','칩'],['稱','칭'],['秤','칭'],['快','쾌'],['夬','쾌'],['噲','쾌'],['他','타'],['打','타'],['妥','타'],['墮','타'],['駝','타'],['楕','타'],['惰','타'],['唾','타'],['陀','타'],['舵','타'],['朶','타'],['馱','타'],['拖','타'],['咤','타'],['紽','타'],['佗','타'],['沱','타'],['鮀','타'],['鼉','타'],['它','타'],['嶞','타'],['卓','탁'],['托','탁'],['濁','탁'],['濯','탁'],['琢','탁'],['託','탁'],['擢','탁'],['鐸','탁'],['倬','탁'],['啄','탁'],['坼','탁'],['晫','탁'],['柝','탁'],['琸','탁'],['橐','탁'],['椓','탁'],['蘀','탁'],['炭','탄'],['歎','탄'],['彈','탄'],['誕','탄'],['灘','탄'],['呑','탄'],['坦','탄'],['憚','탄'],['綻','탄'],['嘆','탄'],['嘽','탄'],['驒','탄'],['殫','탄'],['僤','탄'],['疃','탄'],['脫','탈'],['奪','탈'],['梲','탈'],['探','탐'],['貪','탐'],['耽','탐'],['眈','탐'],['醓','탐'],['嗿','탐'],['塔','탑'],['搭','탑'],['榻','탑'],['漯','탑'],['湯','탕'],['宕','탕'],['蕩','탕'],['帑','탕'],['簜','탕'],['蝪','탕'],['盪','탕'],['太','태'],['態','태'],['殆','태'],['泰','태'],['怠','태'],['颱','태'],['胎','태'],['兌','태'],['台','태'],['笞','태'],['苔','태'],['跆','태'],['汰','태'],['邰','태'],['駾','태'],['迨','태'],['宅','택'],['擇','택'],['澤','택'],['撐','탱'],['撑','탱'],['攄','터'],['土','토'],['討','토'],['吐','토'],['兔','토'],['兎','토'],['噋','톤'],['噸','톤'],['瓲','톤'],['畽','톤'],['啍','톤'],['通','통'],['統','통'],['痛','통'],['慟','통'],['桶','통'],['筒','통'],['恫','통'],['退','퇴'],['頹','퇴'],['堆','퇴'],['褪','퇴'],['腿','퇴'],['蓷','퇴'],['魋','퇴'],['隤','퇴'],['投','투'],['鬪','투'],['透','투'],['套','투'],['妬','투'],['偸','투'],['渝','투'],['特','특'],['慝','특'],['忒','특'],['闖','틈'],['波','파'],['破','파'],['派','파'],['播','파'],['把','파'],['罷','파'],['頗','파'],['坡','파'],['巴','파'],['爬','파'],['琶','파'],['芭','파'],['跛','파'],['婆','파'],['杷','파']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR167
   Local $HanchaSet[250][2] = [['擺','파'],['嶓','파'],['皤','파'],['豝','파'],['簸','파'],['板','판'],['判','판'],['版','판'],['販','판'],['阪','판'],['辦','판'],['坂','판'],['鈑','판'],['瓣','판'],['昄','판'],['八','팔'],['捌','팔'],['叭','팔'],['敗','패'],['貝','패'],['霸','패'],['沛','패'],['牌','패'],['悖','패'],['唄','패'],['佩','패'],['稗','패'],['浿','패'],['覇','패'],['狽','패'],['旆','패'],['粺','패'],['茷','패'],['孛','패'],['彭','팽'],['膨','팽'],['澎','팽'],['烹','팽'],['祊','팽'],['伻','팽'],['愎','퍅'],['便','편'],['篇','편'],['編','편'],['片','편'],['偏','편'],['遍','편'],['扁','편'],['鞭','편'],['騙','편'],['翩','편'],['徧','편'],['褊','편'],['諞','편'],['貶','폄'],['平','평'],['評','평'],['坪','평'],['萍','평'],['枰','평'],['苹','평'],['閉','폐'],['肺','폐'],['廢','폐'],['弊','폐'],['幣','폐'],['蔽','폐'],['斃','폐'],['陛','폐'],['嬖','폐'],['吠','폐'],['敝','폐'],['砲','포'],['包','포'],['布','포'],['胞','포'],['捕','포'],['浦','포'],['抱','포'],['飽','포'],['怖','포'],['鋪','포'],['抛','포'],['鮑','포'],['葡','포'],['疱','포'],['庖','포'],['逋','포'],['褒','포'],['袍','포'],['匍','포'],['脯','포'],['泡','포'],['圃','포'],['哺','포'],['咆','포'],['蒲','포'],['佈','포'],['苞','포'],['匏','포'],['麃','포'],['襃','포'],['餔','포'],['炰','포'],['炮','포'],['暴','폭'],['爆','폭'],['幅','폭'],['曝','폭'],['瀑','폭'],['表','표'],['票','표'],['標','표'],['漂','표'],['杓','표'],['豹','표'],['慓','표'],['飄','표'],['剽','표'],['俵','표'],['彪','표'],['驃','표'],['瓢','표'],['飇','표'],['鑣','표'],['滮','표'],['瀌','표'],['飆','표'],['摽','표'],['殍','표'],['嘌','표'],['儦','표'],['品','품'],['稟','품'],['風','풍'],['豊','풍'],['楓','풍'],['諷','풍'],['豐','풍'],['灃','풍'],['疲','피'],['避','피'],['被','피'],['皮','피'],['彼','피'],['披','피'],['陂','피'],['詖','피'],['必','필'],['筆','필'],['畢','필'],['匹','필'],['弼','필'],['疋','필'],['苾','필'],['珌','필'],['馝','필'],['佖','필'],['鉍','필'],['怭','필'],['駜','필'],['鞸','필'],['觱','필'],['飶','필'],['逼','핍'],['乏','핍'],['偪','핍'],['下','하'],['夏','하'],['河','하'],['荷','하'],['賀','하'],['何','하'],['霞','하'],['遐','하'],['蝦','하'],['瑕','하'],['廈','하'],['厦','하'],['昰','하'],['鰕','하'],['騢','하'],['芐','하'],['呀','하'],['嘏','하'],['菏','하'],['學','학'],['鶴','학'],['虐','학'],['壑','학'],['謔','학'],['瘧','학'],['翯','학'],['韓','한'],['漢','한'],['寒','한'],['限','한'],['閑','한'],['恨','한'],['汗','한'],['旱','한'],['翰','한'],['邯','한'],['罕','한'],['悍','한'],['澣','한'],['瀚','한'],['閒','한'],['扞','한'],['暵','한'],['哻','한'],['熯','한'],['僩','한'],['割','할'],['轄','할'],['劼','할'],['舝','할'],['含','함'],['陷','함'],['咸','함'],['艦','함'],['緘','함'],['涵','함'],['檻','함'],['喊','함'],['函','함'],['銜','함'],['鹹','함'],['啣','함'],['諴','함'],['鬫','함'],['菡','함'],['合','합'],['盒','합'],['蛤','합'],['闔','합'],['閤','합'],['哈','합'],['嗑','합'],['柙','합'],['盍','합'],['航','항'],['港','항'],['抗','항'],['恒','항'],['項','항'],['巷','항'],['沆','항'],['亢','항'],['缸','항']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR168
   Local $HanchaSet[250][2] = [['肛','항'],['桁','항'],['姮','항'],['杭','항'],['嫦','항'],['伉','항'],['頏','항'],['海','해'],['害','해'],['解','해'],['亥','해'],['奚','해'],['該','해'],['諧','해'],['骸','해'],['楷','해'],['偕','해'],['駭','해'],['懈','해'],['咳','해'],['邂','해'],['蟹','해'],['瀣','해'],['孩','해'],['垓','해'],['陔','해'],['醢','해'],['核','핵'],['劾','핵'],['覈','핵'],['幸','행'],['行','행'],['杏','행'],['荇','행'],['倖','행'],['悻','행'],['向','향'],['鄕','향'],['香','향'],['響','향'],['享','향'],['嚮','향'],['饗','향'],['珦','향'],['餉','향'],['許','허'],['虛','허'],['噓','허'],['墟','허'],['栩','허'],['憲','헌'],['獻','헌'],['軒','헌'],['櫶','헌'],['巘','헌'],['歇','헐'],['驗','험'],['險','험'],['玁','험'],['獫','험'],['革','혁'],['爀','혁'],['赫','혁'],['奕','혁'],['侐','혁'],['洫','혁'],['焃','혁'],['虩','혁'],['衋','혁'],['現','현'],['賢','현'],['顯','현'],['懸','현'],['玄','현'],['絃','현'],['縣','현'],['弦','현'],['峴','현'],['鉉','현'],['炫','현'],['衒','현'],['眩','현'],['絢','현'],['睍','현'],['俔','현'],['晛','현'],['玹','현'],['舷','현'],['泫','현'],['鞙','현'],['儇','현'],['嬛','현'],['昡','현'],['駽','현'],['莧','현'],['怰','현'],['血','혈'],['穴','혈'],['孑','혈'],['頁','혈'],['絜','혈'],['嫌','혐'],['協','협'],['脅','협'],['峽','협'],['陜','협'],['俠','협'],['挾','협'],['狹','협'],['頰','협'],['脇','협'],['浹','협'],['夾','협'],['鋏','협'],['莢','협'],['冾','협'],['恊','협'],['兄','형'],['形','형'],['刑','형'],['衡','형'],['亨','형'],['螢','형'],['型','형'],['馨','형'],['邢','형'],['瑩','형'],['炯','형'],['瀅','형'],['荊','형'],['灐','형'],['烱','형'],['滎','형'],['泂','형'],['逈','형'],['珩','형'],['鎣','형'],['熒','형'],['惠','혜'],['慧','혜'],['兮','혜'],['彗','혜'],['醯','혜'],['暳','혜'],['蹊','혜'],['鞋','혜'],['蕙','혜'],['嘒','혜'],['憓','혜'],['盻','혜'],['徯','혜'],['傒','혜'],['譓','혜'],['號','호'],['湖','호'],['好','호'],['戶','호'],['護','호'],['呼','호'],['浩','호'],['豪','호'],['胡','호'],['虎','호'],['乎','호'],['互','호'],['毫','호'],['濠','호'],['壕','호'],['扈','호'],['昊','호'],['鎬','호'],['澔','호'],['皓','호'],['祜','호'],['晧','호'],['糊','호'],['弧','호'],['狐','호'],['瑚','호'],['琥','호'],['蒿','호'],['葫','호'],['芦','호'],['壺','호'],['蝴','호'],['頀','호'],['顥','호'],['縞','호'],['灝','호'],['瓠','호'],['滸','호'],['岵','호'],['淏','호'],['濩','호'],['薅','호'],['皥','호'],['皜','호'],['怙','호'],['嘑','호'],['或','혹'],['惑','혹'],['酷','혹'],['婚','혼'],['混','혼'],['魂','혼'],['昏','혼'],['渾','혼'],['琿','혼'],['惛','혼'],['忽','홀'],['笏','홀'],['惚','홀'],['紅','홍'],['洪','홍'],['鴻','홍'],['弘','홍'],['泓','홍'],['哄','홍'],['訌','홍'],['虹','홍'],['烘','홍'],['汞','홍'],['鉷','홍'],['鬨','홍'],['洚','홍'],['火','화'],['話','화'],['花','화'],['和','화'],['畫','화'],['化','화'],['貨','화'],['華','화'],['禍','화'],['禾','화'],['靴','화'],['樺','화'],['嬅','화'],['譁','화'],['畵','화'],['確','확'],['穫','확'],['擴','확'],['碻','확'],['攫','확'],['雘','확'],['矍','확'],['患','환'],['歡','환'],['環','환']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR169
   Local $HanchaSet[228][2] = [['還','환'],['換','환'],['丸','환'],['幻','환'],['煥','환'],['桓','환'],['宦','환'],['鰥','환'],['喚','환'],['驩','환'],['奐','환'],['晥','환'],['紈','환'],['渙','환'],['芄','환'],['鐶','환'],['鍰','환'],['豢','환'],['逭','환'],['睆','환'],['懽','환'],['圜','환'],['活','활'],['滑','활'],['猾','활'],['闊','활'],['豁','활'],['濶','활'],['黃','황'],['況','황'],['皇','황'],['荒','황'],['晃','황'],['滉','황'],['煌','황'],['徨','황'],['遑','황'],['恍','황'],['慌','황'],['凰','황'],['惶','황'],['篁','황'],['榥','황'],['湟','황'],['潢','황'],['璜','황'],['簧','황'],['蝗','황'],['幌','황'],['愰','황'],['晄','황'],['隍','황'],['喤','황'],['堭','황'],['媓','황'],['會','회'],['回','회'],['灰','회'],['懷','회'],['悔','회'],['廻','회'],['淮','회'],['檜','회'],['賄','회'],['誨','회'],['蛔','회'],['膾','회'],['繪','회'],['晦','회'],['徊','회'],['恢','회'],['匯','회'],['澮','회'],['茴','회'],['獪','회'],['頮','회'],['洄','회'],['薈','회'],['獲','획'],['劃','획'],['擭','획'],['橫','횡'],['鐄','횡'],['宖','횡'],['孝','효'],['效','효'],['曉','효'],['嚆','효'],['爻','효'],['酵','효'],['哮','효'],['驍','효'],['斅','효'],['梟','효'],['淆','효'],['涍','효'],['肴','효'],['鴞','효'],['効','효'],['嘵','효'],['傚','효'],['囂','효'],['殽','효'],['虓','효'],['後','후'],['厚','후'],['候','후'],['侯','후'],['喉','후'],['后','후'],['逅','후'],['朽','후'],['嗅','후'],['吼','후'],['帿','후'],['珝','후'],['煦','후'],['酗','후'],['餱','후'],['鍭','후'],['詡','후'],['訓','훈'],['勳','훈'],['熏','훈'],['薰','훈'],['壎','훈'],['暈','훈'],['焄','훈'],['塤','훈'],['勛','훈'],['燻','훈'],['纁','훈'],['鑂','훈'],['薨','훙'],['喧','훤'],['暄','훤'],['萱','훤'],['煊','훤'],['貆','훤'],['諼','훤'],['咺','훤'],['諠','훤'],['毁','훼'],['喙','훼'],['卉','훼'],['虺','훼'],['揮','휘'],['輝','휘'],['徽','휘'],['麾','휘'],['彙','휘'],['諱','휘'],['煇','휘'],['暉','휘'],['翬','휘'],['休','휴'],['携','휴'],['烋','휴'],['虧','휴'],['畦','휴'],['觿','휴'],['睢','휴'],['咻','휴'],['攜','휴'],['恤','휼'],['譎','휼'],['鷸','휼'],['遹','휼'],['凶','흉'],['胸','흉'],['匈','흉'],['兇','흉'],['洶','흉'],['訩','흉'],['黑','흑'],['欣','흔'],['痕','흔'],['昕','흔'],['炘','흔'],['釁','흔'],['忻','흔'],['屹','흘'],['吃','흘'],['紇','흘'],['訖','흘'],['齕','흘'],['迄','흘'],['汔','흘'],['仡','흘'],['欽','흠'],['歆','흠'],['欠','흠'],['吸','흡'],['洽','흡'],['恰','흡'],['翕','흡'],['潝','흡'],['興','흥'],['希','희'],['喜','희'],['稀','희'],['戲','희'],['熙','희'],['姬','희'],['噫','희'],['熹','희'],['憙','희'],['嬉','희'],['羲','희'],['禧','희'],['犧','희'],['熺','희'],['凞','희'],['僖','희'],['囍','희'],['憘','희'],['戱','희'],['晞','희'],['曦','희'],['饎','희'],['咥','희'],['嘻','희'],['爔','희'],['豨','희'],['餼','희'],['橲','희'],['詰','힐'],['襭','힐']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR170
   Local $HanchaSet[55][2] = [['亜','아'],['仮','가'],['会','회'],['価','가'],['倹','검'],['偽','위'],['剣','검'],['勧','권'],['区','구'],['医','의'],['厳','엄'],['囲','위'],['図','도'],['圧','압'],['塩','염'],['壱','일'],['学','학'],['峡','협'],['径','경'],['応','응'],['怪','괴'],['恵','혜'],['悪','악'],['拠','거'],['挙','거'],['挟','협'],['旧','구'],['栄','영'],['検','검'],['楽','락'],['権','권'],['欧','구'],['歓','환'],['殴','구'],['気','기'],['狭','협'],['画','화'],['県','현'],['穏','온'],['経','경'],['継','계'],['縁','연'],['茎','경'],['虚','허'],['蛍','형'],['覚','각'],['観','관'],['軽','경'],['郷','향'],['険','험'],['隠','은'],['顕','현'],['駅','역'],['駆','구'],['験','험']]
   For $i = 0 To Ubound($HanchaSet, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $HanchaSet[$i][0] & "\E",$HanchaSet[$i][1])
   Next
   ClipPut($Hangul)

   ;FKR171
   If StringInStr($Hangul,"不")>0 THEN
	  StringReplace($Hangul,"不","X")
	  $PUL_Count = @Extended
	  For $i=1 to $PUL_Count
		 $PUL_Str = StringMid($Hangul,StringInStr($Hangul,"不",0,1)+1,1) ; Get character after "不"
		 Local $aArray = StringToASCIIArray($PUL_Str)
		 If $aArray[0]>45795 AND $aArray[0]<46384 Then
			$Hangul=StringReplace($Hangul,"不","부",1)
		 Else
			If $aArray[0]>51087 AND $aArray[0]<51676 Then
			   $Hangul=StringReplace($Hangul,"不","부",1)
			Else
			   $Hangul=StringReplace($Hangul,"不","불",1)
			EndIf
		 EndIf
	  Next
   EndIf

   ;FKR172
   If StringInStr($Hangul,"列")>0 THEN
	  StringReplace($Hangul,"列","X")
	  $R_Initial_Count = @Extended
	  For $i=1 to $R_Initial_Count
		 $R_Initial_Str = StringMid($Hangul,StringInStr($Hangul,"列",0,1)-1,1)
		 ClipPut($R_Initial_Str)
		 IdentifyCoda()
		 $CodaValue = ClipGet()
		 If $CodaValue = "0" OR $CodaValue = "4" OR StringToBinary($R_Initial_Str,4)<100 Then
			$Hangul=StringReplace($Hangul,"列","열",1)
		 Else
			$Hangul=StringReplace($Hangul,"列","렬",1)
		 EndIf
	  Next
   EndIf

   ;FKR173
   If StringInStr($Hangul,"烈")>0 THEN
	  StringReplace($Hangul,"烈","X")
	  $R_Initial_Count = @Extended
	  For $i=1 to $R_Initial_Count
		 $R_Initial_Str = StringMid($Hangul,StringInStr($Hangul,"烈",0,1)-1,1)
		 ClipPut($R_Initial_Str)
		 IdentifyCoda()
		 $CodaValue = ClipGet()
		 If $CodaValue = "0" OR $CodaValue = "4" OR StringToBinary($R_Initial_Str,4)<100 Then
			$Hangul=StringReplace($Hangul,"烈","열",1)
		 Else
			$Hangul=StringReplace($Hangul,"烈","렬",1)
		 EndIf
	  Next
   EndIf

   ;FKR174
   If StringInStr($Hangul,"裂")>0 THEN
	  StringReplace($Hangul,"裂","X")
	  $R_Initial_Count = @Extended
	  For $i=1 to $R_Initial_Count
		 $R_Initial_Str = StringMid($Hangul,StringInStr($Hangul,"裂",0,1)-1,1)
		 ClipPut($R_Initial_Str)
		 IdentifyCoda()
		 $CodaValue = ClipGet()
		 If $CodaValue = "0" OR $CodaValue = "4" OR StringToBinary($R_Initial_Str,4)<100 Then
			$Hangul=StringReplace($Hangul,"裂","열",1)
		 Else
			$Hangul=StringReplace($Hangul,"裂","렬",1)
		 EndIf
	  Next
   EndIf

   ;FKR175
   If StringInStr($Hangul,"劣")>0 THEN
	  StringReplace($Hangul,"劣","X")
	  $R_Initial_Count = @Extended
	  For $i=1 to $R_Initial_Count
		 $R_Initial_Str = StringMid($Hangul,StringInStr($Hangul,"劣",0,1)-1,1)
		 ClipPut($R_Initial_Str)
		 IdentifyCoda()
		 $CodaValue = ClipGet()
		 If $CodaValue = "0" OR $CodaValue = "4" OR StringToBinary($R_Initial_Str,4)<100 Then
			$Hangul=StringReplace($Hangul,"劣","열",1)
		 Else
			$Hangul=StringReplace($Hangul,"劣","렬",1)
		 EndIf
	  Next
   EndIf

   ;FKR176
   If StringInStr($Hangul,"律")>0 THEN
	  StringReplace($Hangul,"律","X")
	  $R_Initial_Count = @Extended
	  For $i=1 to $R_Initial_Count
		 $R_Initial_Str = StringMid($Hangul,StringInStr($Hangul,"律",0,1)-1,1)
		 ClipPut($R_Initial_Str)
		 IdentifyCoda()
		 $CodaValue = ClipGet()
		 If $CodaValue = "0" OR $CodaValue = "4" OR StringToBinary($R_Initial_Str,4)<100 Then
			$Hangul=StringReplace($Hangul,"律","율",1)
		 Else
			$Hangul=StringReplace($Hangul,"律","률",1)
		 EndIf
	  Next
   EndIf

   ;FKR177
   If StringInStr($Hangul,"率")>0 THEN
	  StringReplace($Hangul,"率","X")
	  $R_Initial_Count = @Extended
	  For $i=1 to $R_Initial_Count
		 $R_Initial_Str = StringMid($Hangul,StringInStr($Hangul,"率",0,1)-1,1)
		 ClipPut($R_Initial_Str)
		 IdentifyCoda()
		 $CodaValue = ClipGet()
		 If $CodaValue = "0" OR $CodaValue = "4" OR StringToBinary($R_Initial_Str,4)<100 Then
			$Hangul=StringReplace($Hangul,"率","율",1)
		 Else
			$Hangul=StringReplace($Hangul,"率","률",1)
		 EndIf
	  Next
   EndIf

   ;FKR178
   If StringInStr($Hangul,"慄")>0 THEN
	  StringReplace($Hangul,"慄","X")
	  $R_Initial_Count = @Extended
	  For $i=1 to $R_Initial_Count
		 $R_Initial_Str = StringMid($Hangul,StringInStr($Hangul,"慄",0,1)-1,1)
		 ClipPut($R_Initial_Str)
		 IdentifyCoda()
		 $CodaValue = ClipGet()
		 If $CodaValue = "0" OR $CodaValue = "4" OR StringToBinary($R_Initial_Str,4)<100 Then
			$Hangul=StringReplace($Hangul,"慄","율",1)
		 Else
			$Hangul=StringReplace($Hangul,"慄","률",1)
		 EndIf
	  Next
   EndIf

   ;FKR179
   If StringInStr($Hangul,"栗")>0 THEN
	  StringReplace($Hangul,"栗","X")
	  $R_Initial_Count = @Extended
	  For $i=1 to $R_Initial_Count
		 $R_Initial_Str = StringMid($Hangul,StringInStr($Hangul,"栗",0,1)-1,1)
		 ClipPut($R_Initial_Str)
		 IdentifyCoda()
		 $CodaValue = ClipGet()
		 If $CodaValue = "0" OR $CodaValue = "4" OR StringToBinary($R_Initial_Str,4)<100 Then
			$Hangul=StringReplace($Hangul,"栗","율",1)
		 Else
			$Hangul=StringReplace($Hangul,"栗","률",1)
		 EndIf
	  Next
   EndIf

;FKR180 (KATAKANA)
   $Hangul = StringReplace($Hangul,"ー","")
   Local $kana[222][2] = [[' カン',' 간'],[' キャ','갸'],[' キュ','규'],[' キョ','교'],[' キン','긴'],[' クン','군'],[' ケン','겐'],[' コン','곤'],[' タン','단'],[' チャ','자'],[' チュ','주'],[' チョ','조'],[' チン','진'],[' テン','덴'],[' トン','돈'],['イェン','옌'],['ヴァン','반'],['ウィン','윈'],['ヴィン','빈'],['ウェン','웬'],['ヴェン','벤'],['ウォン','원'],['ヴォン','본'],['シェン','센'],['ジェン','젠'],['チェン','첸'],['ツァン','찬'],['ツィン','친'],['ツェン','첸'],['ツォン','촌'],['ティン','틴'],['ディン','딘'],['トゥン','툰'],['ドゥン','둔'],['ファン','판'],['フィン','핀'],['フェン','펜'],['フォン','폰'],[' カ','가'],[' キ','기'],[' ク','구'],[' ケ','게'],[' コ','고'],[' タ','다'],[' チ','지'],[' テ','데'],[' ト','도'],['アン','안'],['イェ','예'],['イン','인'],['ヴァ','바'],['ウィ','위'],['ヴィ','비'],['ウェ','웨'],['ヴェ','베'],['ウォ','워'],['ヴォ','보'],['ウン','운'],['ヴン','분'],['エン','엔'],['オン','온'],['カン','칸'],['キャ','캬'],['ギャ','갸'],['キュ','큐'],['ギュ','규'],['キョ','쿄'],['ギョ','교'],['キン','킨'],['クン','쿤'],['ケン','켄'],['コン','콘'],['サン','산'],['シェ','세'],['ジェ','제'],['シャ','샤'],['シュ','슈'],['ショ','쇼'],['シン','신'],['スン','슨'],['セン','센'],['ソン','손'],['タン','탄'],['チェ','체'],['チャ','차'],['チュ','추'],['チョ','초'],['チン','친'],['ツァ','차'],['ツィ','치'],['ツェ','체'],['ツォ','초'],['ツン','쓴'],['ティ','티'],['ディ','디'],['テン','텐'],['トゥ','투'],['ドゥ','두'],['トン','톤'],['ナン','난'],['ニャ','냐'],['ニュ','뉴'],['ニョ','뇨'],['ニン','닌'],['ヌン','눈'],['ネン','넨'],['ノン','논'],['ハン','한'],['ヒャ','햐'],['ビャ','뱌'],['ピャ','퍄'],['ヒュ','휴'],['ビュ','뷰'],['ピュ','퓨'],['ヒョ','효'],['ビョ','뵤'],['ピョ','표'],['ヒン','힌'],['ファ','파'],['フィ','피'],['フェ','페'],['フォ','포'],['フン','훈'],['ヘン','헨'],['ホン','혼'],['マン','만'],['ミャ','먀'],['ミュ','뮤'],['ミョ','묘'],['ミン','민'],['ムン','문'],['メン','멘'],['モン','몬'],['ヤン','얀'],['ユン','윤'],['ヨン','욘'],['ラン','란'],['リャ','랴'],['リュ','류'],['リョ','료'],['リン','린'],['ルン','룬'],['レン','렌'],['ロン','론'],['ワン','완'],['ヰン','인'],['ヱン','엔'],['ヲン','온'],['ア','아'],['イ','이'],['ウ','우'],['ヴ','부'],['エ','에'],['オ','오'],['カ','카'],['ガ','가'],['キ','키'],['ギ','기'],['ク','쿠'],['グ','구'],['ケ','케'],['ゲ','게'],['コ','코'],['ゴ','고'],['サ','사'],['ザ','자'],['シ','시'],['ジ','지'],['ス','스'],['ズ','즈'],['セ','세'],['ゼ','제'],['ソ','소'],['ゾ','조'],['タ','타'],['ダ','다'],['チ','치'],['ヂ','지'],['ッ','ㅅ'],['ツ','쓰'],['ヅ','즈'],['テ','테'],['デ','데'],['ト','토'],['ド','도'],['ナ','나'],['ニ','니'],['ヌ','누'],['ネ','네'],['ノ','노'],['ハ','하'],['バ','바'],['パ','파'],['ヒ','히'],['ビ','비'],['ピ','피'],['フ','후'],['ブ','부'],['プ','푸'],['ヘ','헤'],['ベ','베'],['ペ','페'],['ホ','호'],['ボ','보'],['ポ','포'],['マ','마'],['ミ','미'],['ム','무'],['メ','메'],['モ','모'],['ヤ','야'],['ユ','유'],['ヨ','요'],['ラ','라'],['リ','리'],['ル','루'],['レ','레'],['ロ','로'],['ワ','와'],['ヰ','이'],['ヱ','에'],['ヲ','오']]
   For $i = 0 To Ubound($kana, 1) - 1
   $Hangul = StringRegExpReplace($Hangul, "\Q" & $kana[$i][0] & "\E",$kana[$i][1])
   Next
   ClipPut($Hangul)


$Hangul = StringStripWS(StringReplace($Hangul,@LF&" ",@LF),$STR_STRIPLEADING + $STR_STRIPTRAILING + $STR_STRIPSPACES)
ClipPut($Hangul)

EndFunc

Func IdentifyCoda()
   $TargetSyl = ClipGet()
   Local $aArray = StringToASCIIArray ($TargetSyl)
   $Coda = MOD(Number($aArray[0]-44032),28)
   ClipPut($Coda)
EndFunc