🚀 go-pugleaf

$B#I#T#T#C(B <other@ittc.co.jp> wrote in article
<61fmsa$pr3@news1.sphere.ad.jp>...

>  
$B%P%$%H%G!<%?$r7k9g$7!"#S#t#r#i#n#g$K$7$?$$$N$G$9$,!"#A#s#c#i#i%3!<%I$KL5$$(B
> $B$b$N$K4X$7$FJ8;z2=$1$7$F$7$^$$$^$9!#(B
> 
>   $BNc(B
>     Dim strByte(5) As Byte
> 
>     Open filename For Bynary As #1
>     Get #1,,strByte
> 
>     $B$3$N(B
strByte(0)-(4)$B$rAH$_9g$o$;$F#1$D$N(BString$B$K$9$kJ}K!$,$"$l$P65$($F2<(B
> $B$5$$!#(B
>   
$BCm!%(BByte$B7?$r;H$o$:!"(BString$B7?$G@k8@$7!"(BGet$B$7$?>l9g$bF1MM$KJ8;z2=$1$7$F$7$^(B
> $B$$$^$9!#(B
> 
>     $B2?$+$&$^$$J}K!$,$"$k$N$+!"$*65$(2<$5$$!#(B
> 

Media io($B%a%G%#%"!&%$%*(B)$B$N(B Masaya.H $B$H?=$7$^$9!#(B

$B#I#T#T#C$5$s!J$H$*8F$S$9$l$P$h$m$7$$$s$G$7$g$&$+(B(^^;$B!)!K$N$*$C$7$c$C$F(B
$B$*$i$l$k$N$O0J2<$N$h$&$J>l9g$K(B

-----------------------------------------------------------------
Dim strByte(4) As Byte
Dim tmpStr     As String
Dim i          As Integer

For i = 0 To 4
    strByte(i) = &HE0 + i
Next
    
For i = 0 To 4
    tmpStr = tmpStr + Chr$(strByte(i))
Next

For i = 1 To 5
    Debug.Print Hex$(Asc(Mid$(tmpStr, i, 1))); " ";
Next
-----------------------------------------------------------------

E0 E1 E2 E3 E4

$B$H$J$i$:$K(B

0 0 0 0 0

$B$H$J$C$F$7$^$&!"$H$$$&;v$@$H?d;!$5$;$FD:$$$?$N$G$9$,!"(B
$B$b$7!"C1$K%P%$%J%j%G!<%?$rJ8;zNs$K$5$l$k$N$,L\E*$G$"$l$P(B
$BJQ49$K(B Format$ $B$H(B Hex$ $B$r;H$C$F!"%P%$%J%j$KLa$9$H$-$O(B
Val $B$H(B Mid$ $B$r;H$&0J2<$N$h$&$JJ}K!$G$O$$$+$,$G$7$g$&!#(B

-----------------------------------------------------------------
Dim strByte(4) As Byte
Dim tmpStr     As String
Dim i          As Integer

For i = 0 To 4
    strByte(i) = &HE0 + i
Next
    
For i = 0 To 4
    tmpStr = tmpStr + Format$(Hex$(strByte(i)), "00")
Next

For i = 1 To 10 Step 2
    Debug.Print Hex$(Val("&H" + (Mid$(tmpStr, i, 2)))); " ";
Next
-----------------------------------------------------------------

$B8+Ev0c$$$N#R#E#S$K$J$C$F$$$?$i!"$9$_$^$;$s(B(^^;$B!#(B

$B$=$l$H!"K\Bj$H$O4X78$J$/!":Y$+$J$3$H$G?=$7Lu$J$$$N$G$9$,!"(B
strByte $B$r(B (0)$B!A(B(4) $BHO0O$N$_;H$o$l$k$N$G$"$l$P!"#C8@8l$H0c$$(B
$B#V#B$G$O(B

Dim strByte(4) As Byte

$B$G#O#K$G$9!#(B