<html>

<head>

<title>漢字　旧→新</title>

<hta:application

	applicationname="RENEW_KANJI"

	singleinstance="YES" maximizebutton="NO" scroll="NO"

/>

</head>


<body bgcolor=aliceblue>

<br>

　[参照]ボタンをクリックしてフォルダを開き、旧字→新字に変換するファイルを選択してください。<br>

<form name="form1">

　ファイル=<input name="fname" size=70 type="file" /><br>

<br>

　　　<input type="radio" value="0" name="rb"  > UTF-8<br>

　　　<input type="radio" value="1" name="rb" > UTF-16<br>

　　　<input type="radio" value="2" name="rb"  > Shit_JIS<br>

　　　<small style="color:red">※自動判別してはいないので、ユーザーが明示的に選択してください。</small><br>

<br>

　　　<input type="button" value="変換実行" onClick="renew_kanji()" />

</form>

<!-----------以下スクリプト-------------------------------------->

<script language="VBScript">

Dim SHAp,WSN,FSO,tFile,tNweFile

Dim kyuu,shin,kyuuX,shiX,k

Set SHAp = CreateObject("Shell.Application")

Set WSN = CreateObject("WScript.Network")

Set FSO = CreateObject("Scripting.FileSystemObject")


Sub Window_OnLoad()

    window.ResizeTo 1000, 500

End Sub


Sub renew_kanji()


    tgtfile = document.form1.fname.Value

    If tgtfile ="" Then

        MsgBox "ファイルを選択してから実行してください。"

        Exit Sub

    End If


    mode = -2

    If document.form1.rb(0).checked Then mode = "UTF-8"

    If document.form1.rb(1).checked Then mode = "UTF-16"

    If document.form1.rb(2).checked Then mode = "SHFT_JIS"

    If mode = -2 Then MsgBox "エンコードを選んでください。": Exit Sub


	newfile = tgtfile & ".new.txt"

    msg = "テキスト内の旧字体を新字体に変更します。" & vbCrLf

    msg = msg & "変換結果は " & newfile & " に書き出されます。" & vbCrLf

    msg = msg & "実行しますか？" & vbCrLf

    res = MsgBox(msg, vbYesNo)

    If res = vbNo Then Exit Sub


	kanji_list	'漢字変換対照表作成


    Set tFile = CreateObject("ADODB.Stream")

    tFile.Type = 2  ' 1=バイナリ,2=テキスト

    tFile.Charset = mode

    tFile.Open

    tFile.LoadFromFile tgtfile


    tmp = tFile.ReadText(-1) '-1=全行,-2=一行


    '変換の実際

    For k = 1 To Len(kyuu)

        kyuuX = Mid(kyuu,k,1)

        shinX = Mid(shin,k,1)

        tmp = Replace(tmp,kyuuX,ShinX)

    Next


    Set tNewFile = CreateObject("ADODB.Stream")

    tNewFile.Type = 2

    tNewFile.Charset = mode

    tNewFile.Open

    tNewFile.WriteText tmp, 0      '0=文字のみ,1=文字+改行

    tNewFile.SaveToFile newfile, 2 '既存ファイルは上書き


    tFile.Close

    tNewFile.Close


End Sub


Sub kanji_list()

'                                                            古

kyuu = kyuu & "亞惡壓圊爲醫鶯羽榮營衞驛圓鹽應橫櫻歐毆奧隱穩飮睿艷"

shin = shin & "亜悪圧囲為医鴬羽栄営衛駅円塩応横桜欧殴奥隠穏飲叡艶"


'                    古              代    俗                  俗

kyuu = kyuu & "價假譁囘會繪壞懷屆擴畫劃殼學斈覺寬嶽刋卷陷觀勸歡凾閒關巖顏"

shin = shin & "価仮嘩回会絵壊懐届拡画画殻学学覚寛岳刊巻陥観勧歓函間関巌顔"


'              俗俗  俗  代        本  俗俗俗  俗俗    代    本

kyuu = kyuu & "噐竒歸皈氣饑龜僞犧戲卻舊廐廏舉擧亰敎鄕峽陜尭曉彊區驅薰勳"

shin = shin & "器奇帰帰気飢亀偽犠戯却旧厩廐挙挙京教郷峡峡堯暁強区駆薫勲"


'                                俗        旧本俗俗俗

kyuu = kyuu & "惠溪徑莖經輕繼螢藝杰缺圈劵儉劍劒劔剱釼險驗獻贒權顯縣嚴"

shin = shin & "恵渓径茎経軽継蛍芸傑欠圏券倹剣剣剣剣剣険験献賢権顕県厳"


'              代              俗俗

kyuu = kyuu & "亙恆冦廣纊效髙號刧尅國黑"

shin = shin & "亘恒寇広絋効高号劫剋国黒"


'                                    俗

kyuu = kyuu & "碎顋濟齋劑册雜參贊蠶殘絲齒飼兒辭濕蝨實澁澀"

shin = shin & "砕腮済斎剤冊雑参賛蚕残糸歯飼児辞湿虱実渋渋"


'                俗      俗        本

kyuu = kyuu & "寫冩舊釋壽咒收穐龝從从縱獸肅"

shin = shin & "写写舎釈寿呪収秋秋従従縦獣粛"


'                              本  別                  俗        俗

kyuu = kyuu & "處敍敘證稱燒將奬獎繩甞壤孃穰釀乘剩塲淨觸神眞晉寢刄仞盡儘"

shin = shin & "処叙叙証称焼将奨奨縄嘗壌嬢穣醸乗剰場浄触神真晋寝刃仭尽侭"


'              俗                                          俗古

kyuu = kyuu & "圖埀醉粹隨髓樞數齊靑淸精靜聲竊攝專淺潛濳戰纎纖翦譱禪"

shin = shin & "図垂酔粋随髄枢数斉青清精静声窃摂専浅潜潜戦繊繊剪善禅"


'              俗                          俗俗

kyuu = kyuu & "爼雙爭壯莊裝插增總聰藏臟續屬卆伜"

shin = shin & "俎双争壮荘装挿増総聡蔵臓続属卒倅"


'              俗    古俗                        本          俗俗

kyuu = kyuu & "夛墮體軆躰帶滯臺廼澤擇疊疂單膽斷彈廚晝蟲聽豬廳廰膓敕"

shin = shin & "多堕体体体帯滞台迺沢択畳畳単胆断弾厨昼虫聴猪庁庁腸勅"


'                                  古

kyuu = kyuu & "尊塚點轉傳當盜燈稻鬪仝德讀獨"

shin = shin & "対塚点転伝当盗灯稲闘同徳読独"


'              古

kyuu = kyuu & "弊禰惱腦"

shin = shin & "二祢悩脳"


'                      俗

kyuu = kyuu & "陂廢拜賣愽麥發拔髮飯蠻濱濵麩佛拂"

shin = shin & "坡廃拝売博麦発抜髪飯蛮浜浜麸仏払"


'                      略略略

kyuu = kyuu & "竝變邊邉辨辧辯穗舖鋪襃寶寳豐萠夘貎沒飜"

shin = shin & "並変辺辺弁弁弁穂舗舗褒宝宝豊萌卯貌没翻"


'                      俗    古                    俗

kyuu = kyuu & "萬滿彌脉梦緜默埜藥豫與餘譽樣搖謠瑤遙蝿"

shin = shin & "万満弥脈夢綿黙野薬予与余誉様揺謡瑶遥蠅"


'                古    俗            俗

kyuu = kyuu & "來徠賴樂埓亂覽隆兩輛綠悋凜壘禮勵齡靈戀勞朗朖祿灣"

shin = shin & "来来頼楽埒乱覧隆両輌緑吝凛塁礼励齢霊恋労朗朗禄湾"


End Sub


</script>


</body>

</html>