'################################################### ' StrConv 1 (WSH) '  TjSoft-38, Taiju, 2007.9.22 ' 【使い方】 '  「真魚」エディタの選択テキストについて '  文字種の変換を行う。 '  かなと英文字について相互変換ができる。 '################################################### sTargetString = Editor.GetSelText hiragana = Array("ぁ","あ","ぃ","い","ぅ","う","ぇ","え","ぉ","お","か","が","き","ぎ","く","ぐ","け","げ","こ","ご","さ","ざ","し","じ","す","ず","せ","ぜ","そ","ぞ","た","だ","ち","ぢ","っ","つ","づ","て","で","と","ど","な","に","ぬ","ね","の","は","ば","ぱ","ひ","び","ぴ","ふ","ぶ","ぷ","へ","べ","ぺ","ほ","ぼ","ぽ","ま","み","む","め","も","ゃ","や","ゅ","ゆ","ょ","よ","ら","り","る","れ","ろ","ゎ","わ","ゐ","ゑ","を","ん","ゝ","ゞ") katakana = Array("ァ","ア","ィ","イ","ゥ","ウ","ェ","エ","ォ","オ","カ","ガ","キ","ギ","ク","グ","ケ","ゲ","コ","ゴ","サ","ザ","シ","ジ","ス","ズ","セ","ゼ","ソ","ゾ","タ","ダ","チ","ヂ","ッ","ツ","ヅ","テ","デ","ト","ド","ナ","ニ","ヌ","ネ","ノ","ハ","バ","パ","ヒ","ビ","ピ","フ","ブ","プ","ヘ","ベ","ペ","ホ","ボ","ポ","マ","ミ","ム","メ","モ","ャ","ヤ","ュ","ユ","ョ","ヨ","ラ","リ","ル","レ","ロ","ヮ","ワ","ヰ","ヱ","ヲ","ン","ヽ","ヾ") zenkaku = Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z") hankaku = Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z") omoji = Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") komoji = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z") sSelectedMenu = InputBox(" 1 ひらがな → カタカナ" & vbCr & " 2 カタカナ → ひらがな" & vbCr & " 3 全角英数 → 半角英数" & vbCr & " 4 半角英数 → 全角英数" & vbCr & " 5 英大文字 → 英小文字" & vbCr & " 6 英小文字 → 英大文字","文字種の変換") Select Case UCase(sSelectedMenu) Case 1 'ひらがな → カタカナ For i = 0 To UBound(hiragana) schPattern = hiragana(i) repPattern = katakana(i) sTargetString = Replace(sTargetString,schPattern,repPattern) Next Case 2 'カタカナ → ひらがな For i = 0 To UBound(hiragana) schPattern = katakana(i) repPattern = hiragana(i) sTargetString = Replace(sTargetString,schPattern,repPattern) Next Case 3 '全角英数 → 半角英数 For i = 0 To UBound(zenkaku) schPattern = zenkaku(i) repPattern = hankaku(i) sTargetString = Replace(sTargetString,schPattern,repPattern) Next Case 4 '半角英数 → 全角英数 For i = 0 To UBound(zenkaku) schPattern = hankaku(i) repPattern = zenkaku(i) sTargetString = Replace(sTargetString,schPattern,repPattern) Next Case 5 '英大文字 → 英小文字 For i = 0 To UBound(omoji) schPattern = omoji(i) repPattern = komoji(i) sTargetString = Replace(sTargetString,schPattern,repPattern) Next Case 6 '英小文字 → 英大文字 For i = 0 To UBound(omoji) schPattern = komoji(i) repPattern = omoji(i) sTargetString = Replace(sTargetString,schPattern,repPattern) Next End Select sTargetString = Editor.SetSelText(sTargetString) Erase hiragana Erase katakana Erase zenkaku Erase hankaku Erase omoji Erase komoji