🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.visualbasic
Article #1255

おしえて VB4.0バイナリをストリングにする方法

#1255
From: ITTC
Date: Wed, 08 Oct 1997 00:00
18 lines
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-mail

Show 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