Re: QBASIC: Blok tegelijk van file lezen/schrijven

Article View: be.comp.programming

Article #1564

Back to be.comp.programming Previous Next

#1564

From: Winterteen
Date: Fri, 04 Feb 2005 13:31

38 lines
2296 bytes

Gerard Bok <bok118@zonnet.nl> schreef in bericht <4202bab4.10087501@News.Individual.NET>...

> On Thu, 3 Feb 2005 00:17:42 +0100, "Winterteen"
> <willem@winter.teen> wrote:
> 
> >Kan ik in QBASIC een aantal bytes in een keer van een file lezen
> >of naar een file schrijven? Zoiets zegt maar:
> >
> >(initialiseer buffer(511))
> >
> >open "file" for random as #1
> >	get #1,,buffer(511)
> >close #1
> 
> Ik heb geen Qbasic helpfile bij de hand maar mijn natte vinger
> zou op zoek gaan naar 'LENGTH' of 'LEN=' :-)

Droog je vinger maar af. :-) Ik vond zelf al een manier, hier wordt
eerst 2 keer 512 bytes uit een file in een string gelezen, en daarna
worden de strings weer in een nieuwe file gezet. Volgens mij wordt
deze manier niet beschreven en is dus mijn uitvinding:

a$ = "": FOR b% = 1 TO 512: a$ = a$ + " ": NEXT
b$ = a$

OPEN "filelees" FOR BINARY AS #1  'Bestaande file
        GET #1, , a$
        GET #1, , b$
CLOSE #1

OPEN "fileschr" FOR BINARY AS #1  'Nieuwe file
        PUT #1, , a$
        PUT #1, , b$
CLOSE #1

WW

Technical Details

Message-ID: <42037c14$0$197$58c7af7e@news.kabelfoon.nl>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!proxad.net!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!newsfeed.bit.nl!newsfeed.bit.nl!border1.nntp.ams.giganews.com!border2.nntp.ams.giganews.com!nntp.giganews.com!news-out2.kabelfoon.nl!83.128.0.10.MISMATCH!newsfeed.kabelfoon.nl!norcadian.nntp.kabelfoon.nl!not-for-mail

References: <4201616b$0$5557$58c7af7e@news.kabelfoon.nl> <4202bab4.10087501@News.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!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!newsfeed.bit.nl!newsfeed.bit.nl!border1.nntp.ams.giganews.com!border2.nntp.ams.giganews.com!nntp.giganews.com!news-out2.kabelfoon.nl!83.128.0.10.MISMATCH!newsfeed.kabelfoon.nl!norcadian.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 14:31:03 +0100
References: <4201616b$0$5557$58c7af7e@news.kabelfoon.nl> <4202bab4.10087501@News.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: 39
Message-ID: <42037c14$0$197$58c7af7e@news.kabelfoon.nl>
Organization: CAIW
NNTP-Posting-Host: fba1ea18.news.kabelfoon.nl
X-Trace: 1107524628 norcadian.nntp.kabelfoon.nl 197 62.45.9.65:1247
X-Complaints-To: abuse@caiway.nl

Reply to Parent Message