|
またまた質問です。
下記のものを使用しています。
先頭の文字を大文字にならないでしょうか?
よろしくお願いします。
かなり長いですが、ご勘弁下さい。 では。
Function kana2roma(ByVal kana As String) As String
Dim i As Integer, retStr As String
Dim ts As Boolean, tmp1 As String, tmp2 As String
Dim Cnv2(1 To 64, 1 To 2) As String, Cnv1(1 To 85, 1 To 2) As String
Cnv2(1, 1) = "きぃ": Cnv2(1, 2) = "kyi"
Cnv2(2, 1) = "きぇ": Cnv2(2, 2) = "kye"
Cnv2(3, 1) = "きゃ": Cnv2(3, 2) = "kya"
Cnv2(4, 1) = "きゅ": Cnv2(4, 2) = "kyu"
Cnv2(5, 1) = "きょ": Cnv2(5, 2) = "kyo"
Cnv2(6, 1) = "ぎぃ": Cnv2(6, 2) = "gyi"
Cnv2(7, 1) = "ぎぇ": Cnv2(7, 2) = "gye"
Cnv2(8, 1) = "ぎゃ": Cnv2(8, 2) = "gya▼koshimizu さん:
>でれすけさん こうさん
>回答ありがとうございます。
>大変迷惑をおかけ致しました。申し訳ありません。
>無事に使用出来る状態になりました。
>ありがとうございます。
>今後ともよろしくお願い致します。
|
|