ASCIIコードについて

質問

VB6の質問です。
↓例で、Record変数にASCIIコードを含んだ文字列が入ります。
Select文で各条件で、処理をしたいのですがASCIIコードの定義がわかりません。
ご教授していただないでしょか?

Dim Record As String

Private Sub test()
・
・
Record = (STX)1234(ACK)5678(EOT)　
・
End Sub

Select Record
Case "(STX)" ← 'Case 02H??
・
Case "(ACK)" ← 'Case 06H??　
・
Case "(EOT)" ← 'Case 03H??
・
Case Else
End Select

回答No.1

chie65536（@chie65535） · ベストアンサー

Record文字列の指定した文字位置からの文字１文字をMid関数で取り出し、それをAsc関数に指定すれば、指定した位置の文字コードが数値で取得できる。

Select Asc(Mid(Record,文字位置,1))
Case &H0 'NUL
・
Case &H1 'SOH
・
Case &H2 'STX
・
Case &H3 'ETX
・
Case &H4 'EOT
・
Case &H5 'ENQ
・
Case &H6 'ACK
・
Case &H7 'BEL
・
Case &H8 'BS
・
Case &H9 'HT/TAB
・
Case &HA 'LF/NL
・
Case &HB 'VT
・
Case &HC 'NP
・
Case &HD 'CR
・
Case &HE 'SO
・
Case &HF 'SI
・
Case &H10 'DLE
・
Case &H11 'DC1
・
Case &H12 'DC2
・
Case &H13 'DC3
・
Case &H14 'DC4
・
Case &H15 'NAK
・
Case &H16 'SYN
・
Case &H17 'ETB
・
Case &H18 'CAN
・
Case &H19 'EM
・
Case &H1A 'SUB
・
Case &H1B 'ESC
・
Case &H1C 'FS
・
Case &H1D 'GS
・
Case &H1E 'RS
・
Case &H1F 'US
・
Case Else
・
End Select

で良い。

文字位置を１から文字の長さまでループさせれば、すべての文字を処理できるでしょう。

因みに、EOTは&H3ではなく&H4ですよ。

お礼

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