11/06/05 17:31:21.90 QXzudF7U0
>>776のコード
代入方法はどれでも一緒。
// サンプルデータの準備
//dat = CopyB("", 0, 0) // dat = "" との違いが見られない
//dat = ""
//dat = chr(0)
dat = CopyB(chr(0), 1, 1)
for i = 1 to $ff
dat = dat + chr(i)
next
for i = 0 to 16 - 1
str = ""
for j = 0 to 16 - 1
// str = str + format( ABS(ascB(CopyB(dat, i*16+j+1, 1))), 3, -1) // ↓でも同じ
str = str + format( VarType(ascB(CopyB(dat, i*16+j+1, 1)), VAR_INTEGER), 3, -1)
next
print str
next
ifb ascB(chr(0)) = 0
print "ascB(chr(0)) = 0" // 一致する
else
print "ascB(chr(0)) <> 0"
endif
ifb ascB(chr($81)) = $81
print "ascB(chr($81)) = $81"
else
print "ascB(chr($81)) <> $81" // 一致しない
endif
sleep(10)