String型文字列(Unicode)のテスト 2024/07/31 VBA
Begin
Dim Str As String
Dim Str2 As String
Str = "ab１２３"
MsgBox Str
' Unicode文字列が入っていた。１文字が２バイト。
’１文字取り出す
MsgBox Mid(Str, 1, 1) ' "a"
MsgBox Mid(Str, 2, 1) ' "b"
’試しに２文字取り出す
MsgBox Mid(Str, 3, 2) ' "１２"
’１文字取り出す
MsgBox Mid(Str, 4, 1) ' "２"
MsgBox Mid(Str, 5, 1) ' "３"
'１文字目 "a"
MsgBox Asc( Mid(Str, 1, 1) ) ' 97
MsgBox "&H" & Hex(Asc( Mid(Str, 1, 1) ) ) ' &H61
MsgBox AscW( Mid(Str, 1, 1) ) ' 97
MsgBox "&H" & Hex(AscW( Mid(Str, 1, 1) ) ) ' &H61
'２文字目 "b"
MsgBox Asc(Mid(Str, 2, 1)) ' 98
MsgBox "&H" & Hex(Asc(Mid(Str, 2, 1))) ' &H62
MsgBox AscW(Mid(Str, 2, 1)) ' 98
MsgBox "&H" & Hex(AscW(Mid(Str, 2, 1))) ' &H62
'３文字目 「１」
MsgBox Asc( Mid(Str, 3, 1) ) ' -32176
MsgBox "&H" & Hex(Asc( Mid(Str, 3, 1) ) ) ' &H1
MsgBox AscW( Mid(Str, 3, 1) ) ' -239
MsgBox "&H" & Hex(Ascw( Mid(Str, 3, 1) ) ) ' &HFF11
' 「１」のUTF16コードは 0xFF11(Hex)
'４文字目 「２」
MsgBox AscW( Mid(Str, 4, 1) ) ' -238
MsgBox "&H" & Hex(Ascw( Mid(Str, 4, 1) ) ) ' &HFF12
' 「２」のUTF16コードは 0xFF12(Hex)
'５文字目 「３」
MsgBox AscW( Mid(Str, 5, 1) ) ' -237
MsgBox "&H" & Hex(Ascw( Mid(Str, 5, 1) ) ) ' &FF13
' 「３」のUTF16コードは 0xFF13(Hex)
’２バイト取り出す
MsgBox MidB(Str, 1, 2) ' "a"
MsgBox MidB(Str, 3, 2) ' "b"
MsgBox MidB(Str, 5, 2) ' "１"
MsgBox MidB(Str, 7, 2) ' "２"
MsgBox MidB(Str, 9, 2) ' "３"
'１文字目 "a"
MsgBox AscW( MidB(Str, 1, 2) ) ' 97
MsgBox "&H" & Hex(AscW( MidB(Str, 1, 2) ) ) ' &H61
'２文字目 "b"
MsgBox AscW( MidB(Str, 3, 2) ) ' 98
MsgBox "&H" & Hex(AscW( MidB(Str, 3, 2) ) ) ' &H62
'３文字目 「１」
MsgBox AscW( MidB(Str, 5, 2) ) ' -239
MsgBox "&H" & Hex(AscW( MidB(Str, 5, 2) ) ) ' &HFF11
'４文字目 「２」
MsgBox AscW( MidB(Str, 7, 2) ) ' -238
MsgBox "&H" & Hex(AscW( MidB(Str, 7, 2) ) ) ' &HFF12
'５文字目 「３」
MsgBox AscW( MidB(Str, 9, 2) ) ' -237
MsgBox "&H" & Hex(AscW( MidB(Str, 9, 2) ) ) ' &HFF13
End
#テキストエディター
#エディター
冷やかしの「いいね」は断ります！