- 706 名前：デフォルトの名無しさん mailto:sage [2016/09/17(土) 14:28:22.72 ID:ejX8tU80.net]
- >>669
取り敢えず、書き殴るだけでは何なので試してみた
dim as ubyte a(13) = {&h41, &h42, &h43, &h44, &h00, &h45, &h46, &h47, &h00, &h48, &h49, &h4A, &h00, &h00 }
dim as integer size = 14
dim as integer count
dim as zstring ptr st = cast(zstring ptr, @a(0))
while count < size
dim as string tmp = *st
dim as integer length = len(tmp) + 1
count += length
st += length
print count, tmp
wend
�
