/* * ２.キャラクタコード？って何？ */ 会話の中で、２０（ニイマル）だったら？ とか、聞いたことありませんか？ Ｎｕｌｌだったらは、よく聞くけど、２０（ニイマル）は、聞かないなぁ そうですか。 キャラクタコード or アスキーコードって聞いた事ありますか？ ＪＩＳコードとかじゃなくて？あっ、ユニコード？ＥＵＣコード？ 難しい話に、持っていかないで下さい。 えっとですね。 キャラクタコード or アスキーコード まぁ、反論はかくごして、 半角文字の文字コードって言っていいのかな。 スペースが１６進で２０ １ が １６進で３１ Ａ が １６進で４１ ア が １６進でＢ１ と、１文字１文字、コードが決まってます。 だから、なに？ 通常の計算は、 100-50とか、数値ですよね まぁ、そうですね。 じゃ、文字Ｂ−文字Ａは（’Ｂ’−’Ａ’） そんなのできないよ。 言い方、悪かったです。 Ｂの文字コード − Ａの文字コードは？ １？ あまり、なっとくいかないけど。 はい、正解です。 では、Ａの文字コード１６進で４１＋３は？ なめんなよ、１６進で４４でしょ。 キャラクタコード表で１６進数の４４は？ キャラクタコード表って、どこにあるんだよ。 オレ持ってないよ。 う〜ん、どこにあるかなぁ？ まぁ、いいや、１６進４４に対応する文字は、"Ｄ"です。 こんな会話やってても、意味ないので、 Ａｃｃｅｓｓ ＶＢＡでサンプル作ります。 /* * ３．ＶＢＡだと？ */ 例題として、 InputBoxから文字列を受け取ります その中のA〜Zをa〜zに変換して、 msgboxで表示します。 ---- Private Sub B0_AZtoaz_Click() Dim strMOTO As String Dim strSAKI As String Dim strCHK As String Dim nCNT As Integer Dim nSA As Integer 'ここで、文字を入れる、、 strMOTO = InputBox("好きな文字列を入れてください") '入力文字数のチェック If Len(strMOTO) = 0 Then MsgBox "０文字だとテストになりませんよ、、、" Exit Sub End If '初期化です strSAKI = "" '入力された文字数分、１文字毎に処理する For nCNT = 1 To Len(strMOTO) strCHK = Mid(strMOTO, nCNT, 1) '一文字取り出す 'A-Z判断 If Asc("A") <= Asc(strCHK) And Asc(strCHK) <= Asc("Z") Then nSA = Asc(strCHK) - Asc("A") 'Ａからどれだけ離れているか？ strCHK = Chr(Asc("a") + nSA) 'ａに求めた差を＋する。ａから移動 End If '結果の文字を＆でプラスする strSAKI = strSAKI & strCHK Next nCNT '結果の表示 MsgBox strMOTO & vbCrLf & "から" & vbCrLf & strSAKI End Sub ---- なんか、サンプルにキレがないなぁ、、、 何か質問は？ いいですか、 'ここで、文字を入れる、、 strMOTO = InputBox("好きな文字列を入れてください") ってなんですか？ あまり、使わないのですが、 InputBoxを使用すると、入力用のウインドウが出て、 入力された結果を返してくれます。 ここでは、任意の文字を入れさせたかったので、 使用しています。 Accessだとフォームのme!DATA とかでもＯＫです。 素朴な質問なんですが、 Len(strMOTO) , Mid(strMOTO, nCNT, 1) , Asc("A") ってなんですか？Chrって？ えっとですね、 len() --> 文字数を返してくれます mid() --> mid("ABCDEFG", 2 , 3) --> ２文字目から三文字分文字を抜き出します asc() --> アスキーコードを返します chr() --> chr(&h41) --> 指定したコードの文字を返します 詳しくは、ヘルプを見るか、サンプルをいろいろ見て、なれてください。 単体は、いいから、詳しく、意味を教えてくださいよ。 '入力文字数のチェック If Len(strMOTO) = 0 Then MsgBox "０文字だとテストになりませんよ、、、" Exit Sub End If これは、inputboxで何も入力しない場合を考えて、 受け取った、文字数を調べています。 ０文字の場合、メッセージを出して、終了してます。 'A-Z判断 If Asc("A") <= Asc(strCHK) And Asc(strCHK) <= Asc("Z") Then nSA = Asc(strCHK) - Asc("A") 'Ａからどれだけ離れているか？ strCHK = Chr(Asc("a") + nSA) 'ａに求めた差を＋する。ａから移動 End If なんか、ごちゃごちゃ、してますね。 えっと、Ｉｆで、コードＡより大きくコードＺより小さいか聞いて、 その後、−”Ａ”をして差を求めて、”ａ”を＋してる？ ＊Ｄの時、"D"-"A" が３、、で、"a"+3、３文字分で"d"になる？ なんか、よくわからないや、、 あと、 '結果の表示 MsgBox strMOTO & vbCrLf & "から" & vbCrLf & strSAKI の中の、vbCrLfってなに？ 結果を改行させたいので、使ってます。 試しに MsgBox "A" & vbCrLf & "B" とやってみてください。 １つ言っていい どうぞ。 strconv("ABCDEFG", vbLowerCase) でできるんじゃない。。。 そうだけど、説明したかったの、、、 strMOTO = InputBox("好きな文字列を入れてください") MsgBox strMOTO & vbCrLf & "から" & vbCrLf & strconv(strMOTO, vbLowerCase) じゃ、コードの説明にならないでしょ、、、 /* * ４.おわりの挨拶 */ strconv("ABCDEFG", vbLowerCase) の内部の動きとは、違うと思いますが、 １つの関数でできてることが、 実際は、いろいろな組み合わせで 動いているんだなぁ、、、ていどに思っていただければ、、、 今回の講座は、成功かなぁ？ なかなか、説明、難しい、、と思いつつ、今回も軽めにサヨナラです。