VBA 複数の文字のコードを一気に返すには

質問

Sub test1()
Dim myStr As String
myStr = "abc"

Debug.Print Asc("a")
Debug.Print Asc(myStr)

End Sub

このコードは、どちらも97が返るのですが、
myStrは3文字です。

3文字全ての文字コードを返すには、

Sub test2()
Dim myStr As String
myStr = "abc"

Debug.Print Asc(Mid(myStr, 1, 1)) & Asc(Mid(myStr, 2, 1)) & Asc(Mid(myStr, 3, 1))

End Sub

のようにするしかないのでしょうか？

回答No.1

kkkkkm · ベストアンサー

以下のような感じでもいいと思います。

Sub Example()
Dim myStr As String, StrAsc As String
Dim i As Integer

myStr = "abcdefg"
For i = 1 To Len(myStr)
StrAsc = StrAsc & ":" & Asc(Mid(myStr, i, 1))
Next i
Debug.Print StrAsc
End Sub

お礼

ありがとうございました。

回答No.3

imogasi

ＡＳＣ関数は（指定した）文字列の、最初の文字のアスキーコードを返す関数ですから、３文字分のアスキーコードを作りたいなら３文字分のそれぞれについて、計３回の繰り返しをするほかない。それにはＭＩＤ関数、ＬＥＮ関数の助けも要ります。１６進数で表示したい場合もあるが、同じように、ＶＢＡコードのミクロではそうなる。関数化して、複数文字の文字列を指定して、１６進のコードを変えさせる方法があるが、質問者が聞きたいのはそれではないだろう。
ーー
突き詰めて言えば、言語レベルでそれ（複数の文字列の文字コード化の関数）が仮に設けられていても、その関数の内実では、機械語レベルでは、繰り返しが行われているはず。言語にとっては、Ｃ言語のような文字列の扱いのような言語もある。ここにその根底が垣間見える。
ーー
参考　本質問直接関係ないが。
Ｇｏｏｇｌｅで「C言語　文字列の扱い」で照会。
http://www.isl.ne.jp/pcsp/beginC/C_Language_11.html
ーー
ですから、自分でバイト数だけ繰り返すか、１発でできるように「見せかける」ところの、ユーザー定義関数を自分で作るしかない。
ーー
ケメニーのｂａｓｉｃの基本草創時代（１９６４年から２０年ぐらい）ではＡＳＣ関数もなかったように思う（不確か）。
ＭＳ社がＢａｓｉｃに加わる時代になって、ビジネスでは必須の、文字列関係の関数も増えたように思う。Ｍｉｄ関数、ＬＥＮ関数など。
http://gigazine.net/news/20140501-fifty-years-of-basic/

お礼

ありがとうございました。

回答No.2

dogs_cats

NO1の方のコードのDebug.Print Mid(StrAsc, 2)とすると：一番最初の区切り文字が無い状態で表示されます。
ご参考まで。

Sub Example1()
Dim myStr As String, StrAsc As String
Dim i As Integer

myStr = "abcdefg"
For i = 1 To Len(myStr)
StrAsc = StrAsc & ":" & Asc(Mid(myStr, i, 1))
Next i
Debug.Print Mid(StrAsc, 2)
End Sub

お礼

ありがとうございました。