🚀 go-pugleaf

"The_Pianist" <gerolochinda@libero.it> wrote in message
news:mV9G8.86955$5k4.1934849@twister2.libero.it...

> Salve a tutti, sono nuovo di questo newsgroup
> spero di poter aiutare qualcuno anche se non sono un esperto di VB.
>
> Spero che qualcuno possa aiutarmi:
>
> Vorrei fare un programma che crei un file di dimensione
> da me specificate.
> Ho provato con un FOR-NEXT che scriveva righe di
> testo all'interno di un file con OPEN FOR OUTPUT
> ma non sono rimasto molto soddisfatto.
> avevo pensato a OPEN FOR BINARY ma sinceramente
> non mi � molto chiaro il suo funzionamento.
>
> Si accettano suggerimenti .
>
> Grazie
> (il top sarebbe se funzionasse anche con Qbasic, ma non voglio complicare
le
> cose)

Non capisco se per dimensione intendi la lunghezza del record
o il numero di record. Comunque, ecco un sorgente per Qbasic
(vale anche per VB):


Type tRiga
    Nome As String * 15
    Cognome As String * 15
    Indirizzo As String * 10
End Type

Dim Riga As tRiga

Open "ARCHIVIO.DAT" For Random As 1, Len = 40

Riga.Nome = "Giuseppe"
Riga.Cognome = "Scognamiglio"
Riga.Indirizzo = "via Verdi, 47"

Put 1, , Riga

Riga.Nome = "Antonio"
Riga.Cognome = "Scannagatti"
Riga.Indirizzo = "via Rossi, 119/A"

Put 1, , Riga

Close 1


Questo crea un file (ARCHIVIO.DAT) lungo 40 caratteri,
e scrive due record, ciascuno contenente Nome, Cognome
e Indirizzo.

--
Er Roscio.