🚀 go-pugleaf

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

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

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=' :-)

-- 
met vriendelijke groet,
Gerard Bok

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

Toen ik Winterteen kietelde, kwam er dit uit:

> 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

Variant:

  Dim blok AS String * 1024

  Open "filelees" For Binary AS #1

  Open "fileschr" For Output AS #2  ' truncate to 0 bytes
  Close #2
  Open "fileschr" For Binary AS #2

  Get #1, , blok
  Put #2, , blok

  Close #2
  Close #1

' Pas op: als de lengte van "filelees" minder dan 1024 bytes is,
' dan wordt "fileschr" toch 1024 bytes.

(ongetest)

QBasic-tutorial:
  http://www.programmersheaven.com/file/basic/QBASIC.ZIP

-- 
Affijn, Ruud   `  -  ?
               + ` ? *
                 ? `     Jvr qvg yrrfg,
               ?  =  `   fgresg wbatre.

Kunt u mij een reden geven waarom u programmeert in QB?
Dit doet me denken aan mijn allereerste compiler, terug in de jaren 85 of
zo....

Toen ik Inetpub kietelde, kwam er dit uit:

> Kunt u mij een reden geven waarom u programmeert in QB?

Het is niet duidelijk aan wie je refereert.
http://www.leerquoten.nl


> Dit doet me denken aan mijn allereerste compiler, terug
> in de jaren 85 of zo....

Slechts een paar jaar daarvoor gebruikte ik deze BASIC:
http://www.xs4all.nl/~fjkraan/comp/atom/atap/atap01.html
En Forth, en Lisp, en Assembler, en alles wat maar wou op
die Atom.

Viva Sophie/Roger Wilson. ChangeFSI anyone?
"While IBM spent months simulating their instruction sets on large
mainframes, Sophie did it all in her brain."
"BBC BASIC was originally written by Roger Wilson, an employee of Acorn.
As if it could have been written by a woman!" ;)

-- 
Affijn, Ruud   `  -  ?
               + ` ? *
                 ? `     Jvr qvg yrrfg,
               ?  =  `   fgresg wbatre.

Voor mij lijkt dit erg duidelijk te zijn.  De vraag was aan u gesteld, maar
gezien u dit niet snapt is het me plots wel duidelijk waarom u nog QB
schrijft.

http://www.leermanieren.com


> > Kunt u mij een reden geven waarom u programmeert in QB?
>
> Het is niet duidelijk aan wie je refereert.
> http://www.leerquoten.nl

Toen ik Inetpub kietelde, kwam er dit uit:

> Voor mij lijkt dit erg duidelijk te zijn.

Weer geef je niet aan wie wat schreef, en waar je op reageert.
Wat is er duidelijk? Dit? Je schept vooral verwarring.


> De vraag was aan u gesteld,

Wie is toch steeds maar die u waar je het tegen hebt?

Zo werkt usenet niet. Iedereen die leest, kan reageren.
Laat usenet een tijdje met rust, en lees je in voor je weer
terugkomt.

Als je je niet houdt aan de mores, wordt dat je kwalijk
genomen. Lopen doe je op het voetpad, niet midden op
de rijweg.

Kijk nog eens naar het begin van dit draadje. Iemand (Winterteen)
is de OP (degene die het draadje begint), en die stelt een
vraag. De verschillende reacties proberen antwoorden op die
vraag te geven, of uit te weiden over aanpalende onderwerpen.
Net zolang tot men tevreden is, of er genoeg van heeft. En
dan stopt het draadje vanzelf.

Let nog even op: je "From:" is fout. Je gebruikt een domein
dat niet van jou is, en je hebt geen toestemming om het te
gebruiken. Dat mag ook al niet.

Maar welkom op usenet, en voor een maand of wat in mijn
mark-as-read-filter.

-- 
Affijn, Ruud   `  -  ?
               + ` ? *
                 ? `     Jvr qvg yrrfg,
               ?  =  `   fgresg wbatre.

"Inetpub" <inetpub@wwwroot.com> writes:

> Voor mij lijkt dit erg duidelijk te zijn.  De vraag was aan u gesteld, maar
> gezien u dit niet snapt is het me plots wel duidelijk waarom u nog QB
> schrijft.
> 
> http://www.leermanieren.com

Man oh man zit niet zo te zeiken en leer normaal quoten.

 S.

"Dr.Ruud" <rvtol+news@isolution.nl> writes:

...

> > De vraag was aan u gesteld,
> 
> Wie is toch steeds maar die u waar je het tegen hebt?

Het is een belg, die zeggen u.

 S.

Toen ik Stefan Arentz kietelde, kwam er dit uit:
> Dr.Ruud:

>>> De vraag was aan u gesteld,

>> Wie is toch steeds maar die u waar je het tegen hebt?

> Het is een belg, die zeggen u.

Het is eigenlijk wel een goede truuk, want met "u" kun je
zowel e1n persoon als een hele groep aanduiden.

-- 
Affijn, Ruud   `  -  �
               + ` � *
                 � `     Jvr qvg yrrfg,
               �  =  `   fgresg wbatre.

Inetpub <inetpub@wwwroot.com> schreef in bericht <Vn4Nd.23953$gB3.7429@fe07.lga>...

> Voor mij lijkt dit erg duidelijk te zijn.  De vraag was aan u gesteld, maar
> gezien u dit niet snapt is het me plots wel duidelijk waarom u nog QB
> schrijft.
> 
> http://www.leermanieren.com
> 
> 
> > > Kunt u mij een reden geven waarom u programmeert in QB?
> >
> > Het is niet duidelijk aan wie je refereert.
> > http://www.leerquoten.nl

De belangrijkste reden voor mij is dat je in een klein programmaatje
ernorm veel functionaliteit kan stoppen.

WW

Winterteen wrote:
> De belangrijkste reden voor mij is dat je in een klein programmaatje
> ernorm veel functionaliteit kan stoppen.

Dat is IMHO juist niet het geval. QBASIC mist de expressiekracht om 
dingen kort en bondig te formuleren waardoor je voor de meest simpele 
taken al een flinke lap code nodig hebt. Een Hello World is wel kort, 
maar als je iets meer wilt loop je al gauw tegen beperkingen op.

Wat je met 'klein' bedoelt is waarschijnlijk: geen verplichte classes / 
main functie / aparte compilatiestap of andere programmeeroverhead.

Met het risico om op John Bokma te gaan lijken: probeer Perl eens. Daar 
kun je net zulke lichtgewicht programmaatjes mee inelkaar hacken, maar 
dan met een veel modernere / uitgebreidere trukendoos.


-- 
groeten,
Boudewijn.

Boudewijn <me@privacy.org> schreef in bericht <4204f0a7$0$28989$e4fe514c@news.xs4all.nl>...

> Winterteen wrote:
> > De belangrijkste reden voor mij is dat je in een klein programmaatje
> > ernorm veel functionaliteit kan stoppen.
> 
> Dat is IMHO juist niet het geval. QBASIC mist de expressiekracht om 
> dingen kort en bondig te formuleren waardoor je voor de meest simpele 
> taken al een flinke lap code nodig hebt. Een Hello World is wel kort, 
> maar als je iets meer wilt loop je al gauw tegen beperkingen op.
> 
> Wat je met 'klein' bedoelt is waarschijnlijk: geen verplichte classes / 
> main functie / aparte compilatiestap of andere programmeeroverhead.
> 
> Met het risico om op John Bokma te gaan lijken: probeer Perl eens. Daar 
> kun je net zulke lichtgewicht programmaatjes mee inelkaar hacken, maar 
> dan met een veel modernere / uitgebreidere trukendoos.

Hoe kom je erbij. QBASIC is erg veelzijdig en heeft commando's die VB
en Perl missen. Ik kan alles realiseren in compacte code. Perl is geen
concurrent aangaande de afmeting, het is maar liefst 20 (twintig) keer
zo groot bij een vergelijkbaar programma. Natuurlijk kan het meer wat
betreft Windows, maar QBASIC is voor mathematische dingen weer erg
geschikt.


WW

Winterteen wrote:
 > Hoe kom je erbij. QBASIC is erg veelzijdig en heeft commando's die VB
 > en Perl missen.

Zoals??? (behalve PEEK, POKE, interrupt calls en andere fossielen uit de 
steentijd)

 > Ik kan alles realiseren in compacte code. Perl is geen
 > concurrent aangaande de afmeting, het is maar liefst 20 (twintig) keer
 > zo groot bij een vergelijkbaar programma.

Ik had het over de expressiekracht van de taal, niet over de 
implementatie. Veel dingen die in een meer volwassen taal triviaal zijn 
zijn in QBasic heel veel werk. Sorteer maar eens een array in QBasic 
(iets wat in elke andere taal met 1 of 2 regeltjes code kan).

Als je echt een statische binary van <50 kB nodig hebt dan is Perl 
inderdaad geen optie (hoewel ik me daar tegenwoordig nog weinig bij kan 
voorstellen, maar goed).

 > Natuurlijk kan het meer wat betreft Windows, maar
 > QBASIC is voor mathematische dingen weer erg geschikt.

Niks Windows, gewone basisfunctionaliteit. Arrays, strings en zo.

En over die 'mathematische dingen'... Probeer maar eens twee getallen 
van 30 cijfers met elkaar te vermenigvuldigen in QBASIC. Of complexe 
getallen, of wat grotere datasets, of whatever.

Welk OS gebruikt u dan?  DOS 3.1?

> De belangrijkste reden voor mij is dat je in een klein programmaatje
> ernorm veel functionaliteit kan stoppen.

Goed.  Schrijft u eens een compact programmaatje in QB die een database
beheert over een netwerk, verspreid over verschillende gebouwen.

> Ik kan alles realiseren in compacte code.

["Followup-To:" header set to nl.comp.programmeren.]
On 2005-02-05, Inetpub <inetpub@wwwroot.com> wrote:

>> Ik kan alles realiseren in compacte code.

> Goed.  Schrijft u eens een compact programmaatje in QB die een database
> beheert over een netwerk, verspreid over verschillende gebouwen.

Wat bied je? Standaard tarief?

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

ikzelf gebruikte vroeger ook veel QB, omdat het zo snel programmeerde. 
Ik ben sinds enige tijd echter volledig verkocht aan Python, welke 
ikzelf handiger vind dan Perl.


Jos