[三流君 ] −−＞
[ＶＢＡで楽しく ] −−＞
[バックナンバー一覧 ]StrConv関数のvbNarrow変換に似た処理、全角ＡＢＣを半角ABCへ変換する
発行内容
StrConv関数のvbNarrow変換に似た全角ＡＢＣを半角ABCへ変換する
どうも、三流プログラマーのＫｅｎ３です。
今回は、
StrConv関数のvbNarrow変換に似た処理を作ってみます
/*
* １. 今回のキッカケ
*/ http://h17-may.sazae.jp/Buy-Rakuten/Day09.html
で、書籍の売れ筋ランキングを紹介してます。
※儲かる、儲からないは今回は置いといて(でも自慢するくらい売りたいなぁ〜)
Ｗｉｎｄｏｗｓ Ｓｅｒｖｅｒ ２００３ Ｎｅｔｗｏｒｋ
とか、
タイトルが全角の英数字になってます。
^^^^^^^^^^^^^^^^^^^^
これを半角の
Windows Server 2003 Network
にしたいです。
/*
* ２．関数の仕様
*/ Function 全角ABCtoABC(strMOTO As String) As String
Dim strRET As String
'変換する
'ここの処理をヨロシクデス、
'変換結果を返す
全角ABCtoABC = strRET 'リターン値の代入(変換結果の代入)
End Function
と入出力を書いて、中身の処理をお願いするかな。
/*
* ３．標準関数のStrConv関数を使えよボケ
*/ Sub test()
Dim strWORK As String
strWORK = "Ｗｉｎｄｏｗｓ Ｓｅｒｖｅｒ ２００３ Ｎｅｔｗｏｒｋ"
MsgBox StrConv(strWORK, vbNarrow)
End Sub
----
よし、これでＯＫ。
タバコ休憩しながら携帯のメールでもチェックするかな。今日の遊びの予定は・・・
実行結果↓
/*
* ４．全角のカタカナは変換したくないんですが・・・・
*/ http://www.ken3.org/
↑AB型の変わり者 三流プログラマー Ｋｅｎ３のＨＰ
なんて考えながら席に戻ると先輩からの新着メールが、
----
To:プログラマー君
From:説明ベタSE
StrConv関数で変換するとカタカナまで半角となり、
html上で使用するのでカタカナを抜いて半角としてほしい
Ｗｉｎｄｏｗｓ デバイスドライバ入門
をテストで変換してみました。
Sub test()
Dim strWORK As String
strWORK = "Ｗｉｎｄｏｗｓ デバイスドライバ入門 "
MsgBox StrConv(strWORK, vbNarrow)
End Sub
以上、対応よろしく。
----
実行結果↓
/*
* ５．だったら初めから言えよ オレ様は悪くない
*/ http://www.ken3.org/cgi-bin/test/test052-1.asp?DATA=%82%60%82a%82bABC
1文字目は[Ａ] をAscで変換すると-32160 さらにHexで16進数にすると8260
2文字目は[Ｂ] をAscで変換すると-32159 さらにHexで16進数にすると8261
3文字目は[Ｃ] をAscで変換すると-32158 さらにHexで16進数にすると8262
4文字目は[A] をAscで変換すると65 さらにHexで16進数にすると41
5文字目は[B] をAscで変換すると66 さらにHexで16進数にすると42
6文字目は[C] をAscで変換すると67 さらにHexで16進数にすると43
ａｂｃabcのコードをチェック
http://www.ken3.org/cgi-bin/test/test052-1.asp?DATA=%82%81%82%82%82%83abc
1文字目は[ａ] をAscで変換すると-32127 さらにHexで16進数にすると8281
2文字目は[ｂ] をAscで変換すると-32126 さらにHexで16進数にすると8282
3文字目は[ｃ] をAscで変換すると-32125 さらにHexで16進数にすると8283
4文字目は[a] をAscで変換すると97 さらにHexで16進数にすると61
5文字目は[b] をAscで変換すると98 さらにHexで16進数にすると62
6文字目は[c] をAscで変換すると99 さらにHexで16進数にすると63
０１２012のコードをチェック
http://www.ken3.org/cgi-bin/test/test052-1.asp?DATA=%82O%82P%82Q012
1文字目は[０] をAscで変換すると-32177 さらにHexで16進数にすると824F
2文字目は[１] をAscで変換すると-32176 さらにHexで16進数にすると8250
3文字目は[２] をAscで変換すると-32175 さらにHexで16進数にすると8251
4文字目は[0] をAscで変換すると48 さらにHexで16進数にすると30
5文字目は[1] をAscで変換すると49 さらにHexで16進数にすると31
6文字目は[2] をAscで変換すると50 さらにHexで16進数にすると32
こんな感じで、Aの次はB,0の次は1と文字コードが計算で求められるので、
全角のＡ〜Ｚ,ａ〜ｚ,０〜９の時だけ半角にしますか。
Function 全角ABCto半角ABC(strMOTO As String) As String
Dim strRET As String
Dim strCHK As String
Dim n As Integer
Dim lngCODE As Long
strRET = "" 'リターン値の初期化
'文字数分コードを調べて変換して、strRETに＋する
For n = 1 To Len(strMOTO)
strCHK = Mid(strMOTO, n, 1) 'n番目の文字を取り出す
Select Case Asc(strCHK)
Case Asc("０") To Asc("９") '全角０〜９
strRET = strRET & StrConv(strCHK, vbNarrow) '変換して＋
Case Asc("ａ") To Asc("ｚ") '全角ａ〜ｚ
strRET = strRET & StrConv(strCHK, vbNarrow) '変換して＋
Case Asc("Ａ") To Asc("Ｚ") '全角Ａ〜Ｚ
strRET = strRET & StrConv(strCHK, vbNarrow) '変換して＋
Case Else 'その他
strRET = strRET & strCHK '上記以外はそのまま＋する
End Select
Next n
'変換結果を返す
全角ABCto半角ABC = strRET 'リターン値の代入(変換結果の代入)
End Function
Sub test()
Dim strWORK As String
strWORK = "Ｗｉｎｄｏｗｓ ２００３ デバイスドライバ入門 "
MsgBox 全角ABCto半角ABC(strWORK)
End Sub
こんな感じで、
Ｗｉｎｄｏｗｓ ２００３ デバイスドライバ入門
を
Windows 2003 デバイスドライバ入門
に変換できたよ、文句無いだろこれで。
プログラムのポイント？ 特に無いな・・・あまり考えないでやっつけ仕事です。
Select Case 文字コード
Case Asc("０") To Asc("９") '文字コードが全角０〜９
と判断して、strRET = strRET & StrConv(strCHK, vbNarrow)としただけです。
/*
* ６．ドットやカッコ・・・スラッシュ・ハイフンも・・・
*/ /*
* ７．終わりの挨拶
*/ ページフッター
ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
種類別のリンク や 広告など
Blogとリンク :[三流君の作業日記 ]/
[VBAやASPのサンプルコード ]/
広告-[通販人気商品の足跡 ]
三流君(TOP ken3.org へ戻る) ]
/ [VBA系TOPへ ]
/ [VBA系バックナンバー目次へ移動 ]
↑デバイスドライバが半角カタカナとなってしまった。