Article View: fj.lang.visualbasic
Article #1255おしえて VB4.0バイナリをストリングにする方法
From: ITTC
Date: Wed, 08 Oct 1997 00:00
Date: Wed, 08 Oct 1997 00:00
18 lines
1135 bytes
1135 bytes
$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
E-Mail : other@ittc.co.jp
Technical Details
Message-ID:
<61fmsa$pr3@news1.sphere.ad.jp>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS X-Google-Thread: 105c2e,b50ef2aed94ccc1a,start X-Google-Attributes: gid105c2e,public From: "ITTC" <other@ittc.co.jp> Subject: おしえて VB4.0バイナリをストリングにする方法 Date: 1997/10/08 Message-ID: <61fmsa$pr3@news1.sphere.ad.jp> X-Deja-AN: 278684585 X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3 Organization: ITTC Newsgroups: fj.lang.visualbasic