Last updated on

VB.netでStrConvを使わずに全角半角変換を行うツールを作りました。

VB.netのStrConv関数は、一部の環境で正常に動作しない場合があります。
例えば、Windows7で互換モードでアプリケーションを動作させた場合に不具合が生じます。

半角、全角の文字を一文字ずつ変換するコードを書きました。
最初は、コツコツ書いていたのですが、
途中から面倒になって、StrConv関数を使って、
ソースコードをプログラムで書きました。
一応、その時に使ったコードも載せておきます。

RichTextBox1.Textに文字一覧を入力しておくと、
全角変換用と、半角変換用のコードを生成します。

        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半角へ

半角から全角に文字列を変換する際、 濁点ありのカタカナを濁点なしのカタカナより先に変換する必要があります。

そうしないと、例えば、「ﾊﾟｲﾅｯﾌﾟﾙ」を変換した場合、
「ハﾟイナッフﾟル」となってしまいます。
正しくは、「パイナップル」です。

「ハﾟイナッフﾟル」（半角の「゜」になってしまっている。）
「パイナップル」（正しい。）

半角を全角に変換するコード

    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

全角を半角に変換するコード

    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