たいへん日記

Option Compare Database
Function myHenkan(strData As String)
Dim i As Long, strTemp As String, OneString, TwoString
For i = 1 To Len(strData)
    OneString = Mid(strData, i, 1)
    If StrComp(OneString, "ｱ", 0) = 0 Then
        OneString = "ア"
    ElseIf StrComp(OneString, "ｲ", 0) = 0 Then
        OneString = "イ"
    ElseIf StrComp(OneString, "ｳ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ｳﾞ" Then
                OneString = "ヴ"
                i = i + 1
            Else
                OneString = "ウ"
            End If
    ElseIf StrComp(OneString, "ｴ", 0) = 0 Then
        OneString = "エ"
    ElseIf StrComp(OneString, "ｵ", 0) = 0 Then
        OneString = "オ"
    ElseIf StrComp(OneString, "ｶ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ｶﾞ" Then
                OneString = "ガ"
                i = i + 1
            Else
                OneString = "カ"
            End If
    ElseIf StrComp(OneString, "ｷ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ｷﾞ" Then
                OneString = "ギ"
                i = i + 1
            Else
                OneString = "キ"
            End If
    ElseIf StrComp(OneString, "ｸ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ｸﾞ" Then
                OneString = "グ"
                i = i + 1
            Else
                OneString = "ク"
            End If
    ElseIf StrComp(OneString, "ｹ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ｹﾞ" Then
                OneString = "ゲ"
                i = i + 1
            Else
                OneString = "ケ"
            End If
    ElseIf StrComp(OneString, "ｺ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ｺﾞ" Then
                OneString = "ゴ"
                i = i + 1
            Else
                OneString = "コ"
            End If
    ElseIf StrComp(OneString, "ｻ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ｻﾞ" Then
                OneString = "ザ"
                i = i + 1
            Else
                OneString = "サ"
            End If
    ElseIf StrComp(OneString, "ｼ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ｼﾞ" Then
                OneString = "ジ"
                i = i + 1
            Else
                OneString = "シ"
            End If
    ElseIf StrComp(OneString, "ｽ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ｽﾞ" Then
                OneString = "ズ"
                i = i + 1
            Else
                OneString = "ス"
            End If
    ElseIf StrComp(OneString, "ｾ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ｾﾞ" Then
                OneString = "ゼ"
                i = i + 1
            Else
                OneString = "セ"
            End If
    ElseIf StrComp(OneString, "ｿ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ｿﾞ" Then
                OneString = "ゾ"
                i = i + 1
            Else
                OneString = "ソ"
            End If
    ElseIf StrComp(OneString, "ﾀ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ﾀﾞ" Then
                OneString = "ダ"
                i = i + 1
            Else
                OneString = "タ"
            End If
    ElseIf StrComp(OneString, "ﾁ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ﾁﾞ" Then
                OneString = "ヂ"
                i = i + 1
            Else
                OneString = "チ"
            End If
    ElseIf StrComp(OneString, "ﾂ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ﾂﾞ" Then
                OneString = "ヅ"
                i = i + 1
            Else
                OneString = "ツ"
            End If
    ElseIf StrComp(OneString, "ﾃ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ﾃﾞ" Then
                OneString = "デ"
                i = i + 1
            Else
                OneString = "テ"
            End If
    ElseIf StrComp(OneString, "ﾄ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ﾄﾞ" Then
                OneString = "ド"
                i = i + 1
            Else
                OneString = "ト"
            End If
    ElseIf StrComp(OneString, "ﾅ", 0) = 0 Then
        OneString = "ナ"
    ElseIf StrComp(OneString, "ﾆ", 0) = 0 Then
        OneString = "ニ"
    ElseIf StrComp(OneString, "ﾇ", 0) = 0 Then
        OneString = "ヌ"
    ElseIf StrComp(OneString, "ﾈ", 0) = 0 Then
        OneString = "ネ"
    ElseIf StrComp(OneString, "ﾉ", 0) = 0 Then
        OneString = "ノ"
    ElseIf StrComp(OneString, "ﾊ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ﾊﾟ" Then
                OneString = "パ"
                i = i + 1
            ElseIf TwoString = "ﾊﾞ" Then
                OneString = "バ"
                i = i + 1
            Else
                OneString = "ハ"
            End If
    ElseIf StrComp(OneString, "ﾋ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ﾋﾟ" Then
                OneString = "ピ"
                i = i + 1
            ElseIf TwoString = "ﾋﾞ" Then
                OneString = "ビ"
                i = i + 1
            Else
                OneString = "ヒ"
            End If
    ElseIf StrComp(OneString, "ﾌ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ﾌﾟ" Then
                OneString = "プ"
                i = i + 1
            ElseIf TwoString = "ﾌﾞ" Then
                OneString = "ブ"
                i = i + 1
            Else
                OneString = "フ"
            End If
    ElseIf StrComp(OneString, "ﾍ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ﾍﾟ" Then
                OneString = "ペ"
                i = i + 1
            ElseIf TwoString = "ﾍﾞ" Then
                OneString = "ベ"
                i = i + 1
            Else
                OneString = "ヘ"
            End If
    ElseIf StrComp(OneString, "ﾎ", 0) = 0 Then
        TwoString = Mid(strData, i, 2)
            If TwoString = "ﾎﾟ" Then
                OneString = "ポ"
                i = i + 1
            ElseIf TwoString = "ﾎﾞ" Then
                OneString = "ボ"
                i = i + 1
            Else
                OneString = "ホ"
            End If
    ElseIf StrComp(OneString, "ﾏ", 0) = 0 Then
        OneString = "マ"
    ElseIf StrComp(OneString, "ﾐ", 0) = 0 Then
        OneString = "ミ"
    ElseIf StrComp(OneString, "ﾑ", 0) = 0 Then
        OneString = "ム"
    ElseIf StrComp(OneString, "ﾒ", 0) = 0 Then
        OneString = "メ"
    ElseIf StrComp(OneString, "ﾓ", 0) = 0 Then
        OneString = "モ"
    ElseIf StrComp(OneString, "ﾔ", 0) = 0 Then
        OneString = "ヤ"
    ElseIf StrComp(OneString, "ﾕ", 0) = 0 Then
        OneString = "ユ"
    ElseIf StrComp(OneString, "ﾖ", 0) = 0 Then
        OneString = "ヨ"
    ElseIf StrComp(OneString, "ﾗ", 0) = 0 Then
        OneString = "ラ"
    ElseIf StrComp(OneString, "ﾘ", 0) = 0 Then
        OneString = "リ"
    ElseIf StrComp(OneString, "ﾙ", 0) = 0 Then
        OneString = "ル"
    ElseIf StrComp(OneString, "ﾚ", 0) = 0 Then
        OneString = "レ"
    ElseIf StrComp(OneString, "ﾛ", 0) = 0 Then
        OneString = "ロ"
    ElseIf StrComp(OneString, "ﾜ", 0) = 0 Then
        OneString = "ワ"
    ElseIf StrComp(OneString, "ｦ", 0) = 0 Then
        OneString = "ヲ"
    ElseIf StrComp(OneString, "ﾝ", 0) = 0 Then
        OneString = "ン"
    ElseIf StrComp(OneString, "ｧ", 0) = 0 Then
        OneString = "ァ"
    ElseIf StrComp(OneString, "ｨ", 0) = 0 Then
        OneString = "ィ"
    ElseIf StrComp(OneString, "ｩ", 0) = 0 Then
        OneString = "ゥ"
    ElseIf StrComp(OneString, "ｪ", 0) = 0 Then
        OneString = "ェ"
    ElseIf StrComp(OneString, "ｫ", 0) = 0 Then
        OneString = "ォ"
    ElseIf StrComp(OneString, "ｯ", 0) = 0 Then
        OneString = "ッ"
    ElseIf StrComp(OneString, "ｬ", 0) = 0 Then
        OneString = "ャ"
    ElseIf StrComp(OneString, "ｭ", 0) = 0 Then
        OneString = "ュ"
    ElseIf StrComp(OneString, "ｮ", 0) = 0 Then
        OneString = "ョ"
    ElseIf StrComp(OneString, "｢", 0) = 0 Then
        OneString = "「"
    ElseIf StrComp(OneString, "｣", 0) = 0 Then
        OneString = "」"
    ElseIf StrComp(OneString, "｡", 0) = 0 Then
        OneString = "。"
    ElseIf StrComp(OneString, "､", 0) = 0 Then
        OneString = "、"
    ElseIf StrComp(OneString, "ｰ", 0) = 0 Then
        OneString = "ー"
    ElseIf StrComp(OneString, "･", 0) = 0 Then
        OneString = "・"
    Else
        OneString = OneString
    End If
    strTemp = strTemp & OneString
Next i
myHenkan = strTemp
End Function