VB.netのStrConv関数は、一部の環境で正常に動作しない場合があります。
例えば、Windows7で互換モードでアプリケーションを動作させた場合に不具合が生じます。
半角、全角の文字を一文字ずつ変換するコードを書きました。
最初は、コツコツ書いていたのですが、
途中から面倒になって、StrConv関数を使って、
ソースコードをプログラムで書きました。
一応、その時に使ったコードも載せておきます。
RichTextBox1.Textに文字一覧を入力しておくと、
全角変換用と、半角変換用のコードを生成します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Dim sText As String Dim sCharArray() As String sText = RichTextBox1.Text sCharArray = sText.Split(" ") Dim s全角へ As String Dim s半角へ As String Dim s半角 As String For i = 0 To UBound(sCharArray) s半角 = StrConv(sCharArray(i), vbNarrow) s全角へ &= "sText = sText.Replace(""" & s半角 & """, """ & sCharArray(i) & """)" & vbCrLf s半角へ &= "sText = sText.Replace(""" & sCharArray(i) & """, """ & s半角 & """)" & vbCrLf Next RichTextBox2.Text = s全角へ & vbCrLf & s半角へ |
半角から全角に文字列を変換する際、
濁点ありのカタカナを濁点なしのカタカナより先に変換する必要があります。
そうしないと、例えば、「ﾊﾟｲﾅｯﾌﾟﾙ」を変換した場合、
「ハﾟイナッフﾟル」となってしまいます。
正しくは、「パイナップル」です。
「ハﾟイナッフﾟル」（半角の「゜」になってしまっている。）
「パイナップル」（正しい。）
半角を全角に変換するコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 |
Private Sub btn全角に変換_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn全角に変換.Click Dim sText As String sText = RichTextBox1.Text 数字を全角に変換(sText) 英字を全角に変換(sText) '濁点ありを濁点なしより先に処理する必要がある。 濁点ありカナを全角に変換(sText) 濁点なしカナを全角に変換(sText) 記号を全角に変換(sText) RichTextBox2.Text = sText End Sub Private Sub 数字を全角に変換(ByRef sText As String) sText = sText.Replace("0", "０") sText = sText.Replace("1", "１") sText = sText.Replace("2", "２") sText = sText.Replace("3", "３") sText = sText.Replace("4", "４") sText = sText.Replace("5", "５") sText = sText.Replace("6", "６") sText = sText.Replace("7", "７") sText = sText.Replace("8", "８") sText = sText.Replace("9", "９") End Sub Private Sub 英字を全角に変換(ByRef sText As String) sText = sText.Replace("A", "Ａ") sText = sText.Replace("B", "Ｂ") sText = sText.Replace("C", "Ｃ") sText = sText.Replace("D", "Ｄ") sText = sText.Replace("E", "Ｅ") sText = sText.Replace("F", "Ｆ") sText = sText.Replace("G", "Ｇ") sText = sText.Replace("H", "Ｈ") sText = sText.Replace("I", "Ｉ") sText = sText.Replace("J", "Ｊ") sText = sText.Replace("K", "Ｋ") sText = sText.Replace("L", "Ｌ") sText = sText.Replace("M", "Ｍ") sText = sText.Replace("N", "Ｎ") sText = sText.Replace("O", "Ｏ") sText = sText.Replace("P", "Ｐ") sText = sText.Replace("Q", "Ｑ") sText = sText.Replace("R", "Ｒ") sText = sText.Replace("S", "Ｓ") sText = sText.Replace("T", "Ｔ") sText = sText.Replace("U", "Ｕ") sText = sText.Replace("V", "Ｖ") sText = sText.Replace("W", "Ｗ") sText = sText.Replace("X", "Ｘ") sText = sText.Replace("Y", "Ｙ") sText = sText.Replace("Z", "Ｚ") sText = sText.Replace("a", "ａ") sText = sText.Replace("b", "ｂ") sText = sText.Replace("c", "ｃ") sText = sText.Replace("d", "ｄ") sText = sText.Replace("e", "ｅ") sText = sText.Replace("f", "ｆ") sText = sText.Replace("g", "ｇ") sText = sText.Replace("h", "ｈ") sText = sText.Replace("i", "ｉ") sText = sText.Replace("j", "ｊ") sText = sText.Replace("k", "ｋ") sText = sText.Replace("l", "ｌ") sText = sText.Replace("m", "ｍ") sText = sText.Replace("n", "ｎ") sText = sText.Replace("o", "ｏ") sText = sText.Replace("p", "ｐ") sText = sText.Replace("q", "ｑ") sText = sText.Replace("r", "ｒ") sText = sText.Replace("s", "ｓ") sText = sText.Replace("t", "ｔ") sText = sText.Replace("u", "ｕ") sText = sText.Replace("v", "ｖ") sText = sText.Replace("w", "ｗ") sText = sText.Replace("x", "ｘ") sText = sText.Replace("y", "ｙ") sText = sText.Replace("z", "ｚ") End Sub Private Sub 濁点なしカナを全角に変換(ByRef sText As String) sText = sText.Replace("ｱ", "ア") sText = sText.Replace("ｲ", "イ") sText = sText.Replace("ｳ", "ウ") sText = sText.Replace("ｴ", "エ") sText = sText.Replace("ｵ", "オ") sText = sText.Replace("ｶ", "カ") sText = sText.Replace("ｷ", "キ") sText = sText.Replace("ｸ", "ク") sText = sText.Replace("ｹ", "ケ") sText = sText.Replace("ｺ", "コ") sText = sText.Replace("ｻ", "サ") sText = sText.Replace("ｼ", "シ") sText = sText.Replace("ｽ", "ス") sText = sText.Replace("ｾ", "セ") sText = sText.Replace("ｿ", "ソ") sText = sText.Replace("ﾀ", "タ") sText = sText.Replace("ﾁ", "チ") sText = sText.Replace("ﾂ", "ツ") sText = sText.Replace("ﾃ", "テ") sText = sText.Replace("ﾄ", "ト") sText = sText.Replace("ﾅ", "ナ") sText = sText.Replace("ﾆ", "ニ") sText = sText.Replace("ﾇ", "ヌ") sText = sText.Replace("ﾈ", "ネ") sText = sText.Replace("ﾉ", "ノ") sText = sText.Replace("ﾊ", "ハ") sText = sText.Replace("ﾋ", "ヒ") sText = sText.Replace("ﾌ", "フ") sText = sText.Replace("ﾍ", "ヘ") sText = sText.Replace("ﾎ", "ホ") sText = sText.Replace("ﾏ", "マ") sText = sText.Replace("ﾐ", "ミ") sText = sText.Replace("ﾑ", "ム") sText = sText.Replace("ﾒ", "メ") sText = sText.Replace("ﾓ", "モ") sText = sText.Replace("ﾔ", "ヤ") sText = sText.Replace("ﾕ", "ユ") sText = sText.Replace("ﾖ", "ヨ") sText = sText.Replace("ﾗ", "ラ") sText = sText.Replace("ﾘ", "リ") sText = sText.Replace("ﾙ", "ル") sText = sText.Replace("ﾚ", "レ") sText = sText.Replace("ﾛ", "ロ") sText = sText.Replace("ﾜ", "ワ") sText = sText.Replace("ｦ", "ヲ") sText = sText.Replace("ﾝ", "ン") sText = sText.Replace("ｧ", "ァ") sText = sText.Replace("ｨ", "ィ") sText = sText.Replace("ｩ", "ゥ") sText = sText.Replace("ｪ", "ェ") sText = sText.Replace("ｫ", "ォ") sText = sText.Replace("ｬ", "ャ") sText = sText.Replace("ｭ", "ュ") sText = sText.Replace("ｮ", "ョ") sText = sText.Replace("ｯ", "ッ") sText = sText.Replace("ｰ", "ー") End Sub Private Sub 濁点ありカナを全角に変換(ByRef sText As String) sText = sText.Replace("ｳﾞ", "ヴ") sText = sText.Replace("ｶﾞ", "ガ") sText = sText.Replace("ｷﾞ", "ギ") sText = sText.Replace("ｸﾞ", "グ") sText = sText.Replace("ｹﾞ", "ゲ") sText = sText.Replace("ｺﾞ", "ゴ") sText = sText.Replace("ｻﾞ", "ザ") sText = sText.Replace("ｼﾞ", "ジ") sText = sText.Replace("ｽﾞ", "ズ") sText = sText.Replace("ｾﾞ", "ゼ") sText = sText.Replace("ｿﾞ", "ゾ") sText = sText.Replace("ﾀﾞ", "ダ") sText = sText.Replace("ﾁﾞ", "ヂ") sText = sText.Replace("ﾂﾞ", "ヅ") sText = sText.Replace("ﾃﾞ", "デ") sText = sText.Replace("ﾄﾞ", "ド") sText = sText.Replace("ﾊﾞ", "バ") sText = sText.Replace("ﾋﾞ", "ビ") sText = sText.Replace("ﾌﾞ", "ブ") sText = sText.Replace("ﾍﾞ", "ベ") sText = sText.Replace("ﾎﾞ", "ボ") sText = sText.Replace("ﾊﾟ", "パ") sText = sText.Replace("ﾋﾟ", "ピ") sText = sText.Replace("ﾌﾟ", "プ") sText = sText.Replace("ﾍﾟ", "ペ") sText = sText.Replace("ﾎﾟ", "ポ") End Sub Private Sub 記号を全角に変換(ByRef sText As String) sText = sText.Replace("!", "！") 'ダブルクォーテーションはエディタで自動的に半角になってしまうので、 '以下のように処理する必要がある。 sText = sText.Replace("""", ChrW(&H201D)) sText = sText.Replace("#", "＃") sText = sText.Replace("$", "＄") sText = sText.Replace("%", "％") sText = sText.Replace("&", "＆") sText = sText.Replace("'", "＇") sText = sText.Replace("(", "（") sText = sText.Replace(")", "）") sText = sText.Replace("*", "＊") sText = sText.Replace("+", "＋") sText = sText.Replace(",", "，") sText = sText.Replace("-", "－") sText = sText.Replace(".", "．") sText = sText.Replace("/", "／") sText = sText.Replace(":", "：") sText = sText.Replace(";", "；") sText = sText.Replace("<", "＜") sText = sText.Replace("=", "＝") sText = sText.Replace(">", "＞") sText = sText.Replace("?", "？") sText = sText.Replace("@", "＠") sText = sText.Replace("[", "［") sText = sText.Replace("＼", "＼") sText = sText.Replace("]", "］") sText = sText.Replace("^", "＾") sText = sText.Replace("_", "＿") sText = sText.Replace("`", "｀") sText = sText.Replace("{", "｛") sText = sText.Replace("|", "｜") sText = sText.Replace("}", "｝") sText = sText.Replace("~", "～") sText = sText.Replace(" ", " ") sText = sText.Replace("､", "、") sText = sText.Replace("｡", "。") sText = sText.Replace("･", "・") sText = sText.Replace("｢", "「") sText = sText.Replace("｣", "」") End Sub |
全角を半角に変換するコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 |
Private Sub btn半角に変換_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn半角に変換.Click Dim sText As String sText = RichTextBox1.Text 数字を半角に変換(sText) 英字を半角に変換(sText) 濁点なしカナを半角に変換(sText) 濁点ありカナを半角に変換(sText) 記号を半角に変換(sText) RichTextBox2.Text = sText End Sub Private Sub 数字を半角に変換(ByRef sText As String) sText = sText.Replace("０", "0") sText = sText.Replace("１", "1") sText = sText.Replace("２", "2") sText = sText.Replace("３", "3") sText = sText.Replace("４", "4") sText = sText.Replace("５", "5") sText = sText.Replace("６", "6") sText = sText.Replace("７", "7") sText = sText.Replace("８", "8") sText = sText.Replace("９", "9") End Sub Private Sub 英字を半角に変換(ByRef sText As String) sText = sText.Replace("Ａ", "A") sText = sText.Replace("Ｂ", "B") sText = sText.Replace("Ｃ", "C") sText = sText.Replace("Ｄ", "D") sText = sText.Replace("Ｅ", "E") sText = sText.Replace("Ｆ", "F") sText = sText.Replace("Ｇ", "G") sText = sText.Replace("Ｈ", "H") sText = sText.Replace("Ｉ", "I") sText = sText.Replace("Ｊ", "J") sText = sText.Replace("Ｋ", "K") sText = sText.Replace("Ｌ", "L") sText = sText.Replace("Ｍ", "M") sText = sText.Replace("Ｎ", "N") sText = sText.Replace("Ｏ", "O") sText = sText.Replace("Ｐ", "P") sText = sText.Replace("Ｑ", "Q") sText = sText.Replace("Ｒ", "R") sText = sText.Replace("Ｓ", "S") sText = sText.Replace("Ｔ", "T") sText = sText.Replace("Ｕ", "U") sText = sText.Replace("Ｖ", "V") sText = sText.Replace("Ｗ", "W") sText = sText.Replace("Ｘ", "X") sText = sText.Replace("Ｙ", "Y") sText = sText.Replace("Ｚ", "Z") sText = sText.Replace("ａ", "a") sText = sText.Replace("ｂ", "b") sText = sText.Replace("ｃ", "c") sText = sText.Replace("ｄ", "d") sText = sText.Replace("ｅ", "e") sText = sText.Replace("ｆ", "f") sText = sText.Replace("ｇ", "g") sText = sText.Replace("ｈ", "h") sText = sText.Replace("ｉ", "i") sText = sText.Replace("ｊ", "j") sText = sText.Replace("ｋ", "k") sText = sText.Replace("ｌ", "l") sText = sText.Replace("ｍ", "m") sText = sText.Replace("ｎ", "n") sText = sText.Replace("ｏ", "o") sText = sText.Replace("ｐ", "p") sText = sText.Replace("ｑ", "q") sText = sText.Replace("ｒ", "r") sText = sText.Replace("ｓ", "s") sText = sText.Replace("ｔ", "t") sText = sText.Replace("ｕ", "u") sText = sText.Replace("ｖ", "v") sText = sText.Replace("ｗ", "w") sText = sText.Replace("ｘ", "x") sText = sText.Replace("ｙ", "y") sText = sText.Replace("ｚ", "z") sText = sText.Replace(" ", "") End Sub Private Sub 濁点なしカナを半角に変換(ByRef sText As String) sText = sText.Replace("ア", "ｱ") sText = sText.Replace("イ", "ｲ") sText = sText.Replace("ウ", "ｳ") sText = sText.Replace("エ", "ｴ") sText = sText.Replace("オ", "ｵ") sText = sText.Replace("カ", "ｶ") sText = sText.Replace("キ", "ｷ") sText = sText.Replace("ク", "ｸ") sText = sText.Replace("ケ", "ｹ") sText = sText.Replace("コ", "ｺ") sText = sText.Replace("サ", "ｻ") sText = sText.Replace("シ", "ｼ") sText = sText.Replace("ス", "ｽ") sText = sText.Replace("セ", "ｾ") sText = sText.Replace("ソ", "ｿ") sText = sText.Replace("タ", "ﾀ") sText = sText.Replace("チ", "ﾁ") sText = sText.Replace("ツ", "ﾂ") sText = sText.Replace("テ", "ﾃ") sText = sText.Replace("ト", "ﾄ") sText = sText.Replace("ナ", "ﾅ") sText = sText.Replace("ニ", "ﾆ") sText = sText.Replace("ヌ", "ﾇ") sText = sText.Replace("ネ", "ﾈ") sText = sText.Replace("ノ", "ﾉ") sText = sText.Replace("ハ", "ﾊ") sText = sText.Replace("ヒ", "ﾋ") sText = sText.Replace("フ", "ﾌ") sText = sText.Replace("ヘ", "ﾍ") sText = sText.Replace("ホ", "ﾎ") sText = sText.Replace("マ", "ﾏ") sText = sText.Replace("ミ", "ﾐ") sText = sText.Replace("ム", "ﾑ") sText = sText.Replace("メ", "ﾒ") sText = sText.Replace("モ", "ﾓ") sText = sText.Replace("ヤ", "ﾔ") sText = sText.Replace("ユ", "ﾕ") sText = sText.Replace("ヨ", "ﾖ") sText = sText.Replace("ラ", "ﾗ") sText = sText.Replace("リ", "ﾘ") sText = sText.Replace("ル", "ﾙ") sText = sText.Replace("レ", "ﾚ") sText = sText.Replace("ロ", "ﾛ") sText = sText.Replace("ワ", "ﾜ") sText = sText.Replace("ヲ", "ｦ") sText = sText.Replace("ン", "ﾝ") sText = sText.Replace("ァ", "ｧ") sText = sText.Replace("ィ", "ｨ") sText = sText.Replace("ゥ", "ｩ") sText = sText.Replace("ェ", "ｪ") sText = sText.Replace("ォ", "ｫ") sText = sText.Replace("ャ", "ｬ") sText = sText.Replace("ュ", "ｭ") sText = sText.Replace("ョ", "ｮ") sText = sText.Replace("ッ", "ｯ") sText = sText.Replace("ー", "ｰ") End Sub Private Sub 濁点ありカナを半角に変換(ByRef sText As String) sText = sText.Replace("ヴ", "ｳﾞ") sText = sText.Replace("ガ", "ｶﾞ") sText = sText.Replace("ギ", "ｷﾞ") sText = sText.Replace("グ", "ｸﾞ") sText = sText.Replace("ゲ", "ｹﾞ") sText = sText.Replace("ゴ", "ｺﾞ") sText = sText.Replace("ザ", "ｻﾞ") sText = sText.Replace("ジ", "ｼﾞ") sText = sText.Replace("ズ", "ｽﾞ") sText = sText.Replace("ゼ", "ｾﾞ") sText = sText.Replace("ゾ", "ｿﾞ") sText = sText.Replace("ダ", "ﾀﾞ") sText = sText.Replace("ヂ", "ﾁﾞ") sText = sText.Replace("ヅ", "ﾂﾞ") sText = sText.Replace("デ", "ﾃﾞ") sText = sText.Replace("ド", "ﾄﾞ") sText = sText.Replace("バ", "ﾊﾞ") sText = sText.Replace("ビ", "ﾋﾞ") sText = sText.Replace("ブ", "ﾌﾞ") sText = sText.Replace("ベ", "ﾍﾞ") sText = sText.Replace("ボ", "ﾎﾞ") sText = sText.Replace("パ", "ﾊﾟ") sText = sText.Replace("ピ", "ﾋﾟ") sText = sText.Replace("プ", "ﾌﾟ") sText = sText.Replace("ペ", "ﾍﾟ") sText = sText.Replace("ポ", "ﾎﾟ") End Sub Private Sub 記号を半角に変換(ByRef sText As String) sText = sText.Replace("！", "!") 'ダブルクォーテーションはエディタで自動的に半角になってしまうので、 '以下のように処理する必要がある。 sText = sText.Replace(ChrW(&H201D), """") sText = sText.Replace("＃", "#") sText = sText.Replace("＄", "$") sText = sText.Replace("％", "%") sText = sText.Replace("＆", "&") sText = sText.Replace("＇", "'") sText = sText.Replace("（", "(") sText = sText.Replace("）", ")") sText = sText.Replace("＊", "*") sText = sText.Replace("＋", "+") sText = sText.Replace("，", ",") sText = sText.Replace("－", "-") sText = sText.Replace("．", ".") sText = sText.Replace("／", "/") sText = sText.Replace("：", ":") sText = sText.Replace("；", ";") sText = sText.Replace("＜", "<") sText = sText.Replace("＝", "=") sText = sText.Replace("＞", ">") sText = sText.Replace("？", "?") sText = sText.Replace("＠", "@") sText = sText.Replace("［", "[") sText = sText.Replace("＼", "＼") sText = sText.Replace("］", "]") sText = sText.Replace("＾", "^") sText = sText.Replace("＿", "_") sText = sText.Replace("｀", "`") sText = sText.Replace("｛", "{") sText = sText.Replace("｜", "|") sText = sText.Replace("｝", "}") sText = sText.Replace("～", "~") sText = sText.Replace(" ", " ") sText = sText.Replace("、", "､") sText = sText.Replace("。", "｡") sText = sText.Replace("・", "･") sText = sText.Replace("「", "｢") sText = sText.Replace("」", "｣") End Sub |