３．半角カタカナだけを全角カタカナに変換

１．半角カタカナだけを全角カタカナに変換(ゆう(U)さん投稿分) ２． ３．　 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定： 使用 API：なし その他　： 　　　　：

１．半角カタカナだけを全角カタカナに変換(ゆう(U)さん投稿分)

Option Explicit　　 'SampleNo=049　 2002.05.12 　　'================================================= 　　'半角カナだけを全角カナ変換する関数 fKanaHan2Zen 　　'================================================= 　　' result = fKanaHan2Zen(myString) 　　' 引数　myString :変換元の文字列 　　' 戻値　result　 :変換後の文字列　　　 ゆう(U)さん投稿分 　　'------------------------------------------------- Private Function fKanaHan2Zen(ByRef myString As String) As String 　　Dim i　　　 As Long 　　Dim strTemp As String 　　Dim strKana As String 　　Dim chrKana As String 　　For i = 1& To Len(myString) 　　　　chrKana = Mid$(myString, i, 1&) 　　　　Select Case Asc(chrKana) 　　　　　　Case 166 To 223 　　　　　　　　'半角が続いたら文字をつなぐ 　　　　　　　　strKana = strKana & chrKana 　　　　　　Case Else 　　　　　　'全角文字になったら半角の未処理文字を全部全角 　　　　　　'に変換これにより濁点処理等が不要 　　　　　　　　If Len(strKana) > 0& Then 　　　　　　　　　　strTemp = strTemp & StrConv(strKana, vbWide) 　　　　　　　　　　strKana = vbNullString 　　　　　　　　End If 　　　　　　　　strTemp = strTemp & chrKana 　　　　End Select 　　Next i 　　'最後の文字が半角の場合の処理 　　If Len(strKana) > 0& Then 　　　　strTemp = strTemp & StrConv(strKana, vbWide) 　　End If 　　fKanaHan2Zen = strTemp End Function '文字列 "abc123アイウエオ" のカタカナ半角だけを全角に変換します。 Private Sub Command2_Click() 　　Label1.Caption = fKanaHan2Zen("abc123アイウエオガギパ") End Sub

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)