Article View: be.comp.programming
Article #1558Re: QBASIC: Blok tegelijk van file lezen/schrijven
From: Sinna
Date: Thu, 03 Feb 2005 08:57
Date: Thu, 03 Feb 2005 08:57
38 lines
1658 bytes
1658 bytes
Winterteen 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 > > WW 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. Sinna
Technical Details
Message-ID:
<36e7erF4tp3vvU1@individual.net>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news.glorb.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mailReferences:
<4201616b$0$5557$58c7af7e@news.kabelfoon.nl>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!news4.google.com!news.glorb.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail From: Sinna <news4sinna_NOSPAM@hotpop.com> Newsgroups: be.comp.programming,nl.comp.programmeren Subject: Re: QBASIC: Blok tegelijk van file lezen/schrijven Date: Thu, 03 Feb 2005 09:57:07 +0100 Lines: 38 Message-ID: <36e7erF4tp3vvU1@individual.net> References: <4201616b$0$5557$58c7af7e@news.kabelfoon.nl> Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: individual.net 2mfsJb/l+5cFmBasJpTl2ADfqA6Bn/kBKAD6Aex+END0sOk2ku User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206) X-Accept-Language: en-us, en In-Reply-To: <4201616b$0$5557$58c7af7e@news.kabelfoon.nl>