LoginSignup
0
1

More than 1 year has passed since last update.

Filemakerで漢字をハングルに変換する。

Posted at

韓国語を扱うさいに、漢字をハングルにしたいという需要が高まっています。
Filemakerでそれを実現するには、どうしたら良いでしょうか。
プログラミングのできない私は、基本的な技術でそれを解決しようと思いました。

考え方1 漢字をデータベース化してループで回す。

シンプルに、辞書として漢字テーブルを作り、「漢字」「ハングル」のフィールドを作ります。
そしてハングルにしたいテキストをループでグルグルと切り取って漢字を検索しハングルを当てていく、という手法です。
これは、作るのは簡単ですが、明らかに重たくなりそうです。

考え方2 Substitute ( テキスト ; 検索テキスト ; 置換テキスト )で置換していく

これで、ごりごり置換すればできると思います。
最初は「가」。該当する漢字は、「家 歌 可 加 價 假 街 暇 架 賈 伽 柯 迦 軻 嘉 駕 嫁 稼 哥 呵 苛 袈 訶 枷 珂 茄 痂 跏 斝 葭 哿 檟 珈 椵 叚 舸 笳 価 髂 猳 坷 謌 瘸 鴐 拁 榎 牁 豭 毠 榢 溊 仮 咖 贾 傢 驾 笴 戓 宊 诃 徦 蚵 牫 岢 渮 麚 婽 耞 尜 樖 癿 轲 镓 槚 糘 泇 牱 彁 戨 滒 炣 酠 鉫 鎵 斚 鉲 鴚 幏 犌 貑 魺 胢 跒 鲄 鎶」
よって、

Substitute ( $text ; ["家";"가"] ; ["歌";"가"] ; ["可";"가"] ; ["加";"가"] ; ["價";"가"] ; ["假";"가"] ; ["街";"가"] ; ["暇";"가"] ; ["架";"가"] ; ["賈";"가"] ; ["伽";"가"] ; ["柯";"가"] ; ["迦";"가"] …………)

とやっていけば、問題は解決出来そうです。
しかし、漢字は澎大にあって、この方法では、かなりの長文になります。
もっと圧縮できないでしょうか?

そこで、とりあえず、圧縮するためのカスタム関数を作ることにしました。

関数名[_SubstituteExt(text, searchExt, change)]
/*
Substitute (  ) の拡張版です。
検索する文字列を複数設定できます。
文字列は ',' で区切ってください。
スペースは無視されます。
例:
 _SubstituteExt ( "あいうえお"; "あ, い, う"; "@" )  => @@@えお
*/
Let (
   [
    $text = text;
    $search = searchExt;
    $change= change;

    $search = TrimAll ( $search ; 1 ; 3 );
    $search = Substitute ( $search ; "," ; "¶" );
    $text = Substitute ( $text ; GetValue ( $search ; 1 ) ; $change );
    $search = If ( ValueCount ( $search ) > 1 ; Substitute ( $search ; GetValue ( $search ; 1 )  & "¶" ; "" ) ; ""  )
   ];

   Case (
        ValueCount ( $search )   ≥  1 ; _SubstituteExt ( $text ; $search; $change ) ;
        IsEmpty ( $search ) ; $text;
        $text
  )
)

_SubstituteExt(text, searchExt, change)の説明は省略します。
_SubstituteExt(text, searchExt, change)を使って漢字を「가」に変換すると、

_SubstituteExt($text,"家,歌,可,加,價,假,街,暇,架,賈,伽,柯,迦,軻,嘉,駕,嫁,稼,哥,呵,苛,袈,訶,枷,珂,茄,痂,跏,斝,葭,哿,檟,珈,椵,叚,舸,笳,価,髂,猳,坷,謌,瘸,鴐,拁,榎,牁,豭,毠,榢,溊,仮,咖,贾,傢,驾,笴,戓,宊,诃,徦,蚵,牫,岢,渮,麚,婽,耞,尜,樖,癿,轲,镓,槚,糘,泇,牱,彁,戨,滒,炣,酠,鉫,鎵,斚,鉲,鴚,幏,犌,貑,魺,胢,跒,鲄,鎶" , "가")

スリムになりました。これを「각」「간」「갈」「감」「갑」「강」…………と変換していけば、うまくいきます。

カスタム関数で使いたい。

上記の方法は、スクリプトで書けば動くものですが、もっと簡単に使いたいと思うようになりました。
そこで、カスタム関数で漢字をハングルにしたいと思います。
理屈は上記の方法の通りですが、問題があります。それは、文字数が3万字に限定されることです。
それで漢字は何文字あるのかというと、数えてないのですが、1万字以上になります。
カスタム関数「_SubstituteExt」で文字数を減らしたとはいえ、計算式の文字数制限(30,000 文字)を越えてしまいます。
そこで、少し頭をひねって、カスタム関数を分割することにしました。
辞書としてのカスタム関数を作り、メインのカスタム関数から呼び出す方法です。
メインの関数「_Hangul(text)」
辞書の関数「_HangulDB1(text)」
辞書の関数「_HangulDB1(text)」

メインの関数「_Hangul(text)」です。

//漢字をハングルに変換します。
//カスタム関数 _HangulDB1( ), _HangulDB2( ), _SubstituteExt( ) を同時にインストールしてください。


Let (
[
$text = text;
$text = _HangulDB1 ( $text );
$text = _HangulDB2 ( $text )

];

$text

)

辞書の関数「_HangulDB1(text)」です。

// カスタム関数 _Hangul ( ) 、  _HangulDB2 (  )、 _SubstituteExt ( ) といっしょにインストールしてください。
// このカスタム関数は _Hangul ( ) のデータストレージです。
// このカスタム関数を直接呼び出さないでください。

Let (
[
$text = text;
$text=_SubstituteExt($text;"家,歌,可,加,佳,價,假,街,暇,架,伽,柯,迦,軻,嘉,駕,嫁,稼,哥,呵,苛,袈,訶,枷,珂,茄,痂,跏,斝,葭,哿,檟,珈,椵,叚,舸,笳,価,髂,猳,坷,謌,瘸,鴐,拁,榎,牁,豭,毠,榢,溊,仮,咖,贾,傢,驾,笴,戓,宊,诃,徦,蚵,牫,岢,渮,麚,婽,耞,尜,樖,癿,轲,镓,槚,糘,泇,牱,彁,戨,滒,炣,酠,鉫,鎵,斚,鉲,鴚,幏,犌,貑,魺,胢,跒,鲄,鎶";"가");
$text=_SubstituteExt($text;"各,角,覺,刻,閣,脚,却,珏,恪,殼,慤,桷,卻,阁,愨,搉,礐,殻,胳,茖,傕,崅,覚,腳,咯,隺,擱,佫,墧,埆,斍,㴶,㩁,觉,壳,搁,玨,鵤,捔,袼,斠,櫊,毃,覐,鵅,愙,踋";"각");
$text=_SubstituteExt($text;"間,干,簡,看,懇,幹,刊,肝,姦,艮,杆,諫,奸,艱,揀,澗,竿,墾,癎,侃,柬,磵,桿,稈,衎,榦,玕,蕑,慳,簳,间,恳,赶,趕,简,暕,迀,盰,顅,芉,貇,囏,偘,㿻,涆,鬝,栞,倝,癇,艰,擀,鶫,豤,繝,拣,姧,谏,茛,硍,馯,涧,鐧,鐗,羟,蕳,裉,锏,婜,靬,秆,攼,羥,葌,鬜,䵟,忓,檊,虷,鳱,痫,龈,粯,襉,衦,孯,䯎,皯,筸,癷,悭,䧲,裥,墹,踬,礀,襇";"간");
$text=_SubstituteExt($text;"渴,葛,鞨,竭,喝,褐,曷,碣,蝎,乫,羯,秸,楬,噶,蠍,暍,渇,輵,轕,鍻,鹖,圿,嵑,嶱,扴,擖,毼,獦,礍,鞂,騔,骱";"갈");
$text=_SubstituteExt($text;"感,減,敢,甘,監,鑑,憾,堪,勘,瞰,紺,柑,疳,坎,戡,鑒,嵌,橄,龕,酣,撼,欿,减,嵁,憨,澉,轗,坩,埳,泔,淦,矙,鹻,监,瑊,鍳,砍,椷,歁,鹼,堿,塪,惂,撖,汵,蚶,詌,碱,绀,鉴,鳡,鹐,龛,佄,冚,凲,凵,厱,咁,墈,尲,尶,崁,嵅,玪,玵,甝,磡,礛,竷,篏,粓,苷,莰,譼,贑,輡,轁,鑬,魐,鱤,鵮,鹸";"감");
$text=_SubstituteExt($text;"甲,岬,鉀,匣,閘,胛,瞌,帢,闸,钾,韐,醘,搕,筪,厒,敆,玾,笚,舺";"갑");
$text=_SubstituteExt($text;"江,强,講,降,康,綱,鋼,姜,剛,疆,岡,彊,崗,慷,腔,薑,糠,舡,絳,襁,羌,堈,畺,鱇,杠,僵,忼,橿,韁,茳,壃,扛,殭,矼,繈,穅,罡,羗,羫,豇,強,冈,奋,棡,掆,犺,玒,糨,繮,峕,嵻,鏹,㽘,缰,刚,岗,绛,讲,钢,镪,冮,勥,匟,唴,啌,嗴,囥,堽,夅,嫝,嵹,弜,弶,摃,摾,椌,槺,溬,漒,漮,焵,牨,犅,犟,猐,獇,玜,琷,瓨,畕,疅,砊,碙,礓,筻,粇,糡,繦,翞,耩,膙,葁,蔃,蜣,袶,謽,躿,鎠,鏮,顜";"강");
$text=_SubstituteExt($text;"儺,娜,愞,懦,懧,挪,那,拿,挐,梛,橠,砈,糥";"나");
$text=_SubstituteExt($text;"難,暖,煖,赧,戁,难,煗,奻,餪,偄,渜";"난");
$text=_SubstituteExt($text;"捏,捺";"날");
$text=_SubstituteExt($text;"南,男,楠,枏,湳,喃,柟,娚,揇,㑲,侽,婻,暔,煵,畘,罱,腩,莮,萳,蝻,諵,遖";"남");
$text=_SubstituteExt($text;"納,衲,蒳,鈉,纳,钠,妠,笝,軜,靹,魶,䈫,䪏";"납");
$text=_SubstituteExt($text;"娘,囊,曩,嚢,儾,囔,擃,攮,欜,灢,饢,齉";"낭");
$text=_SubstituteExt($text;"多";"다");
$text=_SubstituteExt($text;"單,短,端,但,丹,斷,段,團,壇,檀,旦,湍,鍛,緞,簞,蛋,亶,袒,彖,鄲,椴,慱,漙,癉,蜑,耑,腶,断,单,摶,槫,泹,襌,瑖,猯,褖,鏄,偳,潬,煓,毈,鴠,团,坛,钽,単,団,抟,瘅,箪,簖,缎,锻,刐,剬,勯,匰,唌,塅,媏,枬,柦,檲,湪,煅,玬,璮,疍,砃,碫,籪,糰,繵,葮,袇,褍,褝,襢,觛,貒,貚,踹,躖,鉭,鍴,駳,驙,鶨,鷒,鷤,鷻";"단");
$text=_SubstituteExt($text;"達,撻,疸,獺,澾,怛,闥,㺚,逹,妲,韃,靼,橽,燵,炟,鐽,呾,㼀,哒,狚,薘,闼,㒓,笪,鞑,挞,荙,噠,繨,羍,垯";"달");
$text=_SubstituteExt($text;"談,擔,淡,潭,膽,譚,痰,澹,曇,憺,湛,聃,覃,啖,蕁,坍,錟,担,胆,墰,禫,啗,毯,郯,噉,儋,薝,黮,壜,罎,黵,惔,耼,聸,紞,倓,甔,萏,橝,窞,餤,埿,澸,罈,腅,菼,蟫,霮,顃,驔,髧,䨵,荨,谈,谭,锬,偡,啿,嘾,嚪,墵,妉,姏,婒,媅,帎,憛,曋,氮,瓭,癚,緂,舑,舕,藫,衴,贉,醈,醰,饏,馾,黕";"담");
$text=_SubstituteExt($text;"答,踏,畓,遝,沓,荅,剳,蹋,涾,溚,褡,譶,匒,崉,榙,濌,畣,眔,褟,誻,蹹,鎉";"답");
$text=_SubstituteExt($text;"堂,當,唐,黨,糖,塘,撞,棠,螳,幢,戇,倘,儻,党,搪,璫,瑭,瞠,鐺,襠,鏜,溏,餳,檔,礑,蟷,餹,螗,簹,戅,嵣,戃,儅,嘡,噇,摚,曭,澢,煻,膛,钂,闣,鞺,当,傥,垱,戆,挡,档,珰,筜,裆,谠,铛,镋,镗,饧,傏,凼,劏,啺,噹,坣,壋,憆,擋,攩,榶,欓,氹,漟,灙,爣,瓽,瞊,矘,磄,禟,篖,糃,糛,耥,膅,艡,蓎,譡,赯,蹚,躺,鄌,醣,鎕,鎲,闛,隚,饄,鶶,鼞";"당");
$text=_SubstituteExt($text;"羅,裸,懶,螺,拏,邏,癩,蘿,喇,騾,囉,鑼,瘰,臝,砢,倮,曪,驘,覼,蠃,灕,覶,玀,躶,纙,罗,懒,椤,猡,癞,箩,脶,萝,逻,锣,镙,骡,㑩,亽,儸,剆,啰,嚹,囖,摞,攞,攭,旯,欏,籮,罖,腡,蓏,覙,鎯,鏍,饠";"라");
$text=_SubstituteExt($text;"落,諾,絡,洛,駱,烙,酪,珞,犖,嗠,硌,濼,鉻,雒,泺,络,荦,铬,饹,骆,峈,笿,餎,鮥,鴼";"락");
$text=_SubstituteExt($text;"卵,亂,蘭,欄,爛,鸞,瀾,欒,闌,鑾,攔,襴,嬾,幱,灓,乱,䦨,滦,灤,斕,圝,圞,灡,籣,兰,拦,斓,栏,栾,澜,烂,谰,銮,镧,阑,鸾,亪,囒,孄,孏,曫,欗,燗,爤,瓓,癵,糷,羉,膥,虊,襕,襽,譋,讕,釠,鑭,钄,韊,鵉";"란");
$text=_SubstituteExt($text;"剌,辣,埒,辢,捋,獭,垃,埓,揦,揧,攋,楋,瓎,瘌,蝲,頱,鬎,鯻";"랄");
$text=_SubstituteExt($text;"覽,濫,藍,籃,攬,嵐,纜,欖,擥,襤,婪,惏,覧,灠,壈,囕,岚,揽,榄,滥,漤,篮,缆,蓝,褴,览,儖,啉,嚂,懢,浨,灆,燣,燷,爁,爦,璼,礷,繿,葻,蘫,顲";"람");
$text=_SubstituteExt($text;"拉,臘,蠟,鑞,臈,爉,䗶,镴,啦,搚,柆,磖,翋,菈,蝋,邋,鞡";"랍");
$text=_SubstituteExt($text;"郞,浪,廊,狼,朗,琅,郎,螂,瑯,閬,蜋,稂,榔,硠,莨,桹,烺,蓈,鋃,欴,艆,锒,阆,勆,啷,埌,塱,嫏,崀,朖,朤,樃,筤,蒗,蓢,誏,躴,郒,駺";"랑");
$text=_SubstituteExt($text;"馬,麻,磨,摩,魔,痲,瑪,碼,麽,麿,劘,媽,螞,蟇,麼,蟆,亇,嗎,禡,嘛,鎷,吗,唛,妈,嬷,杩,犸,玛,码,祃,蚂,马,傌,吀,哶,嘜,嚒,嚤,嚰,嫲,嬤,懡,戂,擵,榪,溤,犘,獁,礳,耱,蔴,藦,蘑,饝,髍,鬕,鰢,鷌";"마");
$text=_SubstituteExt($text;"莫,幕,漠,膜,寞,邈,鏌,瞙,瘼,幙,暯,嗼,鄚,饃,馍,镆,劰,塻,瞐,縸";"막");
$text=_SubstituteExt($text;"萬,滿,晩,慢,漫,蠻,灣,挽,蔓,瞞,輓,彎,饅,鰻,卍,万,曼,巒,謾,幔,懣,嫚,蹣,墁,縵,鏝,鬘,鏋,湾,晚,満,熳,鬛,澫,脕,僈,摱,睌,矕,蟎,鋔,蛮,峦,弯,满,瞒,缦,螨,谩,蹒,镘,颟,馒,鳗,卐,塆,壪,屘,慲,梚,槾,樠,潫,澷,濷,獌,蔄,蘰,蟃,襔,贎,鄤,鞔,顢,鬗";"만");
$text=_SubstituteExt($text;"抹,末,沫,秣,茉,襪,靺";"말");
$text=_SubstituteExt($text;"鋄,錽,鎫";"맘");
$text=_SubstituteExt($text;"亡,望,忘,忙,妄,罔,茫,網,芒,莽,邙,輞,惘,魍,莾,蟒,漭,汒,网,亾,鋩,蠎,兦,恾,朢,杗,蘉,誷,蝄,釯,纲,辋,铓,吂,壾,奀,娏,杧,棢,焹,牤,琞,痝,盳,硥,硭,笀,茻,莣,菵,蛧";"망");
$text=_SubstituteExt($text;"朴,迫,博,泊,拍,薄,駁,舶,剝,縛,撲,搏,樸,珀,箔,粕,膊,雹,璞,亳,駮,鎛,欂,牔,髆,剥,敀,礴,襮,廹,愽,礡,檏,擈,煿,鑮,彴,窇,㩧,瞨,缚,钋,铂,镈,镤,飑,馎,驳,啪,噗,嚗,圤,懪,炇,烞,犦,狛,猼,瓟,砶,簙,胉,艊,萡,蒪,趵,釙,鉑,鏷,颮,餺,骲,髉";"박");
$text=_SubstituteExt($text;"半,反,飯,班,般,返,伴,盤,叛,頒,槃,斑,潘,搬,磻,攀,畔,蟠,絆,礬,拌,泮,盼,磐,瘢,胖,扳,搫,頖,攽,朌,媻,螌,盘,襻,鞶,癍,憣,詊,斒,牉,矾,绊,颁,饭,冸,坢,奤,姅,婏,嬎,嬔,幋,怑,柈,沜,溿,瀊,炍,秚,縏,蒰,虨,褩,跘,辬,鉡,鋬,鎜,鑻,闆,靽,飰,魬,鳻";"반");
$text=_SubstituteExt($text;"發,髮,拔,跋,鉢,潑,渤,撥,勃,魃,醱,浡,鈸,鵓,哱,脖,钵,発,彂,綍,髪,沷,墢,茇,袚,襏,抜,犮,軷,柭,秡,胈,鏺,馞,发,拨,泼,袯,酦,钹,饽,鲅,鹁,侼,叐,坺,妭,愂,挬,桲,溌,炦,癹,盋,砵,缽,荸,菝,葧,詙,蹳,郣,醗,鋍,餑,馛,驋,鮁,鱍,鼥";"발");
$text=_SubstituteExt($text;"方,放,防,房,訪,邦,妨,芳,傍,倣,旁,彷,紡,龐,坊,榜,昉,謗,枋,幇,肪,尨,膀,滂,蚌,磅,舫,蒡,仿,牓,髣,厖,魴,搒,幫,螃,徬,旊,梆,舽,鎊,龎,霶,綁,逄,鈁,雱,狵,庬,哤,埅,胮,駹,昘,汸,浝,淓,眆,膖,蚄,帮,庞,纺,绑,访,谤,钫,镑,鲂,鳑,嗙,垹,堏,塄,塝,嫎,幚,挷,氆,炐,牥,牻,玤,瓬,稖,篣,縍,耪,肨,艕,蛖,蜯,覫,趽,邡,邫,錺,鞤,髈,鰟,鴋,鶭";"방");
$text=_SubstituteExt($text;"四,事,士,死,思,使,史,私,寺,師,仕,絲,糸,糸,舍,謝,巳,射,司,辭,似,賜,社,斯,祀,査,沙,詞,寫,捨,邪,詐,斜,蛇,赦,祠,泗,獅,飼,唆,嗣,徙,紗,些,奢,瀉,娑,麝,簑,肆,俟,乍,伺,蓑,砂,莎,駟,裟,梭,篩,柶,渣,僿,槎,竢,蜡,笥,榭,卸,楂,駛,缷,剚,咋,汜,傞,覗,鯊,痧,皶,魦,鰤,辞,查,賖,涘,耜,蓰,屣,冩,簁,挲,禠,舎,虵,辝,髿,禩,肂,衺,柤,厙,嗄,漇,蹝,戺,柌,蒒,蕬,鍦,写,泻,丝,厍,咝,师,狮,筛,纱,蛳,诈,词,谢,赐,铊,饲,馇,驶,驷,鲨,鸶,佀,倳,倽,傻,儍,唦,啥,喳,嘥,噝,塮,娰,峫,嵖,恖,挱,揸,摣,桫,桬,楒,榹,樝,泀,泤,洍,浉,涻,溮,瀃,灺,燍,牭,猀,猞,猹,瑡,皻,砟,硰,碴,磃,禗,簔,籭,粆,耍,莏,葸,蕼,藛,虒,蜤,螄,蟖,蟴,訯,誜,貄,蹅,躧,逤,釲,釶,鈶,鈻,鉂,鉇,鉈,鉰,銯,鋖,鐁,閯,騇,騦,魳,鮻,鯋,鳾,鶳,鷥";"사");
$text=_SubstituteExt($text;"削,朔,鑠,槊,爍,蒴,矟,搠,烁,铄,嗍,揱,溹,獡,鎙";"삭");
$text=_SubstituteExt($text;"山,産,散,算,酸,傘,刪,珊,疝,霰,蒜,汕,繖,訕,潸,狻,鏟,澘,剷,橵,姍,孿,閊,產,筭,删,跚,滻,仐,痠,隡,产,铲,伞,姗,孪,毵,浐,讪,闩,馓,匴,厁,圸,壭,嵼,摌,杣,潵,狦,祘,笇,簅,糤,舢,赸,軕,邖,鏾,閂,饊";"산");
$text=_SubstituteExt($text;"殺,薩,撒,煞,杀,摋,蔱,萨,榝,樧,脎,虄,閷";"살");
$text=_SubstituteExt($text;"三,蔘,森,滲,渗,衫,芟,杉,纔,毿,糝,鬖,釤,彡,縿,槮,襂,穇,穼,糁,钐,仨,俕,剼,嘇,幓,弎,曑,椮,檆,毝,涁,犙,甧,糂,糣,罧,葠,蓡,薓,贂,鏒,閐";"삼");
$text=_SubstituteExt($text;"揷,澁,颯,鈒,歃,翣,鍤,卅,霎,霅,唼,挿,澀,鎝,插,牐,箑,靸,趿,涩,渋,钑,锸,飒,偛,喢,帹,歰,甴,箿,翜,臿,萐,譅,遪,雭,馺";"삽");
$text=_SubstituteExt($text;"上,相,想,常,賞,商,尙,喪,傷,霜,嘗,詳,祥,象,床,桑,像,償,裳,庠,箱,爽,觴,翔,孀,廂,湘,牀,橡,嫦,峠,甞,殤,顙,徜,緗,晌,塽,鎟,鬺,状,尚,愓,恦,垧,厢,瑺,礵,丧,鋿,鏛,扄,謪,鸘,鱨,樉,贘,驦,鮝,绱,鲞,伤,偿,墒,尝,殇,缃,觞,详,赏,颡,骦,鲿,鹴,仩,傸,嗓,嚐,嶑,慡,慯,搡,桒,桛,槡,滳,漡,漺,潒,灀,磉,絴,緔,縔,葙,蔏,螪,蟐,蟓,蠰,褬,襐,鏯,鐌,鑜,騻,鯗,鱌,鱶,鷞";"상");
$text=_SubstituteExt($text;"兒,我,雅,亞,餓,芽,牙,阿,衙,俄,訝,啞,鴉,峨,娥,鵝,莪,蛾,迓,疴,哦,婀,丫,峩,娿,砑,笌,錏,鵞,痾,児,婭,亜,椏,稏,妸,鵶,俹,聣,亚,哑,垭,娅,挜,桠,氩,痖,讶,钶,铔,锕,饿,鸦,鹅,伢,厊,吖,唖,啊,妿,孲,屙,庌,掗,氬,涐,犽,玡,珴,疨,瘂,皒,睋,蕥,蚜,襾,誐,鈳,錒,齖";"아");
$text=_SubstituteExt($text;"樂,惡,岳,握,愕,堊,顎,嶽,幄,渥,鰐,鄂,鍔,齷,萼,諤,鶚,咢,喔,噩,卾,腭,偓,覨,齶,楽,鸑,遌,崿,蕚,堮,恶,鳄,乐,垩,悪,谔,锷,颚,鹗,龌,偔,僫,捳,楃,櫮,湂,琧,腛,蝁,讍,鑩,鱷";"악");
$text=_SubstituteExt($text;"安,案,眼,顔,岸,雁,鞍,按,晏,鮟,鴈,犴,贋,桉,顏,鷃,贗,䬶,楌,赝,颜,铵,顸,侒,偐,垵,堓,妟,姲,婩,峖,暥,氨,洝,矸,荌,軅,銨,錌,鞌,頇,騴,鳫,鴳,黫";"안");
$text=_SubstituteExt($text;"謁,閼,軋,斡,遏,訐,戞,頞,揠,嘎,穵,戛,歹,嶭,猰,圠,捾,堨,钀,䵝,讦,谒,轧,阏,劜,咹,嘠,挖,窫,聐,胺";"알");
$text=_SubstituteExt($text;"暗,巖,癌,庵,闇,岩,菴,唵,諳,黯,嵓,馣,媕,啽,腤,葊,蓭,嵒,碞,韽,揞,黭,痷,萻,鵪,黤,埯,谙,颔,鹌,匼,啱,堷,壧,巌,巗,盦,盫,礹,罯,裺,誝,隌,雸,鶕";"암");
$text=_SubstituteExt($text;"壓,押,鴨,狎,鸭,庒,岋,姶,㔩,䑪,压,圧,儑,庘,炠,砐,硆";"압");
$text=_SubstituteExt($text;"仰,殃,央,怏,昻,鴦,秧,盎,鞅,泱,卬,坱,昂,枊,抰,胦,佒,傟,咉,姎,岇,岟,慃,炴,眏,紻,羻,詇,軮,醠,鉠,雵,駚";"앙");
$text=_SubstituteExt($text;"子,自,者,字,姉,慈,資,姿,玆,紫,恣,刺,滋,疵,雌,磁,炙,諮,藉,煮,仔,蔗,瓷,咨,孜,茨,茲,貲,眦,孶,訾,赭,粢,髭,觜,泚,柘,耔,鷓,眥,鶿,牸,胾,呰,鎡,莿,鮓,嬨,孖,茈,虸,頿,兹,姊,扻,煑,趦,朿,胔,趑,餈,孳,嵫,庛,訿,澬,榨,杍,啫,栥,秭,稵,呲,姕,橴,笫,骴,蚝,资,锌,镃,鲝,吇,嗞,垐,塖,宱,樜,溂,溠,濨,熫,玼,珁,甆,痄,矷,礠,禌,秄,秶,籽,糍,緕,纃,胏,芓,茊,茡,薋,蛓,赼,趀,鄑,醡,鈭,鋅,頾,飷,飺,髊,鮺,鰦,鴜,鷀";"자");
$text=_SubstituteExt($text;"作,昨,爵,酌,灼,雀,鵲,綽,勺,嚼,芍,炸,斫,怍,焯,碏,柞,岝,汋,犳,斱,妁,鷟,婥,爝,皭,圴,扚,禚,筰,猎,绰,鹊,仢,妰,岞,烵,焳,熦,爑,皵,秨,稓,穱,繛,苲,莋,謶,趞,鈼,鐯,靍,飵";"작");
$text=_SubstituteExt($text;"殘,盞,棧,孱,潺,戔,剗,驏,残,醆,僝,刬,戋,栈,盏,骣,嶘,拃,桟,潹,琖,菚,虥,虦,輚";"잔");
$text=_SubstituteExt($text;"潛,暫,蠶,箴,簪,岑,潜,蚕,涔,濳,蹔,蘸,埁,簮,熸,賺,撏,蠺,挦,暂,臜,赚,兂,喒,寁,揝,撍,昝,硶,臢,蝅,譧,趈,鐕";"잠");
$text=_SubstituteExt($text;"雜,襍,磼,卡,囃,眨,匝,迊,雑,帀,啑,煠,咂,币,杂,咔,嘁,抸,拤,沞,疀,砸,譗,鉔,雥,韴";"잡");
$text=_SubstituteExt($text;"長,場,將,章,壯,狀,張,掌,丈,腸,帳,障,獎,葬,藏,莊,墻,裝,粧,臟,匠,庄,蔣,杖,仗,獐,醬,漿,檣,薔,奬,臧,贓,牆,欌,暲,将,装,戕,瘴,嶂,鏘,糚,漳,萇,奘,賬,麞,牂,妝,嬙,廧,鄣,傽,餦,壮,墙,蔵,荘,膓,奨,臓,贜,塲,髒,駔,槳,慞,樟,嶈,扙,斨,粻,樁,蘠,醤,摪,賍,蹡,奖,脏,场,妆,嫱,帐,张,桨,桩,樯,浆,肠,苌,蒋,蔷,螀,账,酱,长,仉,兏,匞,匨,塟,墇,墏,娤,嫜,幛,幥,弉,梉,焋,牄,瓺,痮,瘬,瞕,罉,蔁,蟑,賘,躼,遧,銺,鏱,鐣,鑶,镸,鞝,騿";"장");
$text=_SubstituteExt($text;"車,次,此,且,借,差,茶,叉,遮,嗟,蹉,箚,嵯,磋,侘,瑳,佽,奓,硨,岔,偖,徣,姹,劄,汊,杈,莗,唶,扯,撦,鹺,挓,訍,跐,踷,醝,砗,舣,车,鹾,佌,偧,偨,厏,唓,嗏,嗻,嫅,嵳,扠,搓,搽,暛,栨,笡,紁,絘,肞,艖,芆,蒫,蔖,虘,蛼,衩,褨,譇,銟,鎈";"차");
$text=_SubstituteExt($text;"着,捉,錯,搾,鑿,窄,齪,斲,戳,擉,斵,斮,諑,娖,浞,笮,娕,珿,凿,诼,错,龊,丵,剒,撯,擆,灂,穛,篧,簎,籱,糳,縒,莡,逪,鋜,鑡";"착");
$text=_SubstituteExt($text;"贊,讚,餐,瓚,燦,鑽,璨,撰,饌,纂,簒,竄,纘,粲,飡,澯,攢,爨,賛,欑,巑,趲,儧,儹,劗,湌,纉,㸑,攅,讃,酇,篡,濽,穳,鑚,瓉,禶,攛,灒,籫,躥,丳,櫕,襸,鄼,赞,撺,攒,灿,瓒,窜,缵,趱,蹿,躜,酂,镩,馔,儏,囋,殩,熶,爘,篹,籑,繤,羼,薒,躦,鑹,饡";"찬");
$text=_SubstituteExt($text;"察,刹,札,擦,紮,扎,拶,咱,哳,巀,剎,檫,礸,詧,鑔,偺,嚓,攃,桚,櫒,礤,糌,紥,耫,鍘";"찰");
$text=_SubstituteExt($text;"參,慘,慙,斬,站,讒,僭,讖,塹,懺,叅,慚,驂,譖,黲,巉,嶄,槧,鑱,憯,攙,饞,欃,儳,毚,参,惨,叁,叄,旵,䜛,墋,謲,懴,毶,詀,醦,劖,噆,嵾,嶊,瀺,覱,趻,堑,崭,惭,搀,斩,椠,瘆,碜,谗,谮,谶,錾,镵,骖,黪,傪,嚵,壍,嬠,嬱,嶃,獑,瘮,磛,磣";"참");
$text=_SubstituteExt($text;"唱,窓,昌,倉,創,蒼,暢,彰,滄,敞,昶,倡,漲,槍,瘡,愴,脹,娼,猖,菖,廠,艙,悵,搶,鬯,刱,倀,蹌,閶,氅,惝,窻,傖,鏦,窗,瑲,鋹,鶬,凔,戧,錆,椙,囱,牕,淐,摐,剏,剙,牎,畼,瑒,篬,厰,磢,謒,錩,枪,仓,伥,伧,创,呛,怅,怆,戗,抢,沧,涨,炝,玚,玱,畅,疮,胀,舱,苍,跄,锖,锠,阊,鲳,鸧,仺,僘,刅,嗆,囪,嵢,惐,摤,晿,淌,濸,焻,熗,獊,琩,螥,裮,誯,賶,鯧";"창");
$text=_SubstituteExt($text;"㻔,佧,胩";"카");
$text=_SubstituteExt($text;"他,打,妥,墮,惰,唾,陀,駝,舵,楕,馱,朶,咤,拖,躱,沱,跎,詫,佗,鼉,駞,柁,拕,橢,鮀,垞,鴕,堕,陁,它,吒,酡,嚲,垜,咜,奼,沲,媠,嶞,朵,陏,亸,椭,诧,锗,驼,鸵,刴,剁,咃,咑,哚,垛,埵,墯,嫷,尮,岮,崜,彵,憜,扡,挅,挆,撱,桗,椯,灹,炧,炨,牠,痑,砣,砤,碢,秅,紽,綞,袉,趓,跥,跺,躲,鍺";"타");
$text=_SubstituteExt($text;"濁,托,卓,濯,託,琢,擢,鐸,坼,啄,倬,柝,晫,琸,拆,橐,涿,逴,籜,沰,矺,蘀,乇,槖,椓,侂,跅,魠,仛,斀,杔,浊,箨,讬,铎,镯,伲,凙,剢,剫,劅,啅,庹,桌,槕,汑,硺,窧,萚,蠗,袥,襗,踱,鈬,鐲,飥,馲,驝";"탁");
$text=_SubstituteExt($text;"歎,彈,炭,誕,灘,綻,憚,呑,坦,嘆,殫,癱,攤,憻,驒,惮,殚,弹,吞,瘓,撣,僤,嘽,掸,啴,弾,摊,滩,痪,瘫,绽,诞,怹,擹,暺,氽,汆,湠,疃,碳,羰,譠,騨";"탄");
$text=_SubstituteExt($text;"脫,奪,侻,梲,敓,夺,捝,脱,敚,毲,痥,莌";"탈");
$text=_SubstituteExt($text;"探,貪,耽,眈,酖,嗿,忐,醓,撢,贪,赕,僋,沊,賧";"탐");
$text=_SubstituteExt($text;"塔,搭,榻,搨,塌,傝,闒,嗒,撘,漯,鑉,阘,嚃,墖,毾,溻,狧,瘩,禢,耷,遢,錔,鎑";"탑");
$text=_SubstituteExt($text;"湯,蕩,宕,帑,盪,碭,蘯,燙,逿,簜,蝪,踼,璗,鐋,荡,汤,烫,砀,铴,偒,圵,婸,摥,菪,薚,趤,雼";"탕");
$text=_SubstituteExt($text;"破,波,罷,播,派,頗,把,坡,巴,婆,跛,琶,芭,爬,擺,杷,叵,怕,葩,皤,帕,簸,灞,玻,笆,鄱,妑,岥,爸,耙,菠,壩,罢,疤,帊,靶,䆉,嶓,垻,吧,欛,鈀,摆,坝,钯,钷,颇,啵,嘙,夿,尀,岜,弝,櫇,汖,潖,皅,碆,笸,筢,箥,粑,紦,羓,舥,蒎,蔢,蚆,蚾,袙,譒,豝,趴,跁,鉕,錃,鎃,駊";"파");
$text=_SubstituteExt($text;"判,板,版,販,阪,辦,坂,瓣,鈑,辧,昄,舨,蝂,办,贩,钣,岅,瓪,畈,眅,粄,鵥";"판");
$text=_SubstituteExt($text;"八,叭,捌,朳,汃,仈,哵,玐,釟";"팔");
$text=_SubstituteExt($text;"下,夏,河,何,賀,荷,瑕,遐,霞,蝦,厦,廈,鰕,昰,罅,呀,鍜,煆,岈,懗,瘕,嘏,縀,睱,谺,騢,鏬,哧,抲,菏,虾,贺,哬,嗬,圷,夓,疜,碋,碬,芐,蕸,袔,諕,赮,鎼,閕,閜,鞐,颬";"하");
$text=_SubstituteExt($text;"學,鶴,虐,壑,謔,瘧,确,涸,郝,狢,熇,鷽,皬,学,翯,觷,嗃,澩,矐,谑,鹤,嚛,嚯,峃,嶨,斈,癋,硸,謞,雤,靏,鴬,鶮,鸖";"학");
$text=_SubstituteExt($text;"韓,漢,寒,限,恨,閑,汗,旱,翰,罕,悍,澣,閒,瀚,扞,暵,僩,哻,捍,閈,汉,狠,僴,鼾,覵,嫺,闲,澖,焊,猂,娴,憪,邗,嫻,骭,佷,鷴,撊,垾,銲,䛞,䦘,釬,蓒,鷳,兯,皔,駻,嫨,鶾,螒,娨,蛝,仠,屽,䍑,晘,浫,䁂,蔊,豻,闬,鷼,貋,橺,麲,瞯,熯,邯,旰";"한");
$text=_SubstituteExt($text;"割,轄,瞎,鶡,傄,劼,縖,舝,辖,嗐,搳,硈,磍,螛,鎋,韔,鶷";"할");
$text=_SubstituteExt($text;"咸,陷,含,函,艦,喊,涵,銜,緘,檻,鹹,啣,諴,菡,頷,闞,莟,轞,䧟,淊,凾,醎,顑,圅,衘,谽,馠,唅,浛,筨,琀,甉,魽,衔,槛,缄,舰,阚,馅,壏,娢,晗,梒,欦,澏,焓,糮,臽,蛿,蜬,蜭,譀,豃,豏,輱,鋡,錎,陥,顄,餡,鬫,鰔";"함");
$text=_SubstituteExt($text;"合,陜,蛤,盒,閤,哈,闔,盍,溘,榼,郃,柙,匌,嗑,呷,詥,鴿,篕,峆,欱,烚,盇,鮯,陕,佮,峇,廅,敮,熆,珨,秴,粭,翈,耠,頜";"합");
$text=_SubstituteExt($text;"恒,項,抗,巷,港,航,沆,亢,缸,肛,杭,伉,姮,桁,恆,頏,炕,夯,缿,骯,吭,閌,衖,佭,斻,闀,肮,钪,闶,项,颃,塂,岲,栙,笐,罁,苀,蚢,貥,跭,迒,邟,酐,鈧,闂,魧";"항");
$text=_SubstituteExt($text;"改,開,個,皆,槪,介,蓋,慨,价,塏,箇,漑,芥,凱,愾,盖,鎧,愷,疥,槩,剴,玠,揩,匃,闓,磕,个,丐,葢,㮣,嘅,喈,湝,祴,礚,暟,蚧,稭,概,烗,䁗,䡷,凯,剀,垲,开,恺,钙,铠,锎,锴,闿,丯,乢,勓,匄,吤,嗰,奒,媘,尬,岕,幆,庎,忋,忦,戤,摡,斺,溉,炌,炏,煯,犗,琾,瓂,砎,祄,絠,腉,蒈,蝔,衸,郂,鈣,鍇,鎎,鐦,阣,颽,魀,魪,鶛";"개");
$text=_SubstituteExt($text;"客,喀,衉,揢,䘔,碦";"객");
$text=_SubstituteExt($text;"坑,羹,粳,賡,鏗,硜,秔,鍞,阬,硻,羮,赓,坈,稉,铿,劥,硁,銵,妔";"갱");
$text=_SubstituteExt($text;"內,乃,耐,奈,柰,迺,鼐,内,匂,嬭,奶,廼,褦,撆,耏,釢,孻,摨,氖,氝,渿,熋,疓,萘,螚,錼";"내");
$text=_SubstituteExt($text;"大,代,待,對,帶,隊,貸,臺,戴,垈,袋,擡,岱,黛,玳,坮,懟,碓,儓,汏,旲,鐓,㐲,帯,帒,憝,襨,濧,薱,襶,檯,祋,薹,蹛,䒫,䨴,对,対,带,怼,贷,轪,镦,队,亣,嬯,廗,憞,懛,柋,瀩,瀻,瑇,甙,簤,籉,艜,譈,譵,軑,軚,轛,鐜,鮘,黱";"대");
$text=_SubstituteExt($text;"來,萊,崍,徠,来,淶,騋,勑,徕,莱,猍,琜,倈,箂,棶,睞,錸,鵣,崃,俫,梾,涞,睐,铼,儽,唻,婡,庲,逨,鯠,鶆,麳";"래");
$text=_SubstituteExt($text;"冷,冷";"랭");
$text=_SubstituteExt($text;"賣,買,每,妹,梅,媒,埋,枚,魅,昧,寐,罵,邁,煤,呆,楳,眛,莓,玫,沬,苺,酶,霉,浼,霾,䨪,禖,毎,抺,痗,佅,凂,勱,湈,脄,韎,駡,鬽,骂,买,劢,卖,売,荬,迈,呅,嘪,坆,塺,挴,槑,珻,脢,腜,蕒,薶,跊,鋂,鷶,黣";"매");
$text=_SubstituteExt($text;"麥,脈,貊,陌,驀,脉,貃,貘,霡,貉,霢,眽,覛,麦,蓦,帞,眿,絈,蛨,衇";"맥");
$text=_SubstituteExt($text;"孟,盟,猛,盲,萌,氓,甍,甿,虻,儚,蝱,艋,蕄,鄳,锰,勐,掹,擝,橗,瓾,莔,蜢,錳,鯭,鼆,䁅";"맹");
$text=_SubstituteExt($text;"拜,杯,輩,背,配,倍,培,排,裵,俳,賠,陪,徘,胚,湃,裴,盃,褙,焙,坏,坯,琲,扒,蓓,軰,环,桮,辈,拝,醅,禙,柸,毰,肧,赔,伓,俖,啡,妚,嶏,掰,揹,炋,猅,琣,碚,荖,蓜,衃,輫,阫,韛";"배");
$text=_SubstituteExt($text;"百,白,伯,栢,帛,魄,柏,佰,粨,苩,銆,洦,鲌,兡,岶,湐,瓸,竡,絔,鮊";"백");
$text=_SubstituteExt($text;"塞,璽,賽,鰓,壐,玺,赛,鳃,噻,愢,瓕,簺";"새");
$text=_SubstituteExt($text;"色,索,嗇,穡,槭,濇,瀒,賾,摵,矠,繬,鎍,啬,穑,赜,铯,嗦,懎,擌,栜,歮,歵,泎,洓,瘷,穯,轖,銫,齚,齰";"색");
$text=_SubstituteExt($text;"生,牲,甥,笙,眚,鉎,泩,栍,鼪,殅,湦,珄,苼,貹,﨡";"생");
$text=_SubstituteExt($text;"愛,哀,涯,碍,埃,艾,崖,隘,靄,曖,厓,礙,藹,欸,騃,睚,皚,瞹,挨,僾,薆,捱,獃,磑,娭,唉,啀,噯,崕,漄,瑷,敱,爱,閡,壒,譪,呃,毐,璦,嗳,嫒,暧,皑,硙,蔼,锿,霭,伌,叆,哎,唲,嘊,堐,塧,娾,嬡,嵦,懓,懝,敳,昹,濭,燰,猚,皧,砹,硋,賹,銰,鎄,鑀,餲,馤,鴱";"애");
$text=_SubstituteExt($text;"額,厄,液,腋,扼,縊,掖,阨,搤,詻,軛,頟,轭,峉,涱,磀,苊,蚅,貖,鈪";"액");
$text=_SubstituteExt($text;"鶯,櫻,鸚,罌,嚶,鷪,罃,嫈,鸎,甖,䴍,桜,樱,鹦,譻";"앵");
$text=_SubstituteExt($text;"在,才,材,再,財,哉,栽,載,災,裁,宰,滓,齋,梓,縡,渽,齎,灾,榟,夈,扗,崽,賫,䝴,賷,捚,烖,賳,财,载,龇,侢,傤,儎,喍,斎,洅,溨,睵";"재");
$text=_SubstituteExt($text;"爭,錚,諍,箏,崢,鎗,琤,猙,争,峥,筝,崝,掙,挣,诤,铮,噌,崡,棦,碀,趟,鏳,鏿,饓,鬇";"쟁");
$text=_SubstituteExt($text;"採,菜,采,彩,債,蔡,埰,寨,綵,釵,寀,砦,茝,棌,瘵,蠆,瘥,倸,囆,债,虿,婇,榸,睬,縩,踩,靫";"채");
$text=_SubstituteExt($text;"責,冊,策,柵,簀,嘖,磔,幘,笧,栅,册,筞,舴,茦,謮,啧,帻,箦,责,厇,嫧,憡,拺,敇,皟,瞔,箣,籷,粣,萗,蓛,蔶,虴,諎,迮,銏,頙";"책");
$text=_SubstituteExt($text;"太,泰,態,殆,怠,台,胎,兌,跆,颱,汰,苔,笞,邰,駄,迨,駘,埭,娧,孡,抬,兑,紿,蜕,鮐,忕,呔,兊,忲,㤗,溙,态,傣,囼,捸,斄,曃,炱,炲,燤,粏,綐,緿,肽,舦,菭,軩,酞,鈦,颰,駾";"태");
$text=_SubstituteExt($text;"宅,擇,澤,択,择,沢,泽,伬,烢,礋,鸅,䕉,䕪";"택");
$text=_SubstituteExt($text;"撑,撐,牚,竀,樘,橖";"탱");
$text=_SubstituteExt($text;"瑘,夜,野,也,耶,惹,倻,椰,爺,冶,揶,埜,捓,枒,喏,琊,鋣,嘢,焲,瑘,爷,亱,偌,吔,壄,婼,漜,祂,釾,鎁";"야");
$text=_SubstituteExt($text;"弱,藥,約,若,躍,葯,蒻,鑰,籥,禴,爚,篛,鰯,龠,鶸,瀹,礿,箬,箹,蘥,药,哟,约,薬,跃,叒,喲,嵶,楉,洂,渃,藞,鄀,鰙,鸙";"약");
$text=_SubstituteExt($text;"羊,陽,洋,養,讓,揚,梁,樣,楊,壤,襄,孃,瘍,攘,釀,恙,禳,痒,佯,暘,穰,瀁,敭,煬,癢,驤,漾,颺,徉,鑲,瀼,烊,眻,蘘,輰,譲,様,样,昜,鍚,懹,勷,崵,㐮,纕,壌,饟,䉴,垟,欀,瓖,諹,嚷,禓,阦,扬,镶,阳,养,嬢,旸,杨,炀,疡,让,酿,醸,钖,劷,勨,奍,忀,懩,攁,檨,爙,獽,珜,瓤,礢,穣,羏,蛘";"양");
$text=_SubstituteExt($text;"略,掠,畧,圙,撂,洜";"략");
$text=_SubstituteExt($text;"兩,良,量,凉,糧,諒,亮,樑,輛,粱,倆,粮,涼,魎,踉,椋,悢,喨,两,両,惊,㾗,湸,緉,裲,輌,輬,俍,俩,唡,谅,辆,辌,魉,哴,啢,墚,掚,斏,晾,煷,簗,綡,羪,脼,蜽";"량");
$text=_SubstituteExt($text;"貝,敗,牌,悖,覇,佩,沛,稗,唄,狽,浿,霈,霸,孛,旆,珮,犻,誖,邶,棑,捭,斾,矲,郥,呗,狈,贝,败,钡,伂,姵,昁,梖,牬,猈,珼,笩,篺,簰,粺,苝,茷,蛽,贁,鋇,馷";"패");
$text=_SubstituteExt($text;"彭,膨,澎,烹,祊,砰,蟚,蟛,伻,閍,碰,嘭,嵭,憉,掽,梈,甏,皏,硑,磞,稝,軯,輣,錋,闏,騯";"팽");
$text=_SubstituteExt($text;"海,害,解,亥,該,奚,偕,駭,骸,諧,楷,懈,咳,邂,孩,垓,瀣,蟹,醢,廨,薤,獬,瑎,欬,咍,嶰,痎,鮭,頦,觧,澥,晐,陔,荄,蠏,侅,駴,畡,賅,峐,檞,膎,韰,㧡,䪥,该,谐,赅,颏,骇,鲑,嗨,塰,妎,姟,慀,氦,絯,繲,胲,薢,觟,豥,賌,輆,郋,酼,餀,饚,龤";"해");
$text=_SubstituteExt($text;"核,劾,覈,翮,栶,势";"핵");
$text=_SubstituteExt($text;"行,幸,杏,倖,荇,悻,婞,涬,筕,绗,鸻,哘,啈,垳,堼,洐,烆,絎,緈,胻,莕,裄,鴴,鵆,﨨";"행");
$text=_SubstituteExt($text;"向,鄕,香,享,響,饗,嚮,餉,珦,薌,鄊,晑,曏,郷,蠁,膷,鄉,銄,乡,响,芗,飨,饷,亯,姠,楿,稥,萫,黁";"향");
$text=_SubstituteExt($text;"去,擧,居,據,巨,拒,距,渠,倨,遽,据,祛,鉅,炬,踞,鋸,袪,蘧,琚,莒,秬,籧,虡,筥,椐,舉,詎,裾,㨿,蕖,㩀,耟,簴,鐻,璖,駏,弆,苣,腒,胠,磲,阹,璩,柜,俥,佢,呿,怇,壉,懅,岠,涺,鶋,挙,拠,举,键,豦,欅,襷,粔,榉,姖,锯,厺,櫸,歫,麮,凥,衐,昛,艍,讵,㰦,匷,紶,蜛,鼁,钜,啹,婮,淭,詓,﨔,崌,洰,澽,翗,菃,蚷,螶,蟝,躆,伡,䒧,勮,鮔";"거");
$text=_SubstituteExt($text;"建,乾,件,健,巾,鍵,虔,腱,愆,蹇,騫,楗,褰,謇,鞬,揵,犍,睷,搴,鶱,諐,湕,徤,乹,寋,骞,亁,囝,墘,寈,弿,攐,攓,旔,榩,毽,漧,瀽,藆,踺,鑳,騝,鰎,鰬";"건");
$text=_SubstituteExt($text;"傑,乞,杰,桀,朅,乬,榤,嵥,滐,搩,櫭,芞,藒";"걸");
$text=_SubstituteExt($text;"檢,儉,劍,劒,黔,鈐,瞼,撿,芡,臉,劎,俭,倹,剑,剣,捡,检,検,睑,脸,钤,仱,剱,劔,忴";"검");
$text=_SubstituteExt($text;"怯,劫,迲,刦,刧,刼,袷,跲,昅,抾,砝,蜐,衱,鉣,魥,鵖";"겁");
$text=_SubstituteExt($text;"德,悳,徳,恴,惪";"덕");
$text=_SubstituteExt($text;"番,繁,煩,飜,蕃,藩,燔,幡,樊,翻,蘩,墦,袢,畨,烦,璠,轓,旛,繙,膰,瀿,旙,鑁,蹯,橎,籓,㺕,蠜,僠,嬏,薠,鐇,棥,噃,勫,奿,瀪,羳,鱕,鷭,緐,襎,笲";"번");
$text=_SubstituteExt($text;"伐,罰,閥,筏,橃,罸,罚,阀,傠,垡,栰,浌,瞂,藅";"벌");
$text=_SubstituteExt($text;"凡,犯,範,范,汎,泛,帆,梵,氾,颿,笵,訉,凢,軓,杋,舤,钒,凣,忛,柉,滼,盕,舧,諚,釩";"범");
$text=_SubstituteExt($text;"法,琺,疺,珐,佱,灋,鍅";"법");
$text=_SubstituteExt($text;"西,書,序,暑,庶,徐,署,恕,緖,誓,敍,逝,瑞,舒,曙,棲,胥,黍,鼠,犀,薯,嶼,抒,壻,栖,筮,鋤,絮,墅,捿,婿,叙,紓,噬,鉏,湑,澨,芧,揟,耡,敘,遾,閪,溆,醑,諝,蜍,漵,潻,庻,糈,緒,偦,俆,圕,垿,屖,悇,书,屿,纾,绪,谞,锄,卥,唑,嫬,徆,恓,楈,樨,氥,汿,沀,潊,濖,瑹,癙,硒,稰,簭,粞,糬,縃,聓,聟,舾,蒣,藇,蝑,蠴,觢,迉,鏣,魣,鱪,鱮,鱰,鵨,鼡";"서");
$text=_SubstituteExt($text;"石,夕,席,昔,惜,釋,析,錫,奭,碩,晳,潟,汐,淅,蓆,腊,舃,蜥,鉐,晰,矽,鼫,释,穸,螫,祏,裼,焬,皙,襫,邜,桞,棤,檡,炻,睗,舄,硕,釈,锡,佦,冟,匇,唽,嬕,惁,扸,沯,澙,焟,磶,緆,菥,蕮,褯,釸,鮖";"석");
$text=_SubstituteExt($text;"先,仙,善,線,船,選,鮮,宣,旋,禪,膳,繕,扇,煽,璿,璇,瑄,癬,腺,羨,銑,蟬,詵,饍,嬋,僊,蘚,跣,鐥,渲,琁,敾,尠,燹,譔,綫,鏇,騸,愃,墡,筅,鱻,嫙,尟,屳,歚,譱,鱓,縇,鲜,缮,墠,獮,躚,僎,蟺,嬗,揎,蟮,襈,軐,僐,漩,舩,鍌,鱔,禅,线,铣,婵,狝,癣,籼,藓,蝉,诜,跹,选,镟,骟,鳝,傓,僲,塇,奾,嫸,廯,搧,暶,檈,毨,氙,灗,灷,烍,珗,碹,磰,禒,秈,箲,絤,縼,繏,缐,苮,蔙,蜁,褼,謆,赻,跴,鄯,酰,鍹,颴,鯅,鰚";"선");
$text=_SubstituteExt($text;"雪,說,説,設,舌,泄,薛,卨,屑,洩,渫,褻,楔,齧,偰,揲,爇,紲,媟,碟,暬,挈,絏,枻,囓,焫,躠,緤,褉,樰,㻡,说,亵,绁,设,鳕,伳,僁,哾,抴,揳,榍,疶,禼,糏,絬,膤,艝,蔎,蛥,轌,辥,辪,鱈";"설");
$text=_SubstituteExt($text;"纖,暹,蟾,陝,殲,閃,贍,剡,憸,銛,摻,繊,譫,殱,爓,纎,闪,睒,韱,陿,纤,掞,襳,掺,嬐,炶,䀹,䁡,歼,讝,谵,孅,攕,㨛,撡,赡,晱,燅,覢,䊹,铦";"섬");
$text=_SubstituteExt($text;"涉,攝,燮,躡,懾,囁,聶,鑷,灄,顳,爕,摂,讋,屧,籋,渉,夑,鍱,欇,鞢,躞,嗫,慑,摄,滠,聂,蹑,镊,颞,屟,弽,徢,疌,蠂,詟,讘,踂,踙,銸,韘";"섭");
$text=_SubstituteExt($text;"成,星,省,性,姓,城,誠,聖,聲,盛,晟,醒,宬,惺,腥,珹,猩,筬,騂,瑆,渻,垶,峸,狌,晠,煋,郕,鋮,偗,箵,絾,荿,謃,声,胜,诚,铖,骍,墭,娍,曐,殸,皨,睲,窚,篂,觪,觲,鍟,鮏,鯎,鯹";"성");
$text=_SubstituteExt($text;"魚,語,漁,於,御,禦,圄,瘀,馭,齬,圉,飫,敔,淤,扵,蘓,峿,籞,菸,鋙,渔,语,铻,饫,驭,鱼,龉,仒,唹,棜,秗,箊,篽,蓹,蘌,醧,饇,鯲,鷠";"어");
$text=_SubstituteExt($text;"億,憶,抑,臆,檍,繶,澺,亿,忆,悥,癔,肊,訲,餩";"억");
$text=_SubstituteExt($text;"言,焉,彦,諺,堰,偃,讞,嫣,鄢,鼴,匽,鼹,傿,彥,琂,唁,漹,蔫,喭,蝘,谚,嘕,墕,娮,嵃,愝,椻,牪,甗,篶,萒,褗,躽,遃,郾,隁";"언");
$text=_SubstituteExt($text;"蘖,孼,臬,孽,糱,臲,闑,隉,嵲,糵,枿,櫱,蠥,镍,巕,槷";"얼");
$text=_SubstituteExt($text;"嚴,掩,奄,儼,俺,淹,广,閹,晻,崦,弇,罨,曮,醃,渰,揜,顩,隒,严,俨,厂,腌,阉,剦,厈,厳,噞,孍,嶖,欕,硽,覎,龑";"엄");
$text=_SubstituteExt($text;"業,嶪,鄴,嶫,业,澲,邺,殗,餣,驜,鸈";"업");
$text=_SubstituteExt($text;"佇,低,儲,咀,姐,宁,岨,底,抵,杵,杼,柢,楮,樗,氐,沮,渚,滁,潴,瀦,牴,狙,猪,疽,箸,紵,罝,羝,苧,苴,菹,著,藷,蛆,袛,褚,觝,詆,詛,豬,貯,躇,這,邸,陼,雎";"저");
$text=_SubstituteExt($text;"赤,的,敵,適,賊,積,籍,跡,績,摘,寂,滴,蹟,笛,迹,嫡,謫,狄,吊,迪,勣,翟,鏑,荻,糴,逖,覿,磧,樀,菂,馰,踖,啇,篴,靮,廸,頔,苖,逷,耤,籊,擿,讁,墑,嚁,趯,庴,樍,歒,甋,硳,襀,鸐,积,碛,籴,绩,觌,谪,贼,镝,唙,啲,嘀,廭,戝,旳,梑,浾,漃,灻,烾,熵,玓,瓋,癪,聻,肑,葃,蔋,蔐,藡,豴";"적");
$text=_SubstituteExt($text;"田,前,全,電,戰,展,傳,典,錢,專,専,轉,殿,顚,甸,悛,奠,箭,銓,箋,塡,餞,篆,纏,剪,煎,廛,氈,輾,顫,澱,癲,栓,鐫,詮,佺,佃,鈿,琠,筌,塼,畑,靦,牋,畋,腆,顓,翦,瑱,痊,湔,縳,旃,躔,巓,羶,荃,磚,戩,鸇,甎,邅,飦,澶,揃,栴,屇,餰,鱣,槇,錪,畠,籛,膞,輇,嫥,癜,鄽,鋑,靛,銭,烇,竱,戦,跧,戬,笺,剸,填,氊,饘,橏,倎,纒,膻,譾,顛,淟,沺,搌,瘨,縓,謭,槙,滇,瀍,牷,拴,瑼,硂,窴,篿,搷,晪,朘,瑔,专,伝,巅,战,毡,电,癫,砖,诠,転,转,辁,钱,钿,铨,隽,饯,厧,叀,唺,壂,壥,姾,婝,媊,孨,峑,嵮,巔,帴,彅,恮,捵,擶,攧,敟,旜,暷,椣,椫,椾,榐,樿,櫤,歬,湹,猠,瑐,皽,睓,碘,磌,糋,絟,緾,羴,臇,葏,葥,蕇,蜔,蟤,覥,諓,諯,跈,蹍,蹎,鄟,鎸,鐉,馢,㒰";"전");
$text=_SubstituteExt($text;"節,絶,切,折,竊,截,浙,癤,窃,晢,岊,晣,蕝,嶻,絕,绝,棁,疖,节,幯,撧,擮,棳,楶,沏,聺,苆,趃,镻";"절");
$text=_SubstituteExt($text;"店,點,占,漸,粘,霑,点,岾,鮎,玷,覘,佔,簟,苫,墊,黏,颭,蔪,笘,坫,痁,扂,蒧,磹,鲇,垫,渐,觇,飐,唸,嚸,惦,掂,煔,秥,胋,螹,袩,誗,踮,鏩,頕";"점");
$text=_SubstituteExt($text;"接,蝶,摺,楪,檝,蹀,跕,椄,蜨,艓,褋,擑,聑,菨,襵";"접");
$text=_SubstituteExt($text;"正,定,丁,政,情,庭,停,精,靜,貞,井,淨,頂,廷,征,程,亭,整,鄭,訂,晶,呈,鼎,旌,挺,禎,偵,汀,楨,艇,珽,靖,釘,幀,錠,碇,穽,町,酊,睛,炡,霆,渟,淀,晸,綎,鉦,瀞,玎,諪,檉,姃,湞,鋌,筳,靚,酲,梃,怔,叮,棖,莛,婷,珵,疔,桯,佂,婧,掟,遉,静,净,㝎,鞓,浄,泟,埥,頲,矴,侹,涏,飣,凈,阱,琔,赬,仃,頳,揁,烶,脡,愸,睜,誔,椗,濎,竧,耵,证,侦,帧,柽,桢,浈,睁,祯,订,贞,郑,钉,钲,铤,锃,锭,顶,饤,丼,侱,啨,啶,圢,埕,埩,塣,奵,妌,娗,婙,媜,宑,嵉,嵿,帄,徎,徰,忊,悜,挰,揨,朾,栕,梷,楟,榳,橸,檙,汫,盯,眐,睈,碠,碵,竫,箐,糽,緽,耓,聇,聢,聤,肼,脭,腈,艼,萣,葶,薡,踭,邒,鐤,閮,阷,靗,靘,靪,顁,鼑,鼱,㓅";"정");
$text=_SubstituteExt($text;"處,妻,悽,凄,淒,覷,褄,郪,处,処,覰,觑,刞,竌,紪,緀,耝,覻,霋,鶈";"처");
$text=_SubstituteExt($text;"尺,拓,斥,戚,隻,陟,滌,擲,瘠,脊,倜,慽,剔,蹠,惕,跖,摭,躑,蜴,塉,捗,呎,坧,褁,慼,蹐,掦,鶺,隲,蹢,踢,墄,墌,鼜,掷,涤,踯,鹡,傶,叺,嵴,徏,悐,硩,磩,粎,蚇";"척");
$text=_SubstituteExt($text;"天,千,川,泉,淺,遷,賤,薦,踐,釧,擅,穿,喘,闡,阡,舛,韆,仟,玔,荐,倩,濺,洊,蕆,蒨,茜,芊,俴,儃,辿,僢,瓩,粁,臶,靝,迁,遄,刋,燀,賎,栫,韉,拪,剶,奷,荈,梴,棈,洤,湶,綪,闎,韀,浅,践,钎,冁,忏,扦,溅,蒇,贱,钏,阐,鞯,鳈,侟,兛,圌,圲,夼,幝,揼,曻,杄,楾,櫏,汌,汘,瀳,灛,灥,牮,猭,珔,瑏,皘,硟,竏,篅,篟,繟,腨,葲,蔳,譂,谸,輤,輲,釺,閳,靔,鰁";"천");
$text=_SubstituteExt($text;"鐵,哲,徹,撤,澈,喆,轍,綴,凸,輟,銕,掇,啜,惙,餮,歠,剟,埑,錣,飻,鉄,腏,鐡,畷,䮕,醊,悊,彻,缀,辍,辙,铁,锇,勶,叕,啠,嚞,嚽,敠,敪,涰,烲,焎,爡,瞮,砓,罬,聅,蛈,蜇,裰,諁,酫,醛,鋨,驖";"철");
$text=_SubstituteExt($text;"添,尖,瞻,僉,諂,籤,沾,詹,簽,甛,忝,簷,檐,襜,惉,瀸,幨,櫼,甜,韂,籖,悿,湉,掭,沗,裧,冿,噡,婖,燂,鑯,㤁,签,佥,裣,谄,锘,厃,嶦,敁,瀐,灊,籡,舔,舚,菾,虃,襝,讇,酟,鋓,鍩,鐱,閚,餂";"첨");
$text=_SubstituteExt($text;"妾,諜,帖,牒,疊,貼,捷,輒,堞,睫,喋,鰈,怗,褺,倢,呫,輙,㡇,疂,倿,氎,耴,婕,牃,穕,䩞,钻,叠,畳,谍,贴,辄,偼,媫,崨,惵,曡,淁,緁,脻,萜,蓵,誱,踕,迠,鉆,鮿,鯜";"첩");
$text=_SubstituteExt($text;"靑,淸,請,聽,晴,廳,菁,鯖,凊,圊,蜻,青,清,聼,聴,廰,厅,庁,请,夝,掅,暒,甠,碃,郬";"청");
$text=_SubstituteExt($text;"攄,摅";"터");
$text=_SubstituteExt($text;"許,虛,墟,噓,歔,虚,栩,虗,魖,嘘,浒,许,憈,鄦,驉,魼";"허");
$text=_SubstituteExt($text;"憲,獻,軒,櫶,献,巚,幰,攇,巘,瀗,宪,轩,仚,佡,搟";"헌");
$text=_SubstituteExt($text;"歇,滊";"헐");
$text=_SubstituteExt($text;"險,驗,嶮,玁,獫,硷,崄,猃,险,険,験,验,姭,忺,杴,榃,礆,譣,騐";"험");
$text=_SubstituteExt($text;"揭,憩,偈,愒,掲,垍,憇";"게");
$text=_SubstituteExt($text;"世,歲,細,洗,勢,稅,貰,笹,洒,繐,蛻,帨,税,嵗,歳,挩,裞,檅,涗,䵻,岁,细,贳,丗,亗,卋,朑,涚,祱,蔧,跩,軎,轊,銴,齛,齥";"세");
$text=_SubstituteExt($text;"恚,殪";"에");
$text=_SubstituteExt($text;"弟,第,題,諸,祭,除,帝,製,制,濟,提,際,齊,堤,劑,悌,蹄,梯,啼,霽,臍,薺,醍,儕,躋,擠,隄,娣,禔,睇,稊,瑅,鯷,緹,踶,猘,蹏,韲,鍗,苐,剤,褆,滛,斉,隮,磾,癠,穧,虀,穄,綈,鶗,嚌,淛,傺,鵜,渧,鞮,嗁,懠,僀,泲,漈,璾,偍,偙,徲,摕,蒢,鑇,騠,侪,剂,哜,挤,济,済,脐,荠,蛴,诸,跻,锑,际,霁,题,齐,齑,亝,俤,厗,埞,姼,媂,媞,怟,惿,慸,憏,斊,栬,櫅,漽,焍,狾,珶,睼,碮,碲,罤,腣,萕,袃,裚,謕,趧,銻,鮆";"제");
$text=_SubstituteExt($text;"體,遞,滯,替,逮,締,涕,諦,剃,体,軆,砌,棣,彘,蔕,蒂,殢,靆,嚏,髰,遆,滞,逓,禘,掣,遰,杕,躰,髢,疐,蝃,䙗,嵽,螮,餟,屜,懘,栘,褅,揥,摰,缔,谛,达,递,叇,嚔,墆,崹,挮,搋,摖,楴,璏,痸,皉,磜,祶,笍,迏,迖,釱,鉪,銐,鐟,霴,骵,鬀,鬄,鷈,鷉";"체");
$text=_SubstituteExt($text;"格,激,擊,隔,檄,膈,覡,骼,闃,挌,鴃,毄,撃,繳,閴,綌,鵙,愅,滆,薂,諽,击,绤,缂,缴,觋,阒,呄,嗝,垎,墼,搹,搿,敋,楁,欫,湨,燩,犑,狊,獥,礊,緙,臵,蛒,觡,譤,轚,郹,鄓,鞷,鶪,鸄,鼳";"격");
$text=_SubstituteExt($text;"見,犬,堅,遣,牽,肩,絹,甄,譴,鵑,繭,蠲,畎,狷,繾,筧,羂,樫,鰹,牵,掔,汧,岍,熞,縴,梘,罥,汱,甽,詃,趼,鋻,坚,枧,笕,绢,缱,见,谴,钘,鲣,鹃,儙,幵,悓,挸,掮,撁,枤,涀,猏,獧,瓹,睊,絸,茾,菺,蚈,蜸,蠒,裐,襺,豜,豣,鄄,鈃,銒,鏲,鑓,雃,鳽,鵳,麉";"견");
$text=_SubstituteExt($text;"結,決,潔,缺,訣,抉,闋,觖,玦,决,鴂,駃,袺,刔,洯,逫,结,诀,阕,僪,妜,挗,炔,焆,砄,缼,芵,蒛,蚗,蛪,觼,赽,趹,迼,釨,鐑,魝";"결");
$text=_SubstituteExt($text;"兼,謙,鉗,鎌,慊,箝,歉,蒹,嗛,縑,傔,㻩,拑,谦,鐮,鶼,钳,岒,黚,槏,缣,膁,鳒,羬,鰜,䭠,䊴,嵰,趝,鹣,镰";"겸");
$text=_SubstituteExt($text;"裌,唊,郟,郏,圶,掐,殎,鵊,䁍,䩡";"겹");
$text=_SubstituteExt($text;"京,敬,輕,經,慶,更,景,庚,驚,耕,競,境,竟,警,鏡,傾,卿,頃,徑,硬,梗,瓊,儆,璟,炅,勁,鯨,磬,頸,莖,脛,憬,痙,絅,耿,逕,坰,璥,擎,勍,涇,暻,俓,倞,罄,扃,竸,冏,煢,惸,畊,鯁,哽,檠,綆,黥,褧,謦,駉,剄,熲,憼,焭,顈,経,軽,亰,獍,璚,曔,㯳,澃,挭,埛,麖,燝,牼,鞕,囧,藑,傹,剠,桱,浭,綗,莄,誙,鶊,䪫,径,茎,倾,刭,劲,庆,弪,氢,泾,烃,琼,痉,竞,经,绠,胫,茕,轻,迳,镜,顷,颈,颎,鲠,鲸,鹒,䌹,儝,冋,坕,坙,埂,婛,峺,巠,幜,庼,廎,弳,挳,掶,摼,擏,棾,椩,樈,橩,檾,櫦,殌,氫,滰,漀,烴,焿,煚,煛,燛,猄,睘,瞏,苘,菮,葝,蘏,蟼,誩,赹,踁,郠,鍄,鑋,頚,駫,骾,鵛,鶁";"경");
$text=_SubstituteExt($text;"袽,钕,帤,釹";"녀");
$text=_SubstituteExt($text;"惄,䭆";"녁");
$text=_SubstituteExt($text;"年,秊,碾,涊,哖,姩,簐,脌,躎,鵇,鼰";"년");
$text=_SubstituteExt($text;"圼,篞";"녈");
$text=_SubstituteExt($text;"恬,拈,䧔,艌,埝,踗,焾";"념");
$text=_SubstituteExt($text;"喦,惗,帇,幉,敜,鈢,鉩,錜";"녑");
$text=_SubstituteExt($text;"寗,佞,甯,侫,寕,濘,寜,檸,嚀,擰,聹,拧,儜,寍,嬣,薴,鸋,聍,咛,澝,橣,鑏";"녕");
$text=_SubstituteExt($text;"旅,慮,麗,勵,廬,礪,驪,閭,戾,戻,黎,侶,濾,驢,藜,儷,蠣,櫚,厲,臚,癘,膂,蠡,糲,唳,梠,鑢,儢,邌,吕,沴,荔,丽,侣,盭,瓈,欐,蟸,黧,棙,穭,廲,藘,攦,櫖,爈,茘,蜧,励,俪,厉,庐,滤,疠,砺,稆,粝,胪,蛎,铝,闾,驴,骊,鲡,勴,囇,婯,巁,悷,挔,捛,曞,曥,栛,沵,焒,珕,矋,祣,禲,穞,絽,綟,膐,蛠,蠇,郘,鋁,鏫,鑗,馿,騹,鱱,鱺,鵹";"려");
$text=_SubstituteExt($text;"力,歷,曆,瀝,礫,轢,靂,櫟,櫪,鬲,酈,攊,癧,轣,歴,暦,厯,皪,屴,朸,檪,磿,礰,躒,历,呖,坜,枥,栎,沥,疬,砾,苈,跞,轹,郦,镉,雳,儮,厤,叻,嚦,壢,擽,爏,瓅,瓑,砳,秝,蒚,藶,蚸,蝷,觻,讈,赲,鎘,靋,韷,鱳,鳨";"력");
$text=_SubstituteExt($text;"連,練,鍊,憐,戀,聯,蓮,漣,輦,煉,璉,攣,錬,臠,孌,鰱,楝,鏈,湅,鰊,恋,堜,摙,䏈,縺,聨,链,娈,挛,撵,梿,涟,炼,琏,练,联,脔,莲,裢,辇,连,鲢,僆,嗹,噒,奱,媡,嫾,徚,慩,攆,槤,櫣,瑓,癴,纞,翴,聫,聮,膦,萰,褳,謰,蹥,鄻";"련");
$text=_SubstituteExt($text;"列,烈,劣,冽,洌,捩,颲,挒,茢,迾,鋢,鴷,锊,劽,咧,哷,姴,挘,浖,烮,煭,爄,睙,脟,蛚,蛶,趔,迣,鋝";"렬");
$text=_SubstituteExt($text;"廉,濂,斂,簾,殮,歛,瀲,奩,磏,帘,㢘,嬚,搛,溓,薕,蘝,蠊,奁,敛,潋,莶,蔹,亷,劆,匲,匳,澰,濓,熑,燫,稴,籢,籨,羷,臁,薟,蘞,螊,覝,鬑";"렴");
$text=_SubstituteExt($text;"獵,鬣,躐,儠,擸,猟,巤,犣,聗,鱲";"렵");
$text=_SubstituteExt($text;"令,領,寧,靈,嶺,零,鈴,玲,囹,齡,逞,聆,怜,伶,翎,羚,岺,笭,另,岭,泠,苓,鴒,蛉,欞,呤,昤,姈,秢,軨,鹷,灵,坽,櫺,醽,霛,瓴,狑,舲,彾,竛,跉,霝,燯,詅,酃,棂,铃,霊,领,鸰,齢,龄,刢,孁,拎,朎,柃,澪,炩,爧,皊,砱,紷,蕶,蘦,衑,袊,閝,阾,霗,駖,魿";"령");
$text=_SubstituteExt($text;"旀,厼";"며");
$text=_SubstituteExt($text;"覓,冪,幎,羃,覔,幂,觅,塓,幦,淿,濗,簚,鼏";"멱");
$text=_SubstituteExt($text;"面,免,勉,眠,綿,冕,沔,娩,緬,眄,麵,棉,俛,緜,麪,糆,湎,靣,丏,偭,勔,愐,櫋,莬,葂,麫,绵,缅,腼,喕,婂,媔,嬵,檰,汅,矈,矊,矏,臱,芇,蝒,鮸,麺";"면");
$text=_SubstituteExt($text;"滅,蔑,衊,篾,蠛,搣,櫗,灭,孭,幭,懱,揻,薎,鑖,鱴,鴓";"멸");
$text=_SubstituteExt($text;"明,命,名,鳴,銘,冥,溟,暝,皿,螟,酩,瞑,蓂,茗,椧,洺,眀,凕,詺,䏃,铭,鸣,佲,姳,嫇,慏,掵,朙,榠,焽,熐,猽,眳,笽,覭,鄍,鵈";"명");
$text=_SubstituteExt($text;"壁,碧,僻,闢,璧,癖,劈,擘,霹,蘗,檗,辟,擗,甓,襞,疈,鷿,鼊,薜,皕,躄,躃,湢,澼,綼,鐴,鲾,噼,堛,孹,廦,憵,挀,揊,檘,礔,礕,稫,糪,繴,釽,銢,鰏,鸊";"벽");
$text=_SubstituteExt($text;"變,邊,辯,辨,卞,弁,騈,籩,抃,忭,汴,辮,駢,腁,賆,萹,骿,鴘,拚,邉,変,釆,变,辺,昪,跰,胼,笾,苄,辩,辫,边,骈,匥,峅,汳,炞,犿,玣,甂,稨,糄,藊,覍,辡,閞";"변");
$text=_SubstituteExt($text;"別,瞥,鱉,鼈,鷩,彆,别,撇,蹩,莂,潎,䠥,瘪,鳖,嫳,徶,憋,暼,癟,虌,蛂,蟞,襒,覕,鐅,龞";"별");
$text=_SubstituteExt($text;"病,瓶,兵,丙,餅,并,並,竝,屏,秉,柄,炳,併,昺,昞,輧,棅,迸,缾,怲,荓,屛,幷,餠,逬,甁,帲,邴,陃,傡,栟,聠,帡,竮";"병");
$text=_SubstituteExt($text;"女,如,餘,與,余,汝,予,輿,呂,歟,轝,茹,璵,艅,礖,舁,与,欤,畬,洳,旟,䂊,蕷,鴽,伃,妤,澦,籹,馀,滪,畲,舆,蓣,铷,侞,嬩,忬,悆,懙,桇,櫲,狳,玙,畭,硢,礜,穥,筎,籅,肗,蕠,邚,銣,雓,鮽";"여");
$text=_SubstituteExt($text;"亦,易,逆,役,驛,譯,域,疫,繹,嶧,懌,閾,淢,埸,蜮,晹,湙,帟,棫,燡,睪,鶂,坄,歝,琙,魊,峄,怿,绎,訳,译,駅,驿,伇,圛,垼,墿,屰,戫,曎,棭,炈,痬,硛,緎,縌,罭,虉,豛,醳,鈠,鯣,鶃,鷊";"역");
$text=_SubstituteExt($text;"然,煙,硏,宴,延,緣,演,燃,軟,淵,燕,沿,鉛,衍,捐,硯,姸,筵,椽,鳶,撚,烟,涓,沇,娟,涎,堧,嚥,挻,縯,讌,臙,莚,吮,掾,悁,兗,埏,渷,鷰,嬿,囦,曣,葕,研,兖,缘,壖,蜒,輭,鈆,碝,耎,綖,鋋,妍,珚,縁,肰,蜎,蝝,撋,抁,灁,瑌,瓀,礝,醼,砚,软,铅,嘫,噮,姢,娫,嬊,揅,昖,棩,椼,樮,橪,渁,渆,渕,溎,烻,狿,緛,繎,肙,胭,蔅,裫";"연");
$text=_SubstituteExt($text;"裂,噎,悅,悦,涅,熱,閱,閲";"열");
$text=_SubstituteExt($text;"念,炎,鹽,染,厭,閻,焰,艶,苒,髥,琰,捻,塩,冉,灎,饜,灩,黶,扊,檿,懕,檶,釅,燄,髯,曕,猒,袡,豔,偣,冄,厴,呥,嬮,蚦,艳,厌,殓,盐,魇,乵,壛,夵,姌,媣,懨,抩,敥,棪,櫩,灔,焔,珃,艷,蒅,蚺,衻,酓,醶,鯰";"염");
$text=_SubstituteExt($text;"葉,燁,曄,叶,魘,爗,靨,曅,饁,瞱,曗,擛,靥,偞,僷,嚈,擪,擫,枼,枽,殜,皣,瞸,鐷";"엽");
$text=_SubstituteExt($text;"永,英,榮,迎,營,影,詠,映,泳,盈,塋,瑛,暎,穎,纓,楹,瀛,潁,嶸,霙,獰,濚,渶,瀯,煐,瓔,鍈,嬰,咏,贏,縈,嬴,郢,癭,韺,浧,碤,营,営,嵘,栐,禜,攖,頴,灜,覮,籝,籯,偀,媖,溋,濙,瀴,蘡,婴,撄,栄,狞,绬,赢,锳,颍,颕,颖,嬫,孆,孾,巆,巊,廮,怺,愥,摬,攍,攚,朠,柍,柡,梬,楧,櫿,溁,爃,璄,盁,矨,礯,緓,萾,蝧,蠳,賏,醟,鐛,鑍,鶧";"영");
$text=_SubstituteExt($text;"便,篇,片,遍,偏,編,扁,鞭,騙,翩,徧,褊,艑,蝙,匾,諞,惼,緶,煸,蹁,楩,楄,鯾,鯿,缏,编,谝,骗,鳊,囨,媥,揙,牑,犏,猵,碥,箯,覑,貵,鍽,頨,騗,魸,鶣";"편");
$text=_SubstituteExt($text;"貶,窆,砭,贬";"폄");
$text=_SubstituteExt($text;"平,評,坪,萍,枰,苹,抨,怦,泙,蓱,鮃,玶,呯,评,鲆,匉,姘,岼,拼,胓,蚲,閛,駍";"평");
$text=_SubstituteExt($text;"革,赫,爀,奕,嚇,洫,鬩,弈,焱,衋,虩,侐,焃,殈,赩,吓,阋,伵,捇,煂,盢,瞁,覤,赥,趘";"혁");
$text=_SubstituteExt($text;"現,賢,顯,玄,縣,懸,絃,弦,鉉,峴,炫,眩,衒,絢,晛,俔,玹,泫,睍,舷,儇,嬛,昡,誢,琄,繯,痃,県,祆,翾,蜆,鋗,駽,顕,袨,灦,敻,礥,贒,垷,莧,哯,埍,胘,蚿,蠉,鋧,鑦,䧎,伣,县,岘,悬,显,现,绚,缳,苋,蚬,贤,铉,伭,呟,咞,妶,娊,娹,婱,弲,怰,惤,梋,矎,臔,臤,訮,詪,詽,誸,譞,讂,贙,鞙,韅";"현");
$text=_SubstituteExt($text;"血,穴,孑,頁,絜,趐,泬,蝢,緳,䆷,䦧,页,吷,坹,奊,娎,岤,烕,疦,茓,裇";"혈");
$text=_SubstituteExt($text;"嫌,鼸,馦";"혐");
$text=_SubstituteExt($text;"協,脅,狹,峽,挾,俠,頰,夾,浹,脇,鋏,莢,恊,愜,篋,悏,匧,埉,祫,峡,惬,䝱,筴,蛺,劦,冾,勰,脥,硤,拹,狭,侠,协,夹,挟,浃,硖,箧,胁,荚,蛱,铗,铪,颊,饸,嗋,垥,愶,旪,梜,熁,燲,綊,脋,鉿,鞈,頬,餄";"협");
$text=_SubstituteExt($text;"兄,形,刑,亨,螢,衡,炯,馨,邢,瀅,型,荊,熒,瑩,泂,珩,逈,烱,滎,鎣,灐,迥,詗,夐,陘,娙,荆,鉶,硎,浻,蘅,郉,脝,㢠,侀,涥,㺾,㼆,泶,滢,潆,荥,荧,萤,蓥,诇,铏,陉,哼,坓,嵤,悙,擤,瀠,藀,蛍,蛵,褮,賯,鋞,鶑";"형");
$text=_SubstituteExt($text;"計,界,癸,渓,溪,季,鷄,啓,繼,戒,係,系,階,契,桂,械,繫,悸,谿,稽,棨,誡,屆,磎,堺,雞,烓,罽,薊,堦,髻,禊,筓,綮,稧,瘈,縘,葪,届,継,繋,鶏,笄,悈,紒,㻑,枅,鸂,啟,卟,呇,晵,暩,檕,甈,瘛,鍥,启,鸡,继,蓟,计,诫,锲,阶,乩,唘,啔,喺,嗘,峜,嵠,彐,彑,昋,栔,楐,檵,瀱,畍,痵,碶,筀,罊,葜,蓕,蘮,蘻,蟿,諬,銈,鎅,鑙,闙,鯚,鳮,齘";"계");
$text=_SubstituteExt($text;"禮,例,隷,醴,澧,鱧,鳢,櫔,欚,濿,犡,瓥,砅";"례");
$text=_SubstituteExt($text;"芸,藝,豫,譽,銳,隸,預,睿,濊,芮,詣,曳,裔,穢,刈,乂,倪,霓,猊,汭,蘂,叡,隸,翳,繄,睨,蕊,鯢,獩,曀,枘,拽,蜺,薉,鷖,蕋,蚋,囈,嫛,掜,苅,瘞,羿,勩,蜹,曵,輗,蓺,貎,埶,堄,晲,枍,瑿,蘙,觬,鋭,譽,锐,呓,瘗,秽,艺,诣,预,兿,呭,壡,婗,寱,帠,怈,悘,捙,栧,槸,橤,殹,淣,玴,秇,繠,蘃,袣,褹,襼,詍,讛,跇,踅,郳,鏏,靾,饖,黳,齯";"예");
$text=_SubstituteExt($text;"閉,廢,肺,弊,蔽,幣,陛,斃,吠,嬖,獘,敝,癈,狴,廃,杮,梐,幤,废,毙,箅,闭,櫠,獙,砩,蕟,蜌,鄨,鐾,閇";"폐");
$text=_SubstituteExt($text;"惠,慧,兮,彗,醯,鞋,蹊,蕙,暳,盻,徯,槥,傒,嘒,寭,謑,譿,恵,嵇,鼷,鞵,潓,嵆,橞,蟪,譓,豀,嚖,憓,僡,嚡,忚,懳,榽,橀,櫘,璤,蒵,螇,豯,鏸,韢,騱";"혜");
$text=_SubstituteExt($text;"古,高,告,苦,固,故,考,姑,孤,庫,鼓,稿,枯,顧,雇,賈,皐,錮,拷,痼,辜,膏,叩,股,袴,敲,呱,誥,槁,藁,攷,沽,蠱,羔,苽,睾,菰,暠,尻,瞽,刳,靠,翺,罟,觚,杲,栲,槀,估,詁,盬,篙,鴣,皋,酤,櫜,糕,胯,郜,羖,槹,鈷,凅,牯,稁,箍,鷱,塙,臯,髙,皷,泒,稾,鼔,吿,楛,翶,餻,柧,侤,蛄,嵪,笟,羙,胍,搞,桍,棝,槔,橰,狜,翱,薧,藳,鼛,库,绔,蛊,裤,诂,诰,轱,钴,铐,锆,锢,顾,鲓,鲴,鸪,僱,勂,叝,咕,哌,圐,堌,夃,婟,嫴,崓,崮,怘,挎,橭,檺,洘,滜,烤,焸,煰,燺,瘔,祮,祰,祻,禞,秙,稒,筶,箛,篐,絝,罛,臌,菇,菒,薣,蛌,褲,跍,軱,軲,郀,鈲,銬,鋯,韟,骷,髚,髛,鮕,鮳,鯌,鯝,鷎";"고");
$text=_SubstituteExt($text;"曲,谷,穀,哭,鵠,梏,斛,轂,嚳,縠,觳,槲,糓,榖,毂,牿,瑴,喾,鹄,俈,唂,唃,嘝,浀,濲,瀔,瀫,焀,焅,硞,硲,筁,粬,蔛,蛐,螜,逧,髷,﨏";"곡");
$text=_SubstituteExt($text;"困,坤,昆,棍,袞,崑,梱,棞,捆,綑,稇,睏";"곤");
$text=_SubstituteExt($text;"骨,汨,鶻,矻,榾,搰,汩,杚,圣,馉,鹘,傦,尳,愲,抇,縎,蓇,顝,餶";"골");
$text=_SubstituteExt($text;"工,公,功,空,共,恐,恭,供,貢,孔,攻,控,拱,鞏,珙,蚣,跫,倥,崆,蛩,釭,箜,悾,栱,槓,贛,蛬,龔,筇,羾,鞚,廾,邛,笻,㓋,涳,卭,疘,糿,巩,贡,赣,龚,埪,塨,幊,愩,慐,拲,桏,灨,熕,硿,碽,篢,舼,蒆,躻,輁,銎,髸,鵼,龏";"공");
$text=_SubstituteExt($text;"串";"곶");
$text=_SubstituteExt($text;"奴,努,盧,駑,弩,瑙,孥,呶,猱,笯,臑,峱,砮,巙,怓,鑥,镥,驽,伖,伮,夒,巎,獿,粩,胬,蛯,詉,鴑";"노");
$text=_SubstituteExt($text;"傉,搙";"녹");
$text=_SubstituteExt($text;"農,濃,膿,穠,儂,醲,农,禯,浓,侬,癑,襛,齈,脓,噥,嶩,蕽,辳,秾,檂,燶,欁,繷,鬞,哝";"농");
$text=_SubstituteExt($text;"道,圖,度,到,都,島,導,徒,逃,盜,渡,刀,途,倒,陶,桃,塗,稻,挑,跳,悼,禱,濤,蹈,屠,滔,睹,掉,鍍,堵,賭,搗,萄,淘,覩,棹,韜,嶋,櫂,叨,擣,謟,荼,闍,翿,忉,稌,鼗,咷,檮,綯,洮,慆,鞉,瘏,盗,図,燾,稲,饕,祹,图,迯,禂,涛,䆃,熖,舠,弢,涂,祷,岛,导,夲,鞱,裪,幍,釖,嶌,朷,匋,㨶,镀,嶹,噵,掏,縚,赌,壔,嘟,䵚,韬,唋,槄,衜,捈,暏,跿,鋾,都,梼,鳭,啕,槝,騊,捯,瑫,酴,菿,捣,瓙,喥,嫍,峹,槅,衟,筡,饀,魛,焘,阇,蓞,﨩,隝,嶀,廜,梌,檤,醄,鷋,旫,凃,椡,隯,圗,馟,鞀,嵞,帾,氘,潳,蒤,虭,蜪,醏,駼,鵌,鷵,屶";"도");
$text=_SubstituteExt($text;"匵,櫝,毒,涜,瀆,牘,犢,独,獨,督,禿,秃,篤,読,讀,黷";"독");
$text=_SubstituteExt($text;"敦,豚,沌,旽,暾,墩,焞,頓,惇,燉,潡,炖,顿,橔,飩,㹠,獤,㻻,礅,囤,墪,弴,扥,伅,忳,撉,驐,躉,扽,砘,趸,魨,饨,豘,犜,庉,蹾,鲀,逇,崸,軘,朜";"돈");
$text=_SubstituteExt($text;"乭,咄,堗,突";"돌");
$text=_SubstituteExt($text;"仝,侗,倲,偅,働,僮,冬,凍,動,同,哃,垌,峒,彤,憧,朣,東,桐,棟,橦,洞,涷,潼,炵,烔,疼,瞳,童,胴,艟,苳,茼,董,蕫,蝀,銅,鮗,鼕";"동");
$text=_SubstituteExt($text;"老,路,勞,怒,露,魯,爐,蘆,鷺,虜,擄,撈,輅,鹵,潞,櫓,瀘,鑪,鱸,壚,艪,顱,艫,鸕,轤,玈,窂,滷,癆,磠,鐪,髗,劳,澇,鏴,璐,獹,罏,攎,簵,咾,嫪,櫨,珯,矑,簬,艣,髝,卤,橹,炉,労,卢,唠,噜,垆,崂,捞,掳,撸,栌,氇,泸,涝,痨,耢,舻,虏,轳,辂,铑,铹,颅,鲁,鲈,鸬,鹭,僗,哰,嘮,嚕,嚧,塷,嶗,恅,憥,憦,擼,朥,栳,樐,橯,氌,浶,澛,瀂,狫,瓐,硓,磱,簩,籚,纑,耮,蓾,蕗,虂,蟧,軂,銠,鏀,鐒,魲,鮱,黸";"로");
$text=_SubstituteExt($text;"綠,錄,祿,鹿,麓,碌,菉,淥,漉,彔,騄,簏,轆,圥,录,盝,籙,禄,醁,緑,廘,録,睩,蔍,绿,渌,箓,辘,塶,娽,摝,梺,椂,樚,氯,熝,琭,甪,簶,粶,膔,螰,觮,趢,蹗,錴,騼,鵦,龣";"록");
$text=_SubstituteExt($text;"論,惀,碖,菕,论,婨,溣";"론");
$text=_SubstituteExt($text;"弄,籠,聾,壟,瓏,朧,瀧,隴,礱,曨,蘢,儱,攏,櫳,壠,巃,哢,礲,嚨,竉,㺯,胧,厐,咙,垄,垅,拢,昽,栊,泷,滝,珑,砻,笼,聋,茏,陇,巄,挊,挵,梇,槞,硦,篭,蠪,裃,襱,豅,鏧,鑨,靇,鸗,龓";"롱");
$text=_SubstituteExt($text;"母,毛,暮,慕,募,模,某,謀,冒,侮,貌,謨,牟,帽,茅,矛,耗,摸,牡,眸,摹,瑁,芼,姆,糢,耄,侔,髦,旄,媢,蟊,嫫,眊,皃,姥,蝥,粍,鉾,恈,冐,麰,謩,氁,秏,䫉,橅,䖥,牦,谋,谟,兞,冃,哞,娒,峔,慔,枆,栂,毟,毪,毮,毷,洠,獏,玥,瓱,砪,竓,罞,艒,萺,蓩,蛑,蝐,蟱,覒,軞,酕,魹,鴾,鶜";"모");
$text=_SubstituteExt($text;"木,目,牧,睦,穆,沐,鶩,楘,霂,莯,杢,苜,凩,钼,毣,炑,坶,䀲,鉬,鹜,蚞,狇";"목");
$text=_SubstituteExt($text;"沒,歿,没,殁,圽,歽,歾,莈";"몰");
$text=_SubstituteExt($text;"夢,蒙,朦,矇,濛,曚,瞢,幪,雺,懞,艨,溕,鸏,梦,懵,冡,懜,蠓,饛,矒,霿,鹲,夣,檬,氋,獴,礞,鄸,霥,靀";"몽");
$text=_SubstituteExt($text;"步,保,報,寶,補,普,譜,輔,甫,堡,潽,菩,洑,褓,珤,湺,靌,簠,俌,黼,葆,鴇,盙,宝,寳,莆,歩,踄,椺,賲,堢,藵,报,补,谱,辅,镨,鸨,埗,媬,寚,暜,歨,烳,煲,緥,蕔,蚥,諩,鐠,駂,鮬,鳵";"보");
$text=_SubstituteExt($text;"福,服,復,伏,卜,腹,覆,複,馥,僕,輻,匐,鰒,宓,茯,蔔,輹,扑,幞,濮,鵩,蝮,墣,蝠,箙,菔,袱,菐,攴,葍,攵,栿,覄,楅,襆,醭,澓,复,辐,鳆,垘,棴,椱,獛,畐,畗,癁,稪,穙,絥,纀,蕧,虙,虲,襥,諨,贌,踾,蹼,轐,鍑,鍢,鮲,鳪,鶝,鸔";"복");
$text=_SubstituteExt($text;"本,呠,楍,絊";"본");
$text=_SubstituteExt($text;"奉,逢,封,鳳,峯,蜂,蓬,俸,縫,捧,鋒,烽,棒,峰,熢,琫,綘,篷,葑,夆,菶,鴌,篈,鳯,塜,賵,芃,捀,艂,蠭,髼,唪,崶,淎,莑,鏠,凤,缝,赗,锋,仹,埄,埲,塳,妦,摓,桻,槰,樥,浲,湗,溄,漨,焨,犎,琒,盽,竼,纄,蘕,覂,鎽,鑝,鞛,韸,韼,鬔";"봉")
];
$text
 )

辞書の関数「_HangulDB2(text)」です。

// カスタム関数 _Hangul ( ) 、  _HangulDB2 (  )、 _SubstituteExt ( ) といっしょにインストールしてください。
// このカスタム関数は _Hangul ( ) のデータストレージです。
// このカスタム関数を直接呼び出さないでください。

Let (
[
$text = text;

$text=_SubstituteExt($text;"小,少,所,笑,消,素,召,昭,訴,掃,蘇,燒,騷,疎,蔬,巢,紹,邵,沼,蕭,宵,逍,簫,搔,遡,梳,塑,甦,瘙,疏,嘯,銷,韶,瀟,炤,溯,篠,踈,艘,霄,泝,埽,翛,愬,繅,卲,蛸,俏,捎,魈,佋,箾,嗉,筱,塐,樔,膆,鮹,鰺,咲,穌,焇,焼,销,熽,筲,謏,蠨,傃,玿,痟,矂,喿,璅,騒,愫,慅,旓,櫹,歗,溸,琑,苏,关,啸,巣,扫,潇,烧,稣,箫,绍,缫,萧,蟏,诉,骚,鲹,鳋,嘨,囌,尕,巶,弰,彇,掻,柖,榡,櫯,氉,溞,漅,潲,牊,窼,笤,筿,簘,綀,艄,莦,萷,袑,踃,鄛,颵,颾,髾";"소");
$text=_SubstituteExt($text;"速,俗,續,束,屬,粟,贖,涑,謖,洬,遬,属,蔌,餗,觫,鋉,梀,誎,簌,続,续,谡,赎,僳,憟,樕,殐,藚,趚";"속");
$text=_SubstituteExt($text;"孫,損,遜,巽,蓀,飧,飱,噀,孙,损,狲,荪,逊,巺,愻,搎,槂,潠,猻,蕵,薞,顨";"손");
$text=_SubstituteExt($text;"蟀,窣,卛,摔,甩,碿,蜶";"솔");
$text=_SubstituteExt($text;"送,松,訟,誦,頌,宋,悚,淞,竦,柗,鬆,荣,㩳,讼,诵,锶,颂,倯,凇,庺,彸,愯,憽,捒,枀,枩,梥,楤,檧,蜙,鍶,鎹,餸,駷";"송");
$text=_SubstituteExt($text;"五,午,吾,誤,烏,悟,吳,嗚,汚,娛,傲,奧,梧,墺,伍,寤,懊,澳,鰲,鼇,晤,敖,塢,熬,獒,筽,蜈,俉,旿,忤,嗷,媪,汙,遨,鏖,襖,迃,驁,窹,迕,鼯,聱,唔,慠,謷,隩,捂,鏊,仵,俣,圬,噁,嫯,茣,杇,悞,吴,污,牾,呉,洿,厫,噢,鄔,嗸,扷,浯,螯,廒,璈,㹳,圫,嵨,嶅,擙,珸,祦,郚,鏕,磝,鋘,隖,鷔,鳌,乌,呜,坞,奥,娱,岙,悮,袄,误,啎,埡,奡,娪,娯,嶴,弙,忢,摀,摮,歍,汻,洖,溩,滶,澚,焐,熓,爊,獓,玝,瑦,痦,窏,繺,肟,脵,蔜,蘁,謸,趶,镺";"오");
$text=_SubstituteExt($text;"玉,屋,獄,沃,鈺,鋈,狱,莹,钰,剭,媉,砡,箼,鳿";"옥");
$text=_SubstituteExt($text;"溫,穩,蘊,縕,瘟,瑥,醞,慍,氳,韞,媼,昷,薀,轀,熅,饂,鰮,温,愠,藴,蕰,醖,榲,蒕,塭,瘒,鎾,酝,揾,榅,煴,搵,殟,緼,蒀,褞,輼,鰛";"온");
$text=_SubstituteExt($text;"兀,膃,嗢,腽,杌,卼,屼,扤,矹,淴,瞃,阢,靰";"올");
$text=_SubstituteExt($text;"翁,擁,雍,壅,甕,邕,瓮,饔,癰,顒,蓊,雝,滃,罋,廱,癕,痈,臃,拥,勜,嗈,嗡,噰,塕,嵡,暡,澭,灉,瞈,聬,蕹,螉,郺,鎓,鰅,鶲";"옹");
$text=_SubstituteExt($text;"朝,祖,助,鳥,調,造,早,兆,條,照,操,租,弔,潮,組,趙,曺,祚,燥,措,遭,釣,彫,曹,詔,阻,粗,漕,凋,稠,藻,肇,嘲,爪,眺,躁,棗,糟,繰,雕,俎,窕,蚤,槽,晁,璪,噪,皁,祧,徂,胙,竈,刁,絛,譟,鵰,澡,殂,鼂,臊,嘈,佻,琱,蔦,銚,糙,找,誂,傮,嬥,笊,絩,艚,鈟,鋽,鯛,条,阼,皂,慥,脁,粜,罩,旐,朓,啁,爼,鯈,窱,螬,曌,沠,縧,蓧,垗,莇,藋,釂,駋,晀,竃,竨,罺,艁,趮,醩,枣,灶,组,缲,茑,荮,诏,调,赵,钌,钓,铞,铫,鲷,鸟,伄,刟,叼,唕,唣,宨,嶆,幧,庣,抓,枛,栆,梍,樢,樤,殦,燳,狣,瑵,盄,瞗,穒,簓,罀,羄,聎,肁,肈,莜,葤,蒩,蓸,蛁,螩,褿,襙,覜,訋,謯,謿,趒,蹧,鄵,釕,銱,鋚,錭,鏪,鐰,鑃,雿,靻,駣,魡";"조");
$text=_SubstituteExt($text;"足,族,簇,瘯,哫,镞,踿";"족");
$text=_SubstituteExt($text;"存,尊,拵,鐏,燇,橂,袸,銌";"존");
$text=_SubstituteExt($text;"卒,拙,猝,捽,椊,卆,炪,箤";"졸");
$text=_SubstituteExt($text;"終,宗,種,從,鐘,縱,腫,琮,綜,踵,踪,慫,鍾,淙,悰,棕,倧,蹤,瘇,螽,椶,粽,伀,慒,柊,樅,瑽,従,縦,嵸,騣,蓗,鬃,徖,忪,倊,尰,朡,籦,糉,緃,緵,衳,鍐,钟,从,怂,枞,疭,纵,终,综,肿,苁,锺,骔,骙,傱,刣,堫,堹,妐,婃,孮,嵏,嵕,嵷,幒,徔,徸,昮,暰,歱,汷,泈,潀,炂,煄,熧,猔,猣,瘲,瞛,磫,稯,糭,緟,翪,腙,艐,葼,蔠,蝬,誴,諥,賩,銿,錝,騌,騤,鬉,鯮,鯼,鴤,鶎";"종");
$text=_SubstituteExt($text;"草,初,招,超,礎,抄,肖,秒,哨,楚,焦,礁,稍,樵,貂,梢,炒,憔,硝,蕉,醋,醮,椒,酢,剿,艸,苕,迢,誚,勦,悄,綃,鈔,軺,峭,怊,愀,髫,鞘,譙,杪,噍,岧,踔,燋,鷦,顦,劭,趠,僬,嶕,鍬,偢,嫶,耖,鍫,齠,椘,憷,岹,弨,撨,眧,檚,膲,芀,蟭,鉊,诌,诮,谯,轺,钞,锹,鹪,龆,仦,仯,僺,儊,劁,劋,吵,妱,屌,嶣,巐,帩,愺,摷,櫵,欩,潐,濋,焣,煍,燞,璴,瘄,癄,睄,瞧,祒,茮,荹,菬,萔,蕱,藮,觘,訬,謅,趭,轈,釥,鍣,鐎,陗,鞩,騲,麨";"초");
$text=_SubstituteExt($text;"觸,燭,促,蜀,囑,矗,鏃,躅,髑,爥,曯,嘱,瞩,斸,瘃,蠋,劚,歜,灟,触,烛,亍,孎,斶,欘,竐,脨,臅,蠾,襡,襩,趗,钃,鸀";"촉");
$text=_SubstituteExt($text;"寸,村,忖,邨,吋,刌,屗,澊,籿";"촌");
$text=_SubstituteExt($text;"總,聰,銃,寵,叢,塚,摠,悤,蔥,憁,葱,驄,蓯,騘,冢,捴,総,揔,匆,偬,漎,怱,緫,傯,棇,潨,聡,忩,璁,藂,惣,漗,篵,丛,宠,总,聪,铳,骢,埫,愡,搃,樬,樷,欉,潈,濍,灇,焧,熜,燪,爜,縂,繱,茐,蟌,謥,鍯,鏓";"총");
$text=_SubstituteExt($text;"土,討,吐,兎,菟,兔,圡,茔,讨,钍,堍,汢,芏,莵,釷,鵵";"토");
$text=_SubstituteExt($text;"噸,噋,瓲,啍,畽,䵯";"톤");
$text=_SubstituteExt($text;"通,統,痛,慟,筒,桶,恫,筩,樋,憅,熥,綂,恸,统,嗵,捅,痌,蓪";"통");
$text=_SubstituteExt($text;"布,抱,捕,浦,胞,包,飽,砲,抛,鋪,逋,怖,鮑,泡,葡,褒,袍,蒲,圃,脯,哺,匍,咆,疱,苞,佈,匏,庖,炮,晡,餔,舖,炰,誧,儤,鞄,鯆,曓,鉋,拋,酺,宲,礮,枹,襃,虣,圑,蒱,麅,笣,怉,脬,舗,跑,麃,刨,钸,铇,铺,饱,鲍,龅,佨,勹,咘,垉,埔,奅,孢,峬,庯,忁,悑,抪,柨,爮,狍,瓝,皰,礟,菢,萢,蚫,蜅,袌,裦,褜,謈,軳,鈽,鑤,闁,陠,靤,髱,鵏,麭,齙";"포");
$text=_SubstituteExt($text;"暴,爆,幅,瀑,曝,䋹,䌿";"폭");
$text=_SubstituteExt($text;"乓";"퐁");
$text=_SubstituteExt($text;"好,戶,號,湖,乎,呼,虎,胡,護,毫,浩,豪,互,扈,鎬,皓,糊,昊,濠,祜,晧,澔,壕,狐,瑚,弧,琥,壺,蒿,芦,灝,瓠,縞,顥,岵,蝴,滸,頀,淏,葫,犒,怙,沍,箎,餬,皞,醐,嘷,滈,冱,嫮,滬,皜,儫,嫭,猢,聕,鬍,号,户,㦿,昈,皥,乕,䎁,鄗,唬,皡,壷,暭,虖,鄠,猲,嘑,楜,苸,䕶,䚽,帍,暤,曍,枑,滹,籇,萀,謼,譹,錿,䊀,壶,护,沪,灏,缟,傐,冴,哠,喖,嗥,噑,嚎,垀,夰,媩,峼,弖,恏,悎,戸,戽,摢,昦,枦,椃,槴,歑,泘,瀥,烀,煳,熩,獆,獋,獔,瓳,箶,簄,粐,綔,舮,蔰,薃,薅,藃,虍,虝,衚,軤,鈩,鍸,雐,鳸";"호");
$text=_SubstituteExt($text;"或,惑,酷,豰,掝,頶,嗀";"혹");
$text=_SubstituteExt($text;"混,婚,昏,魂,渾,琿,溷,閽,惛,焜,圂,惽,睯,掍,鯶,鼲,挥,浑,珲,阍,馄,倱,堚,婫,忶,昬,棔,殙,涽,焝,睧,緷,繉,觨,餛";"혼");
$text=_SubstituteExt($text;"忽,笏,惚,囫,絗,曶,芴,㧾,锪,匢,匫,唿,啒,寣,鍃";"홀");
$text=_SubstituteExt($text;"紅,洪,弘,鴻,泓,訌,虹,哄,烘,汞,鬨,澒,晎,篊,鉷,洚,閧,葒,妅,唝,红,荭,讧,鸿,仜,叿,嗊,垬,娂,屸,渱,潂,灴,焢,硔,粠,苰,葓,蕻,谼,谾,霐,霟,魟";"홍");
$text=_SubstituteExt($text;"果,過,科,課,寡,誇,瓜,戈,菓,顆,跨,鍋,裹,夸,窠,夥,撾,侉,踝,銙,蝌,騍,堝,猓,稞,姱,薖,蜾,鈛,檛,剮,堁,淉,荂,輠,剐,埚,挝,课,过,锅,锞,颗,馃,骒,䯄,冎,咵,坬,垮,嵙,恗,惈,敤,晇,棵,歄,濄,煱,犐,瘑,簻,粿,綶,腂,膼,舿,萪,諣,踻,錁,鐹,餜,骻,髁";"과");
$text=_SubstituteExt($text;"郭,廓,槨,藿,霍,癨,躩,鞹,椁,漷,钁,崞,瀖,墎,欔,籗,鞟";"곽");
$text=_SubstituteExt($text;"官,觀,關,館,管,冠,寬,貫,慣,款,灌,琯,棺,瓘,罐,菅,顴,盥,祼,錧,綰,鸛,筦,窾,爟,雚,髖,鑵,涫,輨,舘,関,観,䝺,欵,瘝,寛,毌,倌,窽,闗,礶,躀,䦎,宽,惯,掼,绾,观,贯,颧,馆,髋,鹳,悹,悺,摜,樌,欟,歀,泴,潅,烪,痯,矔,窤,罆,蒄,覌,賗,遦,鏆,鑧,鱹,鳤";"관");
$text=_SubstituteExt($text;"括,刮,适,恝,聒,栝,佸,筈,髺,颳,䒷,鸹,䦚,銽,鴰,䯏,劀,懖,葀,鬠,桰,頢";"괄");
$text=_SubstituteExt($text;"光,廣,鑛,狂,曠,匡,壙,胱,洸,筐,炚,侊,珖,誑,纊,迋,桄,絖,広,礦,恇,鉱,獷,撗,劻,眶,框,磺,矌,抂,逛,矿,灮,筺,垙,僙,鄺,旷,茪,銧,邝,硄,絋,㼅,爌,穬,懬,炗,㿠,炛,俇,懭,砿,黋,誆,䒰,哐,洭,烡,臦,臩,鵟,黆,匩,姯,诳,㹰,軖,軭,鋛,圹,纩,犷,诓,昿,㾠,輄,邼,儣,䊯,狅,匤";"광");
$text=_SubstituteExt($text;"臥,瓦,訛,蝸,渦,蛙,窩,窪,洼,哇,譌,萵,囮,枙,窊,婐,猧,卧,鼃,吪,捰,漥,鈋,涡,窝,莴,蜗,佤,咓,唩,涹,溛,畖,砙,迗,邷,頋";"와");
$text=_SubstituteExt($text;"完,緩,莞,頑,宛,婉,阮,琓,玩,浣,腕,翫,椀,琬,碗,梡,脘,豌,惋,岏,蜿,盌,刓,涴,忨,垸,妧,薍,剜,抏,輐,园,缓,顽,唍,啘,埦,婠,嵈,帵,捖,捥,烷,睕,羱,萖,貦,贃";"완");
$text=_SubstituteExt($text;"曰,嗗,聉";"왈");
$text=_SubstituteExt($text;"王,往,旺,汪,枉,尫,迬,瀇,徃,尢,仼,尣,尩,尪,彺,忹,暀,蚟";"왕");
$text=_SubstituteExt($text;"左,坐,佐,座,挫,髽,剉,莝,痤,㘴,袏,锉,侳,咗,睉,矬,蓌,蓙,趖,遳,銼";"좌");
$text=_SubstituteExt($text;"撮,娺,攥,窡,繓,襊";"촬");
$text=_SubstituteExt($text;"火,花,化,話,和,畵,華,貨,禍,禾,靴,樺,嬅,譁,畫,嘩,驊,俰,婲,龢,画,澕,槬,墷,鞾,咊,鏵,伙,楇,璍,訸,划,华,哗,桦,祸,话,货,钬,铧,骅,鳠,吙,啝,埖,夻,姀,崈,崋,惒,摦,旤,杹,枠,柇,椛,沎,盉,硴,竵,糀,舙,芲,萂,蕐,誮,譮,邩,釫,鈥,鉌,錵,魤,鱯,鷨";"화");
$text=_SubstituteExt($text;"確,擴,穫,濩,攫,碻,鑊,矍,礭,矡,䨥,镬,雘,矱,蠖,彍,戄,彉,攉,玃,臛,艧,靃,彠,扩,拡,鹱,劐,嬳,彏,彟,挄,曤,檴,爴,瓁,矆,篗,籆,籰,耯,臒,蒦,貜,霩";"확");
$text=_SubstituteExt($text;"患,歡,還,換,丸,環,喚,煥,桓,幻,宦,鰥,驩,渙,紈,奐,晥,懽,圜,寰,豢,鬟,擐,轘,瓛,睆,鍰,絙,鐶,皖,逭,癏,寏,瑍,䆠,讙,鱞,漶,汍,闤,澴,弮,芄,㬇,綄,唤,奂,换,欢,歓,涣,焕,纨,还,锾,镮,阛,鲩,鳏,喛,峘,愌,懁,攌,暅,梙,烉,犱,獾,睅,瞣,笂,糫,羦,肒,荁,萈,萟,藧,貛,酄,釻,鋎,雈,鯇,鰀,鴅,鵍";"환");
$text=_SubstituteExt($text;"活,闊,滑,猾,豁,蛞,濶,敌,阔,奯,姡,眓,磆,秮,秳,萿,螖,趏";"활");
$text=_SubstituteExt($text;"黃,皇,況,荒,滉,慌,徨,晃,惶,遑,煌,凰,潢,璜,蝗,榥,隍,篁,愰,簧,恍,幌,湟,晄,怳,貺,肓,喤,鎤,熀,瑝,媓,况,黄,皝,熿,偟,艎,謊,癀,穔,縨,墴,揘,衁,詤,谎,贶,鳇,兤,堭,塃,奛,宺,崲,巟,曂,朚,楻,櫎,炾,獚,皩,眖,葟,蟥,諻,趪,軦,韹,餭,騜,鰉";"황");
$text=_SubstituteExt($text;"卦,咼,喎,挂,掛,㿆,罣,罫,褂,絓,詿,𩰫";"괘");
$text=_SubstituteExt($text;"刷,鎖,灑,碎,瑣,曬,惢,晒,鎻,鏁,锁,縰,鎩,嗩,埣,唢,琐,铩,嗮,涮,溑,砕,繀";"쇄");
$text=_SubstituteExt($text;"倭,矮,娃,歪,媧,騧,娲,劸,緺,躷";"왜");
$text=_SubstituteExt($text;"快,夬,噲,儈,侩,哙,叏,筷";"쾌");
$text=_SubstituteExt($text;"噦,翽,哕,噧,澅,翙";"홰");
$text=_SubstituteExt($text;"怪,愧,壞,塊,槐,傀,乖,魁,拐,媿,恠,瑰,蒯,廥,襘,璝,壊,蕢,瓌,烠,凷,欳,膭,块,蒉,墤,旝,晆,櫆,癐,箉,糩,蘾,謉";"괴");
$text=_SubstituteExt($text;"虢,掴,馘,摑,蟈,膕,帼,漍,蝈,嘓,剨,腘,慖,聝,啯,幗";"괵");
$text=_SubstituteExt($text;"宏,轟,肱,紘,觥,鞃,閎,硡,鍠,鍧,訇,浤,厷,翃,汯,翝,轰,闳,咣,渹,䡏,綋,軣,锽,觵,竤,耾,錓,纮";"굉");
$text=_SubstituteExt($text;"腦,惱,餒,脳,悩,脑,挼,憹,恼,腇,馁,捼,鮾,碯,娞,鯘,垴,匘,堖";"뇌");
$text=_SubstituteExt($text;"雷,賴,賂,儡,牢,磊,賚,瀨,罍,耒,籟,酹,誄,礧,纇,蕾,顂,攂,礌,頼,瀬,藾,鐳,傫,櫑,瓃,礨,䒹,濑,籁,诔,赂,赉,赖,镭,壨,擂,檑,櫴,洡,珱,畾,癗,磥,筙,蠝,襰,讄,轠,銇,錑,鑘,鑸,靁,頛,頪,颣,鱩";"뢰");
$text=_SubstituteExt($text;"衰,釗,钊,哸,夊,鞖";"쇠");
$text=_SubstituteExt($text;"外,畏,猥,巍,嵬,聵,煨,隗,磈,偎,崴,碨,嵔,渨,隈,廆,桅,椳,詴,懀,揋,腲,峞,徻,愄,溾,瘣,葨";"외");
$text=_SubstituteExt($text;"罪,辠,嶵,檌";"죄");
$text=_SubstituteExt($text;"最,催,崔,摧,蕞,榱,璀,漼,縗,脧,嘬,磪,㝡,嗺,墔,慛,槯,綷,缞,凗,樶,欼,熣,獕,皠,穝,紣,羧,膗,鋷,鏙";"최");
$text=_SubstituteExt($text;"退,頹,堆,槌,腿,褪,隤,頽,僓,蓷,痽,頺,俀,尵,颓,垖,塠,嵟,弚,桘,煺,磓,穨,脮,藬,蘈,螁,蹆,蹪,陮,頧,骽,鴭";"퇴");
$text=_SubstituteExt($text;"回,會,悔,懷,淮,恢,灰,廻,檜,膾,晦,徊,誨,賄,繪,蛔,澮,匯,獪,茴,迴,洄,詼,佪,繢,滙,闠,盔,栃,湏,会,懐,禬,薈,豗,囘,逥,瀤,恛,璯,蛕,螝,褢,鄶,桧,浍,烩,狯,絵,绘,脍,荟,诙,诲,贿,劊,咴,嬒,屷,廽,拻,擓,敼,杤,櫰,洃,烣,烸,燴,痐,瞺,硘,耲,藱,蘹,蚘,蜖,詯,諙,鐬";"회");
$text=_SubstituteExt($text;"獲,劃,擭,嚄,謢,撶,繣,获,婳,咟,嚿,嫿,湱,砉,窢,謋,讗,韄";"획");
$text=_SubstituteExt($text;"橫,宖,鐄,黌,鈜,澋,横,鋐,紭,竑,黉,吰,嚝,峵,彋,揈,撔,谹,輷,鑅";"횡");
$text=_SubstituteExt($text;"校,交,敎,橋,巧,較,郊,矯,膠,絞,僑,嬌,攪,驕,喬,轎,狡,皎,蛟,咬,嶠,翹,鮫,蕎,餃,榷,嘐,嚙,磽,鉸,姣,窖,蹻,佼,趫,撟,噭,憍,晈,嘄,暞,骹,鵁,齩,教,皦,挍,轇,屩,嵺,鄥,恔,敫,珓,穚,茭,蟜,譑,儌,墽,漖,獟,礉,窌,簥,跤,蹺,鞽,頝,鷮,䮦,啮,乔,侨,娇,峤,挢,搅,桥,矫,硗,绞,翘,荞,跷,轿,较,邬,铰,鞒,饺,骄,鲛,丂,啋,嘦,嘺,噛,嬓,孂,屫,峧,撹,撽,敽,敿,曒,槗,滘,灚,烄,燆,犞,璬,硚,礄,繑,纐,臫,荍,虠,蟂,譥,賋,趬,踍,躈,郻,鄡,鐈,髜,鱎,鴵,鷍";"교");
$text=_SubstituteExt($text;"尿,嫋,裊,淖,鐃,嬲,閙,褭,譊,䙚,袅,铙,闹,嫐,嬝,硇,硵,脲";"뇨");
$text=_SubstituteExt($text;"料,了,僚,遼,療,聊,寮,燎,瞭,廖,寥,鬧,蓼,潦,醪,繚,膋,撩,暸,獠,鐐,嘹,嫽,飂,飉,憀,憭,鷯,璙,炓,尞,橑,爎,轑,疗,缭,辽,镣,鹩,佬,叾,尥,尦,屪,嶚,嶛,廫,敹,曢,熮,爒,爳,窲,窷,竂,簝,翏,膫,藔,蟉,蟟,豂,賿,蹘,蹽,鄝,镽,顟,髎";"료");
$text=_SubstituteExt($text;"卯,妙,廟,墓,苗,猫,昴,描,畝,渺,杳,竗,錨,眇,藐,淼,貓,庙,緲,畒,玅,茆,篎,缈,锚,鹋,喵,媌,嫹,峁,庿,泖,渵,畆,瞄,笷,緢,覅,鱙,鶓";"묘");
$text=_SubstituteExt($text;"要,謠,遙,搖,腰,堯,妖,耀,曜,姚,擾,撓,饒,邀,夭,僥,窈,凹,拗,窯,繞,瑤,嶢,橈,燿,蟯,徭,澆,徼,殀,蕘,遶,窅,坳,鷂,祅,穾,墝,偠,喓,嬈,么,揺,謡,摇,窑,瑶,窰,颻,尭,傜,宎,袎,溔,嶤,珧,芺,葽,訞,㨱,谣,侥,娆,尧,峣,挠,桡,浇,绕,荛,遥,飖,饶,仸,吆,嗂,垚,垰,婹,媱,嫑,岆,崾,徺,愮,憿,抝,暚,枖,柪,柼,梎,楆,榚,榣,烑,熎,狕,猺,矅,磘,筄,舀,艞,苭,蓔,蘨,襓,覞,詏,軪,輋,鎐,隢,靿,餆,鴁,鴢";"요");
$text=_SubstituteExt($text;"欲,浴,辱,慾,褥,縟,溽,蓐,鵒,鄏,昙,嗕,媷,峪,輍,鋊";"욕");
$text=_SubstituteExt($text;"用,勇,容,庸,鏞,鎔,溶,傭,瑢,熔,聳,踊,蓉,茸,涌,湧,冗,墉,俑,甬,慂,榕,埇,宂,踴,鄘,龍,舂,慵,蛹,憃,牗,嵱,佣,摏,傛,髶,牅,镕,甭,硧,蹖,耸,塎,鱅,鷛,愹,镛,槦,恿,榵,褣,滽,媶,氄,勈,鴪,嫆,悀,軵,鰫,苚,彮,愑,搈,穃,傇,嫞,甮,砽,搑,穁,縙,龍,竜,龙,龗,矓,惥,徿,眬,㬰,贚";"용");
$text=_SubstituteExt($text;"表,標,票,漂,杓,豹,飄,剽,慓,瓢,俵,彪,驃,飇,縹,摽,殍,鑣,裱,僄,嫖,勡,嘌,熛,鏢,髟,鰾,飆,颷,醥,淲,藨,飈,飊,彯,爂,猋,穮,膘,蔈,薸,褾,謤,驫,魒,㼼,标,缥,镖,镳,飘,飙,飚,儦,墂,婊,幖,徱,旚,檦,滮,瀌,燢,犥,瘭,皫,瞟,磦,篻,翲,脿,臕,螵,諘,贆,錶,闝,顠,颩,飃";"표");
$text=_SubstituteExt($text;"孝,效,曉,酵,爻,嚆,哮,梟,肴,淆,驍,斅,涍,囂,傚,殽,崤,皛,虓,餚,効,暁,嘵,枵,鴞,歊,斆,憢,毊,嘋,獢,筊,髇,哓,嚣,晓,枭,胶,骁,鸮,侾,俲,倄,呺,嚻,婋,宯,庨,撬,敩,洨,滧,灱,灲,猇,痚,皢,硣,穘,窙,笅,膮,藠,虈,訤,詨,誟,誵,郩,顤,髐,﨧";"효");
$text=_SubstituteExt($text;"九,口,求,句,救,究,久,舊,具,苟,俱,區,丘,拘,球,構,懼,驅,狗,龜,邱,歐,鳩,購,鷗,玖,寇,仇,矩,溝,舅,衢,軀,鉤,廐,柩,灸,謳,垢,駒,嘔,臼,嶇,毆,枸,咎,耉,勾,毬,坵,晷,瞿,逑,絿,銶,搆,扣,裘,疚,遘,媾,屨,嫗,劬,捄,駈,甌,摳,窶,彀,颶,漚,韭,鸜,傴,榘,糗,蚯,覯,癯,韝,姤,匶,璆,釦,鷇,俅,佝,岣,昫,篝,胊,坸,冓,佉,傋,厹,叴,戵,痀,窛,蒟,韮,鬮,惧,旧,厩,敺,廏,耇,沟,臞,緱,玽,雊,耈,呴,䪷,倶,賕,亀,冦,㡱,抅,氍,觓,訽,躣,鞲,寠,椇,欨,竬,絇,鈎,笱,浗,蝺,褠,㽛,朹,梂,泃,犋,艽,芶,蔲,蔻,㺵,䙔,区,构,欧,殴,钩,伛,呕,够,妪,屦,岖,巯,抠,沤,瓯,眍,窭,缑,觏,讴,诟,购,赇,躯,阄,飓,駆,驱,驹,鸠,鸥,鸲,龟,倃,剾,劶,勼,匓,匛,埧,夠,奺,宼,岴,巰,廄,彄,忂,怐,愳,慦,扏,搝,撀,敂,斪,朐,杦,桕,欋,欍,殏,汣,滱,灈,煹,熰,爠,牞,犰,畂,皳,盚,眗,瞉,瞘,竘,筘,簆,簼,粂,紌,翑,聥,肍,脙,膒,舏,茩,萛,葋,蓲,蘒,蚼,蛷,蠷,蠼,袧,觩,訄,訅,豿,跔,軥,邭,鑺,镹,韯,鮈,鯄,鯦,鰸,鴎,鴝,麔,鼩,鼽,齨";"구");
$text=_SubstituteExt($text;"國,局,菊,鞠,鞫,麴,匊,跼,掬,麯,国,囯,踘,閰,椈,鵴,锔,侷,囶,囻,圀,婅,巈,挶,梮,檋,毩,毱,泦,淗,焗,粷,蘜,諊,趜,躹,輂,鋦,陱,駶,驧";"국");
$text=_SubstituteExt($text;"軍,君,郡,群,窘,裙,捃,皸,桾,羣,頵,涒,军,皲,鲪,侰,僒,宭,帬,攈,攟,珺,皹,莙,蜠,裠,輑,鍕,鮶,鵘";"군");
$text=_SubstituteExt($text;"屈,窟,掘,堀,崛,詘,倔,淈,朏,胐,诎,崫,弡,煀,虳,袦,誳,趉,镼,鶌";"굴");
$text=_SubstituteExt($text;"宮,窮,弓,躬,穹,芎,宫,穷,藭,竆,匔,躳,杛,匑,宆,焪,熍";"궁");
$text=_SubstituteExt($text;"耨,啂,鎒,槈,檽,獳,羺,譨,譳,鐞";"누");
$text=_SubstituteExt($text;"嫩,媆,嫰";"눈");
$text=_SubstituteExt($text;"訥,吶,肭,呐,讷,抐";"눌");
$text=_SubstituteExt($text;"侸,兜,吺,抖,斁,斗,杜,枓,痘,竇,肚,脰,荳,蚪,蠹,豆,逗,陡,頭";"두");
$text=_SubstituteExt($text;"鈍,屯,遁,臀,芚,遯,窀,迍,吨,钝,坉,臋,踲,霕";"둔");
$text=_SubstituteExt($text;"樓,漏,淚,累,屢,陋,壘,縷,婁,鏤,褸,蔞,瘻,螻,僂,髏,嶁,慺,嘍,耬,楼,屡,泪,蝼,塁,摟,塿,䮫,嫘,屚,廔,䫫,瘘,偻,喽,垒,娄,嵝,搂,篓,缕,耧,蒌,褛,镂,髅,䁖,厽,櫐,氀,涙,溇,漊,熡,甊,瘺,癳,瞜,簍,膢,艛,謱,貗,軁,遱,鞻,鷜,鼺";"루");
$text=_SubstituteExt($text;"無,武,務,戊,茂,舞,貿,霧,誣,巫,毋,撫,蕪,憮,拇,无,懋,繆,鵡,珷,楙,廡,騖,膴,儛,嘸,抚,瞀,袤,鍪,婺,嫵,碔,幠,甒,倵,堥,瞴,莁,鉧,亩,务,呒,妩,庑,怃,缪,芜,诬,贸,雾,骛,鹀,鹉,仫,劺,呣,墲,奦,娬,嵍,愗,敄,暓,柕,橆,潕,熃,牳,璑,畞,畮,胟,袰,誈,譕,踇,躌,鄮,錻,霚,鞪,髳,鵐,鷡";"무");
$text=_SubstituteExt($text;"墨,黙,默,嘿,纆,嚜,爅,嫼,濹,癦,蟔";"묵");
$text=_SubstituteExt($text;"門,問,文,聞,紊,汶,紋,蚊,吻,刎,們,雯,捫,抆,悗,炆,匁,璊,闻,问,门,懑,㦖,脗,暪,絻,蚉,閿,馼,们,扪,纹,钔,阌,伆,勽,呡,妏,彣,渂,珳,璺,肳,芠,菛,虋,螡,蟁,鈫,鍆,閅,閺,闅,駇,魰,鳼,鴍";"문");
$text=_SubstituteExt($text;"物,勿,沕,岉,昒,粅";"물");
$text=_SubstituteExt($text;"父,夫,部,富,否,婦,浮,扶,府,副,付,負,賦,赴,附,簿,符,腐,釜,傅,敷,訃,阜,膚,俯,賻,斧,剖,芙,駙,腑,埠,咐,孵,孚,溥,鳧,缶,莩,趺,艀,仆,祔,俘,鈇,拊,裒,桴,蔀,榑,掊,苻,鮒,蜉,袝,頫,抔,涪,麩,玞,跗,罘,蚨,筟,胕,罦,芣,媍,仅,痡,瓿,冨,棓,郛,釡,巭,滏,鳬,尃,怤,捊,柎,咅,暊,砆,秿,嚩,弣,捬,枎,犃,璷,萯,詂,錇,䫍,凫,妇,怀,肤,讣,负,赋,赙,锫,驸,鲋,麸,伕,偩,剻,勏,吥,呋,哹,坿,垺,妋,姇,娐,娝,婄,峊,巬,廍,懯,抙,旉,椨,殕,泭,烰,焤,玸,琈,畉,磗,禣,稃,竎,箁,篰,粰,糐,紑,紨,綒,緮,缹,缻,腝,荴,蚹,蛗,蝜,衭,褔,豧,踎,邞,郙,郶,鄜,酜,鉜,陚,雬,颫,餢,鬴,鳺,鴀,麬,麱,麹,﨓";"부");
$text=_SubstituteExt($text;"北,鉳";"북");
$text=_SubstituteExt($text;"分,憤,奮,粉,紛,奔,墳,芬,焚,盆,忿,糞,噴,雰,扮,吩,賁,汾,昐,氛,棼,坌,犇,濆,蕡,枌,畚,湓,轒,帉,棻,砏,笨,肦,膹,黺,鼢,僨,蚡,黂,翂,衯,玢,秎,羵,鼖,燌,瓫,訜,豶,鐼,饙,偾,喷,坟,愤,粪,纷,豮,贲,锛,鲼,倴,兝,喯,坋,奙,妢,岎,幩,弅,捹,撪,朆,桳,梤,橨,歕,泍,渀,瀵,炃,燓,獖,瓰,竕,羒,翉,翸,聁,苯,逩,酚,隫,餴,馚,馩,魵,鱝";"분");
$text=_SubstituteExt($text;"不,佛,拂,弗,彿,黻,紱,髴,祓,茀,岪,艴,韍,咈,紼,怫,昢,刜,坲,帗,煘,笰,仏,払,绂,绋,韨,冹,柫,梻,氟,炥,甶,翇,鉘,鮄";"불");
$text=_SubstituteExt($text;"朋,崩,鵬,棚,硼,繃,鬅,堋,漰,萠,弸,塴,掤,椖,綳,绷,镚,鹏,倗,傰,嘣,焩,痭,蹦,鏰";"붕");
$text=_SubstituteExt($text;"水,手,數,守,首,樹,受,授,收,雖,修,壽,須,誰,秀,愁,遂,隨,囚,殊,輸,需,獸,垂,帥,洙,睡,搜,隋,髓,銖,蒐,酬,羞,繡,粹,袖,瘦,讐,竪,狩,嫂,穗,脩,戍,綏,藪,綬,邃,鬚,岫,燧,隧,嗽,漱,琇,峀,茱,璲,蓚,銹,叟,讎,售,豎,晬,睟,陲,睢,祟,瞍,颼,殳,酥,廋,溲,膄,脺,泅,濉,籔,膸,饈,随,収,数,捜,薮,虽,髄,綉,襚,瀡,倕,滫,詶,繻,鎪,誶,潄,稤,篲,酧,䏂,擻,橾,櫢,穂,菙,訹,醻,檖,腄,夀,栦,澻,痩,禭,雔,魗,嬃,嬦,嶲,杸,滖,瀭,脽,鏽,寿,竖,绣,锈,须,兽,帅,擞,树,獣,粋,绥,绶,缍,谁,谇,输,铢,锼,雠,飕,俢,傁,凁,厜,叜,嗖,嚺,圳,垨,埀,娷,嶿,幁,惾,掱,摉,摗,旞,樇,欶,汓,浽,涭,煫,獀,瘶,盨,穟,糔,絒,綇,繍,繸,腧,艏,苬,荾,蓃,蓨,蕦,螋,譢,賥,鏥,鐆,鐩,陎";"수");
$text=_SubstituteExt($text;"宿,叔,淑,孰,熟,肅,夙,菽,塾,璹,潚,琡,倏,俶,橚,儵,鷫,驌,婌,璛,埱,蓿,倐,焂,鱐,玊,掓,粛,肃,骕,鹔,儴,尗,摍,珟,莤,虪,諔,跾,鮛";"숙");
$text=_SubstituteExt($text;"順,純,脣,巡,循,旬,殉,瞬,舜,淳,珣,盾,洵,筍,醇,馴,荀,詢,諄,徇,恂,蓴,楯,錞,蕣,栒,橓,肫,鶉,紃,狥,鬊,眴,侚,盹,駨,笋,峋,廵,輴,漘,莼,纯,询,谆,顺,驯,鹑,鹠,伨,偱,咰,奞,姰,憌,揗,杊,榫,槆,毥,浱,湻,滣,潃,犉,畃,瞚,瞤,碷,磭,箰,簨,芛,蒓,衠,賐,郇,醕,陙,鯙";"순");
$text=_SubstituteExt($text;"戌,述,術,鉥,絉,銊,㺷,荗,珬,沭,欰,蒁,袕,錰,鶐";"술");
$text=_SubstituteExt($text;"崇,嵩,崧,菘,硹";"숭");
$text=_SubstituteExt($text;"右,牛,雨,友,又,宇,于,尤,憂,遇,愚,優,羽,郵,偶,佑,祐,禹,迂,虞,寓,隅,禑,雩,紆,瑀,盂,旴,亐,芋,藕,玗,嵎,釪,吁,亏,堣,耦,踽,盱,喁,竽,俁,禺,庽,杅,鍝,偊,謣,齲,訏,圩,塸,櫌,苃,嚘,懮,訧,噳,扜,楀,瀀,纋,肬,腢,叹,优,忧,怄,扰,犹,邮,吘,媀,峟,怣,慪,扝,挧,桙,汼,沋,湡,澞,盓,祤,芌,荢,虶,衧,訦,邘,鄅,酑,鏂,陓";"우");
$text=_SubstituteExt($text;"旭,郁,煜,頊,昱,勖,彧,栯,稶,燠,勗,稢,喐,旮";"욱");
$text=_SubstituteExt($text;"雲,運,云,韻,隕,殞,耘,蕓,澐,橒,熉,紜,韵,惲,沄,霣,篔,餫,鄆,鄖,溳,夽,愪,抎,縜,韗,殒,恽,筼,纭,运,郓,郧,陨,喗,囩,妘,枟,眃,磒,秐,繧,耺,腪,蒷,賱,齳";"운");
$text=_SubstituteExt($text;"鬱,蔚,熨,欝,菀,鬰,爩,黦,欎,灪";"울");
$text=_SubstituteExt($text;"雄,熊,䧺,僌";"웅");
$text=_SubstituteExt($text;"主,住,走,注,晝,朱,宙,酒,州,周,舟,柱,洲,珠,株,奏,鑄,駐,疇,週,躊,誅,註,紬,做,廚,紂,嗾,呪,輳,冑,胄,籌,湊,綢,澍,炷,蛛,姝,酎,侏,齟,霔,肘,儔,拄,裯,遒,賙,輈,侜,幬,腠,霌,蔟,尌,籒,蛀,詋,丟,趎,鉒,厨,躕,譸,籀,邾,紸,麈,伷,噣,咮,晭,跦,椆,珘,唒,妵,揍,怞,楱,疰,秼,絑,薵,軴,馵,昼,丢,俦,凑,帱,橱,畴,筹,纣,绸,诛,诪,赒,踌,鋳,铥,铸,驻,鸼,厾,咒,喌,嚋,壴,婤,宔,嵀,幮,徟,懤,斢,樦,櫉,洀,炿,烐,燽,疛,皗,盩,矪,砫,祩,粙,罜,葄,袾,跓,輖,逎,郮,銂,銩,飳";"주");
$text=_SubstituteExt($text;"竹,粥,鬻,俼";"죽");
$text=_SubstituteExt($text;"準,俊,遵,准,浚,峻,駿,埈,濬,晙,樽,竣,蠢,儁,雋,畯,逡,寯,焌,蹲,隼,惷,綧,噂,踆,埻,凖,睃,踳,捘,殾,陖,偆,僔,壿,夋,嶟,懏,稕,竴,箺,繜,葰,訰,譐,迿,鎨,鶽";"준");
$text=_SubstituteExt($text;"茁,崒,崪,窋,笜";"줄");
$text=_SubstituteExt($text;"中,重,衆,仲,眾,褈,众,妕,媑,狆,筗,舯,茽,蚛,蝩,衶,迚,鈡,隀";"중");
$text=_SubstituteExt($text;"秋,推,追,抽,醜,趨,鄒,楸,椎,樞,墜,酋,芻,錐,錘,鎚,鰍,雛,騶,皺,諏,湫,杻,萩,麤,蒭,瘳,惆,簉,陬,箠,啾,箒,搥,帚,鞦,僦,甃,捶,縋,魋,娵,騅,鰌,縐,鶖,鶵,蝤,隹,揫,鵻,麄,龝,趍,篘,鯫,麁,萑,崷,橻,鄹,寉,菆,揂,棷,煼,緅,諈,貙,顀,鬌,枢,锤,刍,坠,尴,皱,绉,缒,诹,趋,邹,锥,雏,吜,埾,媝,媰,尷,憱,掫,揪,搊,棸,榋,殠,渞,湬,湭,溴,煪,犓,甀,瞅,矁,硾,礈,秌,穐,箃,篍,籕,緧,膇,菷,藲,蝵,蟗,觕,趥,遚,郰,醔,錗,鑆,鞧,駎,鬏,鯞,鱃,黀";"추");
$text=_SubstituteExt($text;"祝,丑,築,逐,縮,畜,蓄,軸,蹴,蹙,筑,竺,舳,蹜,豖,妯,踧,柷,滀,拀,閦,笁,蓫,䠞,缩,轴,丒,傗,嘼,噈,敊,斣,殧,稸,篫,縬,茿,蹵,鄐,顣,鱁";"축");
$text=_SubstituteExt($text;"春,椿,瑃,櫄,杶,橁,䞐,堾,媋,旾,暙,杽,湷,睶,萅,賰,鰆";"춘");
$text=_SubstituteExt($text;"出,黜,朮,秫,术,怵,絀,岀,础,绌,怷,樎,欪,泏,炢,莍,黢";"출");
$text=_SubstituteExt($text;"忠,充,蟲,衝,衷,沖,冲,虫,忡,珫,种,䖝,翀,盅,揰,浺,漴,茺,茧,嘃,爞,痋";"충");
$text=_SubstituteExt($text;"投,鬪,透,套,妬,偸,渝,妒,骰,偷,闘,哣,敨,牏,秺,緰,鬦";"투");
$text=_SubstituteExt($text;"佟";"퉁");
$text=_SubstituteExt($text;"䬌";"푸");
$text=_SubstituteExt($text;"風,豊,楓,諷,馮,丰,豐,瘋,酆,鄷,渢,偑,凮,灃,蘴,冯,枫,沣,疯,砜,讽,风,僼,凨,凬,堸,寷,栤,檒,沨,煈,猦,碸,霻,靊,颪,飌,麷";"풍");
$text=_SubstituteExt($text;"後,厚,侯,后,候,喉,吼,朽,逅,嗅,煦,帿,珝,詬,垕,詡,酗,猴,堠,喣,餱,篌,譃,吽,糇,齅,姁,睺,矦,郈,鍭,珛,齁,诩,鲎,冔,呍,洉,犼,猤,疞,瘊,翭,翵,葔,螑,豞,鄇,銗,骺,鮜";"후");
$text=_SubstituteExt($text;"訓,薰,熏,勳,壎,暈,塤,勛,焄,燻,曛,纁,葷,獯,鑂,爋,勲,醺,坃,薫,矄,埙,勋,晕,荤,训,嚑,壦,瞓,臐,蔒,蘍";"훈");
$text=_SubstituteExt($text;"薨,顭";"훙");
$text=_SubstituteExt($text;"權,卷,勸,券,拳,圈,眷,倦,捲,淃,惓,綣,睠,蜷,棬,勌,勧,劵,巻,踡,鬈,帣,劝,权,権,绻,锩,勬,啳,圏,埢,奆,婘,孉,巏,慻,搼,桊,椦,牶,犈,箞,絭,菤,蔨,虇,蠸,裷,觠,錈,韏,飬,餋,鬳,齤";"권");
$text=_SubstituteExt($text;"厥,闕,蹶,蕨,獗,劂,撅,橛,蹷,橜,鱖,欮,灍,蟨,鷢,镢,阙,鳜,噘,嶡,嶥,憠,氒,瘚,蟩,鐝";"궐");
$text=_SubstituteExt($text;"元,原,遠,園,願,圓,怨,院,員,源,援,苑,瑗,袁,媛,寃,猿,鴛,轅,垣,爰,愿,湲,沅,嫄,洹,円,冤,鵷,黿,謜,猨,杬,楥,綩,芫,薗,鋺,騵,貟,逺,畹,晼,圎,榞,夘,眢,踠,夗,溒,茒,薳,邍,鶢,员,圆,诨,贠,辕,远,鸳,倇,傆,傊,厡,塬,妴,朊,榬,獂,盶,禐,笎,箢,葾,蒝,蒬,褑,褤,諢,豲,邧,酛,鈨";"원");
$text=_SubstituteExt($text;"月,越,鉞,粤,刖,粵,樾,軏,戉,抈,狘,钺,钥,仴,岄,怴,枂,泧,蚎,蚏,跀,鈅";"월");
$text=_SubstituteExt($text;"喧,萱,暄,煊,諼,諠,烜,翧,晅,楦,藼,箮,䁔,咺,愋,蝖,貆,谖,嚾,媗,狟,睻,禤,萲,蕿,蘐";"훤");
$text=_SubstituteExt($text;"軌,潰,詭,櫃,饋,几,跪,匱,簋,餽,憒,佹,氿,麂,簣,匭,垝,觤,鐀,陒,馈,匦,匮,愦,溃,篑,缋,诡,轨,阓,凧,厬,圚,姽,嬇,恑,攱,殨,祪,簂,籄,蔮,蛫,鑎,鞼,鱥";"궤");
$text=_SubstituteExt($text;"悴,萃,贅,膵,瘁,揣,惴,顇,疩,赘,忰";"췌");
$text=_SubstituteExt($text;"毁,喙,卉,虺,燬,芔,毀,毇,檓,譭,顪,餯";"훼");
$text=_SubstituteExt($text;"貴,歸,鬼,巋,帰,宄,瞶,劌,撌,㱕,嘳,尯,腃,蘬,騩,刿,归,瞆,贵,椢,槶,櫷,皈,聭";"귀");
$text=_SubstituteExt($text;"倅,淬,焠,伜,琗";"쉬");
$text=_SubstituteExt($text;"位,危,爲,威,偉,謂,衛,委,慰,圍,僞,胃,違,緯,尉,魏,渭,韋,萎,瑋,葦,蝟,暐,褘,蔿,為,諉,闈,衞,逶,喟,韙,痿,葳,煒,幃,韡,餧,潙,骪,喂,猬,偽,罻,躗,徫,湋,硊,縅,嶎,愇,藯,躛,頠,䘙,为,伪,伟,卫,囲,围,谓,违,韦,韪,儰,叞,喡,喴,噅,噕,墛,媁,媙,媦,孬,寪,峗,崣,楲,洈,潿,煟,熭,犚,犩,緭,蒍,蘶,褽,覣,讆,讏,鍏,隇,霨,韚,颹,餵";"위");
$text=_SubstituteExt($text;"取,就,吹,趣,臭,醉,聚,炊,娶,翠,脆,驟,鷲,嘴,毳,冣,橇,酔,竁,翆,骤,鹫,噿,嶉,槜,檇,欈,濢,璻,脃,膬,臎,臰,酻,龡";"취");
$text=_SubstituteExt($text;"揮,輝,徽,諱,麾,彙,暉,煇,撝,翬,彚,椲,禈,幑,楎,汇,晖,讳,辉,媈,泋,瀈,灳,翚,鰴";"휘");
$text=_SubstituteExt($text;"規,奎,圭,糾,叫,揆,珪,閨,窺,葵,逵,硅,畦,竅,赳,槻,虬,跬,睽,虯,闚,樛,糺,楏,刲,嬀,暌,頍,馗,邽,嫢,呌,戣,煃,摎,槼,恘,芤,頯,妫,沩,岿,窍,窥,纠,规,闺,乣,喹,媯,恷,摫,朻,椝,楑,湀,溈,犪,玌,瞡,窐,紤,聧,胿,芁,茥,藈,蝰,袿,訆,蹞,郌,鄈,鍨,鍷,頄,鬶,鬹,黊,鼼";"규");
$text=_SubstituteExt($text;"均,菌,鈞,筠,勻,畇,囷,麏,匀,稛,麕,袀,钧,呁,峮,抣,汮,碅,箘,箟,蚐,覠,銁,銞,麇";"균");
$text=_SubstituteExt($text;"橘,蹫";"귤");
$text=_SubstituteExt($text;"紐,忸,靵,狃,鈕,扭,纽,钮,妞,沑,炄,粈,莥";"뉴");
$text=_SubstituteExt($text;"衄,恧,朒,衂,䖡,䘐";"뉵");
$text=_SubstituteExt($text;"流,留,柳,類,劉,謬,溜,琉,瘤,瑠,旒,榴,硫,瀏,纍,鶹,縲,瑬,遛,橊,霤,騮,鏐,旈,鎏,罶,飀,藟,鎦,飅,絫,羀,蘽,虆,蹓,駠,駵,刘,浏,类,绺,缧,蔂,谬,铆,锍,镏,镠,飗,馏,骝,鹨,嚠,塯,媹,嬼,嵧,廇,懰,栁,桺,樏,橮,欙,漻,澑,灅,熘,珋,璢,畄,畱,疁,癅,磂,禷,綹,纝,艈,蒥,蓅,蕌,藰,蘱,蘲,裗,鉚,鋶,鐂,雡,飹,餾,驑,鬸,鰡,鷚,鸓,麍";"류");
$text=_SubstituteExt($text;"六,陸,戮,勠,僇,稑,穋,陆,剹,勎,坴,淕,磟,踛,鯥,鵱";"륙");
$text=_SubstituteExt($text;"倫,輪,崙,綸,淪,侖,掄,錀,踚,崘,圇,棆,仑,伦,囵,抡,沦,纶,轮,嗧,埨,磮,稐,耣,腀,蜦,陯,鯩";"륜");
$text=_SubstituteExt($text;"律,率,栗,慄,嵂,溧,篥,硉,瑮,膟,峍,侓,傈,凓,垏,塛,寽,徍,搮,箻,繂,葎,鷅,麜";"률");
$text=_SubstituteExt($text;"隆,瀜,癃,窿,烿,嶐,蕯,湰,霳";"륭");
$text=_SubstituteExt($text;"有,由,油,猶,遺,遊,酉,唯,幼,柔,惟,裕,悠,誘,乳,儒,維,愈,幽,兪,踰,庾,楡,癒,諭,游,宥,喩,諛,鍮,愉,柚,蹂,揄,攸,猷,逾,濡,孺,臾,瑜,侑,萸,洧,楢,釉,籲,帷,牖,壝,囿,腴,逌,莠,糅,揉,蕕,蕤,窬,黝,瘐,緌,窳,讉,呦,鮪,蠕,褕,泑,冘,蚴,鼬,斿,瘉,蚰,鞣,龥,襦,俞,覦,喻,嚅,嵛,輶,蝣,褏,婾,曘,蜼,浟,擩,槱,羑,毹,狖,薷,逰,濰,隃,媮,滺,㽥,卣,痏,婑,楺,渪,甤,崳,怮,榆,歈,煣,睮,秞,羭,腬,葇,趡,踓,輏,迶,醹,鈾,銪,鍒,騥,维,莸,诱,谀,谕,遗,丣,偤,匬,唀,堬,姷,媃,媨,嬬,岰,峳,庮,抭,斞,桵,梄,楰,毺,燸,牰,琟,瑈,瓇,眑,禉,羐,聈,脜,芕,茰,荽,萮,蓶,貁,輮,鄃,酭,醀,鑐,韖,顬,騟";"유");
$text=_SubstituteExt($text;"肉,育,堉,毓,儥,淯,錥,哊,唷,喅,宍,蒮,袬,逳";"육");
$text=_SubstituteExt($text;"尹,允,潤,閏,胤,鈗,贇,奫,玧,鋆,酳,閠,狁,蝡,阭,橍,膶,荺,蜳,馻";"윤");
$text=_SubstituteExt($text;"聿,矞,茟,欥,鴥,噊,燏,繘,銉,驈,鱊,鴧";"율");
$text=_SubstituteExt($text;"融,戎,絨,狨,羢,漋,娀,肜,駥,曧,毧,茙,螎";"융");
$text=_SubstituteExt($text;"休,携,烋,虧,隳,鵂,咻,擕,髹,庥,鑴,貅,攜,巂,瓗,眭,茠,觿,雟,飍,倠,儶,婎,孈,烌,睳,蘳,蠵,觹,觽,貕,酅,銝,隓,驨,髤,鮴";"휴");
$text=_SubstituteExt($text;"慉,搐,槒";"휵");
$text=_SubstituteExt($text;"恤,譎,鷸,卹,潏,霱,遹,鐍,䘏,獝,憰,烅,瞲,肷,賉";"휼");
$text=_SubstituteExt($text;"凶,胸,匈,兇,洶,胷,恟,汹,忷,訩,讻,哅,詾";"흉");
$text=_SubstituteExt($text;"極,劇,克,隙,棘,戟,剋,亟,殛,郤,襋,丮,屐,剧,郄,茍,鋴,隟,蕀,尅,撠,裓,氪,勊,勀,橶,娔";"극");
$text=_SubstituteExt($text;"近,根,勤,謹,斤,僅,筋,饉,瑾,槿,覲,懃,芹,菫,劤,跟,靳,卺,厪,觔,墐,巹,釿,廑,漌,堇,殣,慬,斳,觐,谨,馑,伒,哏,嫤,懄,歏,瘽,荕,菦,蓳,螼,赾,馸";"근");
$text=_SubstituteExt($text;"今,禁,錦,禽,琴,襟,衾,擒,衿,芩,檎,昑,妗,噤,嶔,笒,唫,黅,紟,琹,顉,菳,赺,㯲,嵚,锦,僸,凎,凚,噙,坅,庈,惍,扲,捦,搇,澿,珡,琻,砛,耹,肣,蚙,蠄,軡,鈙,鍂,鐢,雂,靲,鳹,鵭,齽";"금");
$text=_SubstituteExt($text;"給,急,及,級,汲,扱,伋,岌,皀,笈,礏,圾,芨,彶,级,给,喼,嬆,忣,礘,觙,鷑,﨤";"급");
$text=_SubstituteExt($text;"肯,兢,矜,亘,亙,殑,矝,堩,絚,緪,肎,刯,奟,掯,揯,搄,縆,褃,錹,鹶";"긍");
$text=_SubstituteExt($text;"能";"능");
$text=_SubstituteExt($text;"得,淂,嘚,锝,棏,鍀";"득");
$text=_SubstituteExt($text;"等,登,燈,騰,藤,鄧,嶝,謄,橙,滕,鐙,灯,磴,縢,螣,墱,凳,籐,䓁,蹬,䒭,簦,豋,驣,㽅,籘,膯,隥,㔁,誊,邓,镫,僜,儯,噔,嬁,幐,戥,櫈,漛,璒,竳,艠,虅,覴,邆,霯,駦,鰧,鼟";"등");
$text=_SubstituteExt($text;"勒,肋,泐,玏,仂,扐,鳓,嘞,忇,椚,氻,竻,簕,艻,阞,鰳";"륵");
$text=_SubstituteExt($text;"陵,楞,凌,綾,菱,稜,倰,蔆,棱,崚,淩,夌,庱,掕,睖,鯪,绫,鲮,堎,婈,愣,琌,碐,祾,蓤,薐,裬,踜,輘,錂";"릉");
$text=_SubstituteExt($text;"瑟,膝,蝨,虱,厀,鲺,濏,璱,鯴";"슬");
$text=_SubstituteExt($text;"勝,承,乘,僧,昇,升,繩,丞,陞,蠅,塍,鬙,乗,蝇,鱦,椉,氶,嵊,憴,縄,绳,冼,呏,堘,抍,斘,枡,桝,榺,橳,洆,溗,焺,畻,竔,脀,蕂,蝿,譝,阩,陹,騬,鵿";"승");
$text=_SubstituteExt($text;"卽,即,唧,萴,崱,莭,揤,皍,荝";"즉");
$text=_SubstituteExt($text;"櫛,騭,喞,瀄,堲,栉,擳,楖";"즐");
$text=_SubstituteExt($text;"怎";"즘");
$text=_SubstituteExt($text;"曾,增,證,贈,症,憎,蒸,拯,烝,甑,繒,証,嶒,矰,罾,曽,増,璔,橧,鄫,熷,驓,缯,赠,囎,撜,潧,磳,竲,篜,譄,鱛";"증");
$text=_SubstituteExt($text;"測,側,惻,仄,厠,廁,昃,稄,厕,侧,恻,测,庂,捑,昗,汄,畟";"측");
$text=_SubstituteExt($text;"層,蹭,层";"층");
$text=_SubstituteExt($text;"特,慝,忒,蟘,貣,铽,忑,脦,蚮,鋱,鴏";"특");
$text=_SubstituteExt($text;"闖,闯";"틈");
$text=_SubstituteExt($text;"黑,黒,潶,釛";"흑");
$text=_SubstituteExt($text;"痕,欣,昕,炘,釁,忻,訢,掀,焮,很,舋,盺,慁,俒,拫,鞎,锨,衅,俽,妡,庍,惞,煡,脪,邤,鍁";"흔");
$text=_SubstituteExt($text;"訖,吃,屹,紇,迄,汔,仡,疙,齕,忔,扢,虼,籺,麧,讫,肐,趷,釳";"흘");
$text=_SubstituteExt($text;"欽,歆,廞,揿,钦,噷,嬜,撳,鑫";"흠");
$text=_SubstituteExt($text;"吸,洽,恰,翕,潝,歙,噏,翖,熻,闟";"흡");
$text=_SubstituteExt($text;"興,兴,嬹,臖,馫";"흥");
$text=_SubstituteExt($text;"衣,意,義,依,醫,矣,議,宜,儀,疑,誼,擬,毅,椅,倚,懿,蟻,薏,艤,猗,嶷,欹,漪,儗,劓,螘,饐,凒,礒,医,义,冝,扆,顗,宐,檥,毉,竩,禕,旖,犄,薿,譩,仪,拟,祎,蚁,议,谊,偯,吚,嬑,嬟,嶬,庡,撎,旑,椬,檹,燱,狋,畩,稦,籎,萓,藙,螠,觺,譺,豙,輢,轙,逘,郼,鈘,銥,鐿,顡";"의");
$text=_SubstituteExt($text;"銀,恩,隱,殷,誾,垠,慇,訔,听,憖,嚚,狺,溵,檼,癮,垽,鄞,圁,珢,齗,齦,隠,隐,穏,稳,垦,檃,櫽,泿,濦,磤,懚,煾,犾,瘾,银,嗯,峎,峾,嶾,摁";"은");
$text=_SubstituteExt($text;"乙";"을");
$text=_SubstituteExt($text;"音,飮,陰,吟,淫,蔭,喑,愔,霪,崟,廕,隂,飲,瘖,婬,霠,阥,霒,荫,阴,饮,乑,侌,噖,噾,崯,摿,淾,烎,癊,碒,窨,苂,荶,訡,鈝,韾";"음");
$text=_SubstituteExt($text;"邑,泣,揖,挹,悒,浥,裛,湆,俋,唈,歞";"읍");
$text=_SubstituteExt($text;"應,凝,鷹,膺,譍,应,応";"응");
$text=_SubstituteExt($text;"希,喜,稀,戱,嬉,熙,噫,羲,禧,犧,姬,熹,憙,僖,曦,凞,晞,憘,熺,囍,戲,嘻,餼,欷,唏,暿,悕,爔,戯,煕,餙,犠,俙,巇,屭,狶,饎,浠,嚱,橲,熈,睎,蟢,誒,呬,桸,琋,繥,霼,屃,戏,牺,诶,饩,屓,忥,怬,歖,烯,焁,焈,熂,燨,犔,瞦,礂,莃,譆,鯑,鱚,鵗";"희");
$text=_SubstituteExt($text;"己,記,氣,洎,技,起,期,基,其,旣,幾,豈,器,奇,機,旗,紀,棄,忌,企,欺,飢,祈,騎,寄,畿,冀,箕,耆,岐,沂,驥,琦,麒,璣,琪,騏,淇,汽,譏,妓,羈,机,嗜,綺,杞,畸,朞,肌,棋,伎,崎,圻,饑,祇,夔,祁,磯,祺,碁,錡,玘,璂,埼,覬,耭,錤,歧,弃,曁,旂,頎,墍,棊,鬐,蟣,跂,剞,掎,蘄,攲,芰,猉,綦,忮,屺,愭,芪,炁,羇,覉,僛,庋,禨,肵,虁,暣,綥,蜝,鰭,隑,黖,芑,竒,覊,㡬,旡,惎,跽,鞿,怾,碕,踦,徛,既,禥,蘷,衹,倛,庪,懻,暨,榿,兾,刉,嘰,噐,塈,敧,穊,穖,臮,蚑,蚔,蜞,觭,躸,鬿,魌,䒻,䙫,饥,叽,岂,桤,气,気,玑,矶,纪,绮,羁,蕲,虮,觊,讥,记,锜,颀,骐,骑,骥,鱾,鲯,鳍,亓,僟,刏,剘,呚,呩,呮,唭,坖,夡,妀,娸,婍,岓,嵜,帺,掑,攰,梞,槣,樭,檱,櫀,渏,溰,濝,焏,玂,盀,盵,稘,稩,簊,簯,簱,籏,粸,綨,萁,蔇,藄,蘎,蚚,螧,裿,褀,誋,諅,諆,踑,躨,軝,邔,鄿,鐖,陭,鬾,魕,魢,鯕,鱀,鵋,鵸,鶀,齮,﨑";"기");
$text=_SubstituteExt($text;"緊,紧,菣";"긴");
$text=_SubstituteExt($text;"吉,拮,佶,桔,姞,鴶,蛣,洁,趌,鲒,咭,狤,郆,銡,鞊,鮚,䓀";"길");
$text=_SubstituteExt($text;"金";"김");
$text=_SubstituteExt($text;"泥,尼,禰,怩,膩,呢,柅,祢,你,旎,埮,濔,臡,妳,檷,蚭,迡,腻,铌,伱,倷,坭,妮,屔,您,抳,狔,秜,胒,苨,跜,鈮,鉨,鑈,隬,馜";"니");
$text=_SubstituteExt($text;"搦,嫟,糑,嬺,愵,搻";"닉");
$text=_SubstituteExt($text;"昵,暱,䁥,痆,䘌";"닐");
$text=_SubstituteExt($text;"拰";"님");
$text=_SubstituteExt($text;"里,利,理,吏,李,離,履,裏,梨,罹,裡,籬,厘,俚,痢,悧,羸,釐,狸,犁,璃,鯉,唎,莉,浬,漓,莅,离,螭,俐,嫠,魑,貍,邐,涖,哩,蜊,黐,剺,詈,纚,鸝,摛,醨,蒞,蘺,褵,縭,盠,劙,峛,彲,悝,樆,犂,蔾,俬,娌,棃,氂,篱,缡,蓠,逦,锂,鲤,鹂,兣,刕,剓,喱,嚟,囄,娳,孋,孷,峢,峲,彨,悡,攡,梩,梸,浰,犛,猁,琍,瓼,甅,睝,瞝,矖,穲,竰,筣,粚,粴,糎,繌,脷,艃,荲,菞,蟍,蠫,謧,鋫,鋰,錅,鬁,鯏,鯬,麶";"리");
$text=_SubstituteExt($text;"隣,麟,鱗,吝,躪,燐,璘,藺,潾,獜,鄰,磷,粼,嶙,驎,轔,繗,悋,躙,鏻,粦,遴,恡,瞵,䗲,疄,撛,僯,厸,轥,蔺,躏,辚,邻,鳞,亃,壣,斴,暽,橉,焛,甐,翷,蹸,閵,麐";"린");
$text=_SubstituteExt($text;"林,臨,淋,琳,霖,痳,冧,崊,晽,棽,瀮,瀶,碄,箖,醂";"림");
$text=_SubstituteExt($text;"立,笠,粒,砬,岦,雴,苙,鴗,湁";"립");
$text=_SubstituteExt($text;"美,米,未,味,尾,微,迷,眉,彌,靡,媚,薇,楣,湄,嵋,渼,謎,黴,梶,弥,弭,糜,縻,亹,瀰,麋,敉,媺,獼,娓,蘼,媄,苿,眯,冞,洣,罙,郿,浘,眫,猕,芈,谜,镁,镅,鹛,侎,咩,咪,堳,嬍,孊,嵄,嶶,徾,捤,擟,攗,攠,斖,渳,溦,灖,煝,爢,猸,瑂,癓,睂,睸,瞇,矀,祙,穈,篃,羋,脒,艉,荱,菋,葞,葿,蒾,蔝,蘪,蝞,覹,詸,躾,醚,醾,醿,釄,銤,鎂,鎇,镾,霺,鮇,鶥,麊";"미");
$text=_SubstituteExt($text;"民,敏,閔,憫,悶,旻,旼,珉,玟,愍,泯,岷,緡,黽,閩,忞,暋,緍,湣,忟,罠,苠,鰵,黾,僶,渑,澠,慜,潣,敃,燘,痻,砇,悯,焖,缗,闵,闷,闽,鳘,冺,刡,勄,垊,姄,崏,怋,抿,捪,敯,燜,琘,琝,瑉,盿,碈,笢,簢,鈱,錉,鍲,鴖";"민");
$text=_SubstituteExt($text;"密,蜜,謐,樒,滵,宻,谧,嘧,峚,櫁,淧,蔤,藌,蠠";"밀");
$text=_SubstituteExt($text;"非,鼻,悲,備,比,飛,秘,費,妃,卑,碑,肥,批,婢,匪,丕,毖,泌,毘,鄙,扉,譬,庇,臂,裨,沸,憊,緋,脾,誹,痺,蜚,琵,匕,砒,翡,秕,毗,菲,斐,粃,榧,枇,妣,俾,祕,閟,霏,轡,圮,沘,騑,羆,髀,棐,睥,痞,鼙,邳,紕,貔,贔,悱,椑,腓,庳,陴,仳,芘,淝,篦,芾,濞,蚍,狒,剕,埤,萆,鞴,痹,屁,淠,狉,蓖,郫,騛,篚,畀,疪,禆,庀,痱,裶,啚,媲,鞞,伾,秠,柲,糒,豼,䀝,嚭,渄,蠯,俻,偹,厞,婓,嫓,屝,昲,箄,聛,膍,陫,馡,㩌,备,惫,纰,绯,罴,诽,费,赑,辔,钚,镄,飞,鲱,俷,僃,呸,啤,噽,嚊,坒,壀,奜,婔,嬶,屄,岯,崥,怌,悂,抷,暃,曊,朇,朼,枈,榌,毞,渒,焷,犕,猆,畁,疕,疿,睤,磇,笓,箆,簲,粊,肶,脴,腗,舭,苤,萉,萞,蕜,薭,蚽,蜰,蜱,螕,諀,豍,豾,鈈,鈚,鉟,錍,鎞,鐨,阰,隦,靟,餥,駓,髬";"비");
$text=_SubstituteExt($text;"貧,賓,頻,彬,嬪,殯,濱,嚬,瀕,牝,斌,浜,玭,檳,鬢,擯,儐,蘋,邠,顰,繽,豳,霦,鑌,鬂,矉,臏,賔,份,馪,璸,髩,薲,蠙,濵,梹,傧,嫔,宾,摈,槟,殡,滨,濒,缤,膑,贫,镔,频,颦,髌,鬓";"빈");
$text=_SubstituteExt($text;"氷,聘,憑,騁,冰,凭,娉,凴,俜,砯,䀻,骋,慿,泵,涄,淜";"빙");
$text=_SubstituteExt($text;"時,始,示,市,視,詩,試,是,施,侍,矢,柴,屍,諡,弑,匙,猜,豺,媤,柿,尸,恃,蓍,謚,豕,翅,屎,嘶,蒔,枾,啻,厮,緦,澌,廝,柹,偲,撕,諟,兕,豉,塒,顋,枲,諰,釃,翤,鍉,絁,腮,颸,弒,眎,凘,翨,乨,毸,漦,襹,揌,犲,褷,埘,时,缌,莳,视,试,诗,酾,铈,飔,鲥,兘,呞,咶,宩,崼,嵵,徥,戠,揓,旹,榯,毢,沶,湤,眂,祡,簛,罳,翄,膪,葈,葹,邿,鈰,鉃";"시");
$text=_SubstituteExt($text;"食,式,植,識,息,飾,湜,殖,軾,蝕,拭,熄,寔,埴,篒,栻,喰,媳,鉽,烒,蚀,轼,饰,煶,瘜,禃,籂,蒠,遈,鄎,鎴,餝";"식");
$text=_SubstituteExt($text;"身,信,臣,新,神,申,辛,愼,伸,晨,紳,訊,迅,腎,燼,宸,薪,呻,蜃,娠,藎,莘,侁,矧,贐,哂,汛,頣,脤,駪,噺,囟,姺,慎,抻,賮,兟,伩,柛,璶,峷,鋠,烬,绅,肾,荩,讯,识,赆,卂,吲,妽,孞,屾,弞,扟,敒,昚,曟,榊,氠,烥,燊,珅,甡,眒,眘,矤,砷,祳,笉,籶,籸,胂,茞,莀,裑,訙,訠,訫,訷,鉮,阠,顖";"신");
$text=_SubstituteExt($text;"室,失,實,悉,蟋,飋,窸,实,実,怸,榁,螅,鏭";"실");
$text=_SubstituteExt($text;"心,甚,深,沈,尋,審,瀋,沁,諶,芯,潯,梣,椹,燖,葚,鐔,鱏,淰,愖,諗,杺,伈,蕈,襑,宷,煁,瞫,覾,吣,婶,审,寻,浔,渖,谂,谌,镡,㖊,侺,吢,噚,堔,嬸,憳,攳,桪,樳,橬,璕,瘎,讅,谉,邥,鄩,鈊";"심");
$text=_SubstituteExt($text;"十,辻,兙,卌,椞,瓧,竍,籵,趇";"십");
$text=_SubstituteExt($text;"二,耳,異,以,而,李,已,移,伊,夷,珥,弛,貳,怡,餌,痍,爾,姨,貽,邇,彛,肄,苡,飴,荑,彝,迤,訑,詑,洟,咿,珆,栮,尔,隶,鮧,坨,頉,頤,羡,尒,异,圯,薾,迩,儞,匜,貮,詒,迆,洱,眤,輀,杝,敡,眙,貤,轜,尓,暆,柂,駬,彜,洏,彞,栭,酏,頥,羠,苢,蛦,黟,佁,刵,崺,弍,扅,攺,樲,潩,眱,眲,綛,胹,衈,謻,趰,迻,髵,弐,诒,贰,贻,颐,伿,佴,侇,侕,咡,咦,媐,宧,峏,峓,巸,廙,弬,恞,枱,桋,椸,歋,殔,毦,瓵,笖,箷,簃,粫,聏,肔,胣,胰,荋,螔,衪,袘,袲,袻,誀,跠,迱,鉯,鉺,陑,隭,顊";"이");
$text=_SubstituteExt($text;"益,翼,翊,溺,翌,匿,瀷,弋,鷁,熤,榏,釴,杙,嗌,艗,黓,熼,獈,穓,膉,芅,蛡,隿,霬";"익");
$text=_SubstituteExt($text;"人,仁,因,引,印,寅,忍,認,姻,咽,刃,湮,蚓,靭,茵,絪,靷,堙,仞,禋,夤,裀,婣,洇,扨,籾,芢,訒,軔,儿,紉,闉,戭,牣,諲,韌,鏔,駰,垔,湚,釼,陻,仭,欭,歅,璌,筃,螾,纫,认,讱,轫,铟,凐,刄,囜,屻,岃,忈,忎,朄,朲,杒,梕,殥,秂,秵,粌,緸,肕,茚,荵,蔩,躵,鈏,銦,靱,鞇";"인");
$text=_SubstituteExt($text;"一,佚,佾,呹,軼,壱,壹,日,逸,逸";"일");
$text=_SubstituteExt($text;"壬,任,賃,姙,稔,荏,恁,妊,衽,飪,絍,銋,袵,餁,紝,棯,腍,鈓,临,纴,赁,饪,栠,栣,祍,秹,菍,軠,鵀";"임");
$text=_SubstituteExt($text;"卄,廿,入,込,圦,扖,杁,魞,鳰";"입");
$text=_SubstituteExt($text;"剩,孕,仍,芿,媵,剰,賸,礽,陾,扔,膡,艿,辸";"잉");
$text=_SubstituteExt($text;"地,知,至,志,之,止,紙,持,指,支,只,枝,智,池,誌,遲,旨,址,芝,脂,肢,祉,咫,摯,枳,祗,趾,砥,贄,漬,沚,芷,蜘,墀,秪,躓,舐,踟,篪,鷙,榰,坻,扺,軹,泜,阯,痣,鮨,遅,㫖,秖,祬,䘭,輊,胝,鳷,帋,搘,蚳,厎,墬,鋕,驇,彽,恉,抧,遟,挚,渍,纸,迟,俧,倁,凪,劧,吱,哋,坁,坔,坘,埊,娡,岻,忯,杫,栺,梽,椥,汥,汦,洔,淽,潪,疻,砋,秓,竾,筂,筫,箈,綕,胑,舓,衼,覟,觗,訨,謘,貾,赿,酯,馶";"지");
$text=_SubstituteExt($text;"直,職,織,稷,稙,禝,溭,聀,犆,樴,嬂,织,职,膱,蘵,蟙,軄";"직");
$text=_SubstituteExt($text;"眞,進,盡,辰,陳,振,震,陣,珍,鎭,晉,塵,津,秦,診,嗔,疹,賑,晋,軫,唇,搢,臻,殄,縉,榛,袗,瑨,畛,璡,縝,瞋,溱,桭,蔯,趁,儘,稹,蓁,珒,鬒,侲,鉁,螴,真,禛,鎮,趂,疢,眹,胗,溍,珎,姫,敶,榗,眕,紾,䀌,搸,濜,薼,螓,轃,辴,尽,尘,纼,缙,缜,诊,赈,轸,进,镇,阵,陈,侭,嗪,嚍,堻,塦,壗,嫀,嫃,嬧,屒,帪,弫,抮,挋,敐,昣,枃,樄,樼,殝,浕,獉,琎,瑧,籈,紖,絼,縥,聄,臸,蒖,薽,蜄,裖,誫,謓,軙,迧,錱,靕,駗,黰";"진");
$text=_SubstituteExt($text;"質,疾,秩,姪,迭,跌,窒,叱,嫉,帙,桎,膣,侄,蛭,瓆,絰,垤,郅,鑕,蒺,咥,耋,晊,抶,銍,袠,瓞,袟,礩,昳,翐,挃,妷,峌,恎,耊,绖,质,儨,劕,厔,庢,愱,戜,槉,櫍,洷,潌,眣,眰,秷,紩,胅,腟,臷,苵,螏,螲,詄,豑,貭";"질");
$text=_SubstituteExt($text;"朕,斟,鴆,酙,鸩";"짐");
$text=_SubstituteExt($text;"集,執,輯,什,緝,潗,鏶,戢,咠,諿,縶,慹,蓻,执,缉,辑,偮,卙,嶯,瓡,艥,謺,鍓,雦";"집");
$text=_SubstituteExt($text;"徵,懲,澄,澂,瀓,瞪,癥,徴,憕,惩";"징");
$text=_SubstituteExt($text;"治,致,齒,置,恥,値,雉,痴,稚,峙,馳,侈,熾,幟,嗤,緻,痔,癡,緇,蚩,穉,梔,淄,輜,寘,鴟,巵,菑,錙,褫,絺,薙,哆,畤,卮,鵄,跱,阤,痓,鯔,鴙,耻,歯,懥,媸,夂,偫,眵,稺,觶,乿,廌,值,椔,歭,袳,陊,騺,庤,滍,瓻,糦,胵,裭,郗,栀,帜,炽,缁,觯,辎,锱,驰,鸱,齿,俿,傂,卶,垁,垑,妛,崰,崻,徝,恀,憄,懫,拸,搱,旘,杘,湽,甾,秲,紎,耛,芖,茌,茬,荎,葘,藢,袮,襧,訵,誃,誺,跮,輺,鉹,鍿,駤,鶅,黹,齝";"치");
$text=_SubstituteExt($text;"則,勅,飭,敕,恜,侙,慗,遫,鶒,鷘,则,饬,淔,趩,鉓";"칙");
$text=_SubstituteExt($text;"親,襯,櫬,齔,藽,嚫,瀙,亲,榇,衬,龀,儬,寴,澵,齓";"친");
$text=_SubstituteExt($text;"七,漆,柒,桼,㐂";"칠");
$text=_SubstituteExt($text;"針,侵,寢,浸,枕,鍼,砧,琛,忱,沉,駸,鋟,寖,郴,祲,碪,伔,寑,抌,踸,揕,枮,梫,賝,寝,针,锓,骎,兓,唚,埐,夦,嶜,抋,濅,綅,綝,莐,萙,葴,誛,諃,鈂,鍖,霃";"침");
$text=_SubstituteExt($text;"蟄,馽,蛰,漐,釞";"칩");
$text=_SubstituteExt($text;"稱,秤,称,穪,偁";"칭");
$text=_SubstituteExt($text;"皮,彼,被,避,疲,披,陂,詖,鞁,髲,柀,帔,骳,狓,鈹,佊,秛,㱟,怶,旇,犤,紴,翍,耚,藣,襬,貏,貱,銔";"피");
$text=_SubstituteExt($text;"腷,煏";"픽");
$text=_SubstituteExt($text;"必,筆,匹,畢,弼,疋,苾,珌,馝,蹕,蓽,韠,篳,觱,佖,滭,駜,鵯,咇,罼,鞸,驆,弻,榓,熚,胇,袐,飶,䟆,哔,毕,滗,笔,筚,荜,虑,跸,吡,嗶,妼,彃,怭,潷,縪,苉,襅,邲,鉍,鏎";"필");
$text=_SubstituteExt($text;"乏,逼,偪,愊,姂,鴔";"핍");
$text=_SubstituteExt($text;"忾";"히");
$text=_SubstituteExt($text;"詰,黠,頡,纈,犵,襭,肹,擷,肸,撷,缬,诘,颉,恄,欯,翓";"힐");
$text=Substitute($text;["氏";"씨"];["喫";"끽"]);
$text=_SubstituteExt($text;"習,拾,襲,濕,褶,隰,慴,熠,湿,霫,謵,习,袭,鳛,啃,嶍,槢,溼,漝,飁,騽,鰼";"습")
];

$text

)

漢字をハングルにするのは、大変ですね。しかし、まだ問題が残っています。

語頭処理をつけ加える

韓国語の発音規則のひとつに、語頭の「ㄹ」は「ㅇ」になるという規則があります。常識ですね。
北朝鮮は「ㄹ」のままですけど。
一番簡単な例は「李」です。語頭では「이」、語中では「리」です。(「行李」がその例です)
また、「料」は語頭では「요」、語中では「료」です。(「料理」「無料」がその例です)
「_Hangul(text)」この語頭処理を加えてみました。

/*
 漢字をハングルに変換します。
カスタム関数 _HangulDB1( ), _HangulDB2( ), _SubstituteExt( ) を同時にインストールしてください。
*/

Let (
[
$text = text;
$leftword = Left ( $text ; 1 );

$filterLyo = Filter ( $leftword ; "料了僚遼療聊寮燎瞭廖寥鬧蓼潦醪繚膋撩暸獠鐐嘹嫽飂飉憀憭鷯璙炓尞橑爎轑疗缭辽镣鹩佬叾尥尦屪嶚嶛廫敹曢熮爒爳窲窷竂簝翏膫藔蟉蟟豂賿蹘蹽鄝镽顟髎" );
$text = If (   not IsEmpty ( $filterLyo  )   ; Replace ( $text ; 1 ; 1 ; "요" ) ; $text ) ;

$filterLi = Filter ( $leftword ; "里利理吏離履裏梨罹裡籬厘俚痢悧羸釐狸犁璃鯉唎莉浬漓莅离螭俐嫠魑貍邐涖哩蜊黐剺詈纚鸝摛醨蒞蘺褵縭盠劙峛彲悝樆犂蔾俬娌棃氂篱缡蓠逦锂鲤鹂兣刕剓喱嚟囄娳孋孷峢峲彨悡攡梩梸浰犛猁琍瓼甅睝瞝矖穲竰筣粚粴糎繌脷艃荲菞蟍蠫謧鋫鋰錅鬁鯏鯬麶" );
$text = If (   not IsEmpty ( $filterLi  )   ; Replace ( $text ; 1 ; 1 ; "이" ) ; $text ) ;



$text = Substitute ( $text ; [" 利"; " 이"] ; ["¶利"; "¶이"]  );


$text = _HangulDB1 ( $text );
$text = _HangulDB2 ( $text )

];

$text

)

まだ残されている問題

これで、だいぶ使えるように成りました。しかし残された問題があります。
漢字は、必ずしも一語一音ではないのです。
当たり前ですね。
例えば、「車」。
「自動車」は「자동차」、「自転車」は「자전거」です。
これは間違えないですが、「馬車」はどうでしょう? だいたいは「마차」と読みますが、「마거」と読むこともできます。
「白川」は普通に読めば「백천」ですが、黄海道の地名では「배천」と読みます。白川金氏で出てくる読み方です。
読み方は、文脈によるので、単純に単語で判断できないのです。
文脈を汲み取ったデータベースをさらに組み込むこともできますが、これは手に負えないので、開発はここまでにしました。

0
1
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
0
1