Re: QBASIC: Blok tegelijk van file lezen/schrijven

Article View: be.comp.programming

Article #1560

Back to be.comp.programming Previous Next

#1560

From: Winterteen
Date: Thu, 03 Feb 2005 23:05

32 lines
1821 bytes

Sinna <news4sinna_NOSPAM@hotpop.com> schreef in bericht <36e7erF4tp3vvU1@individual.net>...

> Winterteen wrote:
> > Kan ik in QBASIC een aantal bytes in een keer van een file lezen
> 
> Ja, maar met de volgende code:
> 
> Dim bData(511) As Byte
> Dim fd As Integer:	fd = FreeFile()
> 
> Open "file" For Binary Access Read As "fd
> Get #fd,, bData
> Close #fd
> 
> 
> Wens je de voledige file in te lezen:
> 
> Dim bData() As Byte
> Dim fd As Integer:	fd = FreeFile()
> 
> Open "file" for Binary Access Read As #fd
> Redim bData(LOF(fd)-1) As Byte
> Get #fd,, bData
> Close #fd
> 
> 
> Bovenstaande code heb ik niet kunnen testen met QB, in VB zou het moeten 
> werken.

In ieder geval bedankt, maar helaats, het werkt niet in QBasic.

WW

Technical Details

Message-ID: <4202b5ef$0$5548$58c7af7e@news.kabelfoon.nl>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!proxad.net!proxad.net!easynet-quince!easynet.net!news-out2.kabelfoon.nl!nanites.nntp.kabelfoon.nl!not-for-mail

References: <4201616b$0$5557$58c7af7e@news.kabelfoon.nl> <36e7erF4tp3vvU1@individual.net>

Show Full Headers

Complete Article Headers

X-Google-Thread: fcea4,40218b57011ce6fe
X-Google-Thread: 107324,40218b57011ce6fe
X-Google-Attributes: gidfcea4,gid107324,public
X-Google-Language: DUTCH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!proxad.net!proxad.net!easynet-quince!easynet.net!news-out2.kabelfoon.nl!nanites.nntp.kabelfoon.nl!not-for-mail
From: "Winterteen" <willem@winter.teen>
Newsgroups: be.comp.programming,nl.comp.programmeren
Subject: Re: QBASIC: Blok tegelijk van file lezen/schrijven
Date: Fri, 4 Feb 2005 00:05:28 +0100
References: <4201616b$0$5557$58c7af7e@news.kabelfoon.nl> <36e7erF4tp3vvU1@individual.net>
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-RFC2646: Format=Flowed; Original
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
Lines: 33
Message-ID: <4202b5ef$0$5548$58c7af7e@news.kabelfoon.nl>
Organization: CAIW
NNTP-Posting-Host: kf-nawij-fp11-136.dial.kabelfoon.nl
X-Trace: 1107473903 nanites.nntp.kabelfoon.nl 5548 62.45.9.136:2389
X-Complaints-To: abuse@caiway.nl

Reply to Parent Message