REM ======================================== REM REM 日本語かな文字変換ツール REM カナカナ７（セブン）WIN10版 ver0.991 REM REM CopyRight MIYAMA. 2023 June REM KazutomiMiyamaSub@gmail.com REM kazutomi.html.xdomain.jp REM REM made by VB.net 2019 REM REM ======================================== Option Explicit On Imports System Imports System.IO Imports System.Text.RegularExpressions Class MainWindow Dim Re As Regex Dim FSO = CreateObject("Scripting.FileSystemObject") Dim VacantCHR As String = "" Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded With In_TXT .Height = 400 .Width = 400 .AcceptsReturn = True .Text = VacantCHR End With With OutTXT .Height = 400 .Width = 400 .AcceptsReturn = True .Text = VacantCHR End With With ClrBTN .Height = 60 .Width = 400 .Content = "ALL Clear" End With With ExeBTN .Height = 60 .Width = 400 .Content = "Execute" End With With HankakuDakuTenHaretsuOnTenAndManyCRLFCHK .Height = 40 .Width = 800 .Content = "改行に分割された半角濁点記号＆半角破裂音記号を清音に合体させ、なおかつ過剰な改行を一つに圧縮する " .IsChecked = False End With End Sub Sub WriteOutputFile(ContentsSTR As String) Dim WTS = FSO.CreateTextFile("output.txt") WTS.write(ContentsSTR + vbCrLf) WTS.close End Sub Private Sub ClrBTN_Click(sender As Object, e As RoutedEventArgs) Handles ClrBTN.Click In_TXT.Text = VacantCHR OutTXT.Text = VacantCHR End Sub Private Sub ExeBTN_Click(sender As Object, e As RoutedEventArgs) Handles ExeBTN.Click Dim OutSTR As String Dim MSGSTR As String MSGSTR = "半角数字で変換モードを入力してください" + vbCrLf + vbCrLf + "全角ひらがな ＞ 全角カタカナ " + "１" + vbCrLf + "全角ひらがな ＞ 半角カナ　　 " + "２" + vbCrLf + vbCrLf + "全角カタカナ ＞ 全角ひらがな " + "３" + vbCrLf + "全角カタカナ ＞ 半角カナ " + "４" + vbCrLf + vbCrLf + "半角カナ ＞ 全角ひらがな " + "５" + vbCrLf + "半角カナ ＞ 全角カタカナ " + "６" + vbCrLf + vbCrLf + "なにもしない " + "７" Dim ChangeModeSTR As String = InputBox(MSGSTR) Dim ChangeMode As Integer Select Case ChangeModeSTR Case "１" : ChangeModeSTR = "1" Case "２" : ChangeModeSTR = "2" Case "３" : ChangeModeSTR = "3" Case "４" : ChangeModeSTR = "4" Case "５" : ChangeModeSTR = "5" Case "６" : ChangeModeSTR = "6" Case "７" : ChangeModeSTR = "7" End Select ChangeMode = CInt(Val(ChangeModeSTR)) If ChangeMode < 1 Or 7 < ChangeMode Then MessageBox.Show("変換モードが正しくありません。") Else If ChangeMode = 7 Then MessageBox.Show("なにもしない、が選択されましたので、" + vbCrLf + "なにもしません。Zzzzz......") Else OutSTR = ControlCHRChange(ChangeMode) OutTXT.Text = OutSTR WriteOutputFile(OutSTR) End If End If End Sub Function ControlCHRChange(ChangeMode As Integer) Dim tmpSTR As String = VacantCHR Dim i As Integer Dim j As Integer If In_TXT.Text = VacantCHR Then MessageBox.Show("入力ウィンドウが空白です。") Else tmpSTR = In_TXT.Text ' --半角濁音破裂音記号、改行による分割状態対応------------------------------------------------------- If HankakuDakuTenHaretsuOnTenAndManyCRLFCHK.IsChecked = True Then tmpSTR = Re.Replace(tmpSTR, vbLf, vbCr) '一度キャリッジリターンに統一 For i = 1 To 20 tmpSTR = Re.Replace(tmpSTR, vbCr + vbCr, vbCr) '重複行を指数的に削除 Next For j = 0 To 1 '文字コード222：半角濁点 223：半角破裂点（まる） tmpSTR = Re.Replace(tmpSTR, vbCr + Chr(222 + j), Chr(222 + j) + vbCr) '任意文字と濁破裂記号の間に改行がある場合は、濁破裂記号を前に繰り出す Next tmpSTR = Re.Replace(tmpSTR, vbCr + vbCr, vbCr) '繰り出した結果の二重改行を補正 tmpSTR = Re.Replace(tmpSTR, vbCr, vbCrLf) '改行コードをwindows形式に戻す End If '---------------------------------------------------------- 'sample ひらがな カタカナ 半角ｶﾅ 'tmpSTR = CHRChange(tmpSTR, ChangeMode, "あ", "ア", "ｱ") REM 逐次処理論理チャート REM 半角カナから変換する場合、 REM 半角の濁音記号、破裂音記号が都合該当二文字神作になることを配慮し、 REM 濁音、破裂音の文字から変換する仕様、 REM みための便宜上、文字表は末尾から処理 REM ひらがな域に該当文字がない三例、 REM モード１ 全角ひら ＞ 全角カナ 入力文字に該当なし REM ２ 全角ひら ＞ 半角カナ 入力文字に該当なし REM ３ 全角カナ ＞ 全角ひら 出力文字に該当なし REM ４ 全角カナ ＞ 半角カナ ok REM ５ 半角カナ ＞ 全角ひら 別件が変換優先 REM ６ 半角カナ ＞ 全角カナ 別件が変換優先 If ChangeMode = 4 Then tmpSTR = CHRChange(tmpSTR, ChangeMode, "", "ヶ", "ｹ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "", "ヵ", "ｶ") REM ただしｳﾞは半角二文字なので例外 REM モード１ 全角ひら ＞ 全角カナ 入力文字に該当なし REM ２ 全角ひら ＞ 半角カナ 入力文字に該当なし REM ３ 全角カナ ＞ 全角ひら 出力文字に該当なし REM ４ 全角カナ ＞ 半角カナ ok REM ５ 半角カナ ＞ 全角ひら 別件が変換優先 REM ６ 半角カナ ＞ 全角カナ ok tmpSTR = CHRChange(tmpSTR, ChangeMode, "", "ヴ", "ｳﾞ") End If If ChangeMode = 6 Then tmpSTR = CHRChange(tmpSTR, ChangeMode, "", "ヴ", "ｳﾞ") End If tmpSTR = CHRChange(tmpSTR, ChangeMode, "ん", "ン", "ﾝ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "を", "ヲ", "ｦ") REM 別件と半角カナ文字が重複する例 REM ゆえに半角カナからの変換を禁止 REM REM コメントアウトのﾜは比較のために残す。 If 1 <= ChangeMode And ChangeMode <= 4 Then tmpSTR = CHRChange(tmpSTR, ChangeMode, "ゑ", "ヱ", "ｴ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ゐ", "ヰ", "ｲ") 'tmpSTR = CHRChange(tmpSTR, ChangeMode, "わ", "ワ", "ﾜ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ゎ", "ヮ", "ﾜ") End If tmpSTR = CHRChange(tmpSTR, ChangeMode, "わ", "ワ", "ﾜ") REM ラ行 tmpSTR = CHRChange(tmpSTR, ChangeMode, "ろ", "ロ", "ﾛ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "れ", "レ", "ﾚ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "る", "ル", "ﾙ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "り", "リ", "ﾘ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ら", "ラ", "ﾗ") REM ヤ行 tmpSTR = CHRChange(tmpSTR, ChangeMode, "ょ", "ョ", "ｮ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "よ", "ヨ", "ﾖ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ゅ", "ュ", "ｭ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ゆ", "ユ", "ﾕ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ゃ", "ャ", "ｬ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "や", "ヤ", "ﾔ") REM マ行 tmpSTR = CHRChange(tmpSTR, ChangeMode, "も", "モ", "ﾓ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "め", "メ", "ﾒ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "む", "ム", "ﾑ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "み", "ミ", "ﾐ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ま", "マ", "ﾏ") REM ハ行 破裂音＞濁音＞清音 tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぽ", "ポ", "ﾎﾟ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぼ", "ボ", "ﾎﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ほ", "ホ", "ﾎ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぺ", "ペ", "ﾍﾟ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "べ", "ベ", "ﾍﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "へ", "ヘ", "ﾍ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぷ", "プ", "ﾌﾟ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぶ", "ブ", "ﾌﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ふ", "フ", "ﾌ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぴ", "ピ", "ﾋﾟ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "び", "ビ", "ﾋﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ひ", "ヒ", "ﾋ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぱ", "パ", "ﾊﾟ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ば", "バ", "ﾊﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "は", "ハ", "ﾊ") REM ナ行 tmpSTR = CHRChange(tmpSTR, ChangeMode, "の", "ノ", "ﾉ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ね", "ネ", "ﾈ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぬ", "ヌ", "ﾇ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "に", "ニ", "ﾆ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "な", "ナ", "ﾅ") REM ダ行 濁音＞清音 tmpSTR = CHRChange(tmpSTR, ChangeMode, "ど", "ド", "ﾄﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "と", "ト", "ﾄ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "で", "デ", "ﾃﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "て", "テ", "ﾃ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "づ", "ヅ", "ﾂﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "つ", "ツ", "ﾂ") REM 吃音重複事例はなし tmpSTR = CHRChange(tmpSTR, ChangeMode, "っ", "ッ", "ｯ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぢ", "ヂ", "ﾁﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ち", "チ", "ﾁ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "だ", "ダ", "ﾀﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "た", "タ", "ﾀ") REM サ行 濁音＞清音 tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぞ", "ゾ", "ｿﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "そ", "ソ", "ｿ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぜ", "ゼ", "ｾﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "せ", "セ", "ｾ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ず", "ズ", "ｽﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "す", "ス", "ｽ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "じ", "ジ", "ｼﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "し", "シ", "ｼ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ざ", "ザ", "ｻﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "さ", "サ", "ｻ") REM ガ行 濁音＞清音 tmpSTR = CHRChange(tmpSTR, ChangeMode, "ご", "ゴ", "ｺﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "こ", "コ", "ｺ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "げ", "ゲ", "ｹﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "け", "ケ", "ｹ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぐ", "グ", "ｸﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "く", "ク", "ｸ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぎ", "ギ", "ｷﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "き", "キ", "ｷ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "が", "ガ", "ｶﾞ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "か", "カ", "ｶ") REM ア行 まるまり音＞清音 tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぉ", "ォ", "ｫ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "お", "オ", "ｵ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぇ", "ェ", "ｪ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "え", "エ", "ｴ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぅ", "ゥ", "ｩ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "う", "ウ", "ｳ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぃ", "ィ", "ｨ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "い", "イ", "ｲ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "ぁ", "ァ", "ｧ") tmpSTR = CHRChange(tmpSTR, ChangeMode, "あ", "ア", "ｱ") REM 長音 tmpSTR = CHRChange(tmpSTR, ChangeMode, "ー", "ー", "ｰ") End If ControlCHRChange = tmpSTR End Function Function CHRChange(tmpSTR As String, ChangeMode As Integer, Hira As String, Kata As String, Hankaku As String) Dim TS As String 'TargetSTR Dim OS As String 'OverWriteSTR Select Case ChangeMode Case 1 : TS = Hira : OS = Kata Case 2 : TS = Hira : OS = Hankaku Case 3 : TS = Kata : OS = Hira Case 4 : TS = Kata : OS = Hankaku Case 5 : TS = Hankaku : OS = Hira Case 6 : TS = Hankaku : OS = Kata End Select CHRChange = Re.Replace(tmpSTR, TS, OS) End Function End Class REM ======================================== REM REM ファイルの終わり。 REM REM ========================================