[VB6] Peso è lettura?

[x69asterix]

Ciao a tutti,
espongo subito il mio quesito, se al posto di Image1, voglio visualizzare un file .txt o .bin ....
come bisogna procedere??
se con sub dir1 visualizzo i file in quella dir, è possibile oltre a visualizzare i files aggiungere anche la visione del peso di questi files


Option Explicit

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Dim FileSelezionato As String

FileSelezionato = File1.Path & "\" & File1.FileName
'Image1.Picture = LoadPicture(FileSelezionato)
text1=load(FileSelezionato)' così non và mi da errore
End Sub

Scusate ma sono alle prime armi!!!

[kalosjo]

Per visualizzare il file lo devi aprire (funzione open) lo devi leggere (funzione read) e devi scrivere il conenuto nella textbox.....

[x69asterix]

Originariamente inviato da kalosjo
Per visualizzare il file lo devi aprire (funzione open) lo devi leggere (funzione read) e devi scrivere il conenuto nella textbox.....

Ok ma come funzione come la imposto?


open "nomefile.bin" for output as #2
ma come faccio a farlo scrivere nel textbox ??
close #2

[mardok30]

Input Line numerofile, datiLetti
Così hai inserito nella variabile datiLetti la riga appena letta dal file.
Text1.text = datiLetti ' così scrivi nella textbox quello che hai letto dal file
Ciao

[x69asterix]

Originariamente inviato da mardok30
Input Line numerofile, datiLetti
Così hai inserito nella variabile datiLetti la riga appena letta dal file.
Text1.text = datiLetti ' così scrivi nella textbox quello che hai letto dal file
Ciao

Ciao e grazie x la tua disponibilità!
senti io sono alle prime armi, sicuramente mi sfugge qlc, potresti fare un esempio concreto, di come leggere un file.bin e visualizzarlo su un textbox?.

io eseguo quanto segue, tu sicuramente mi hai dato la risposta xò io non riesco a metterla in pratica!!

allora:
ti faccio presente ke il file .bin da visualizzare è sicuramente > 500kb

open "nomefile" For Binary As #2
Input Line numerofile, datiLetti ' mi dà errore
Text1.text = datiLetti
close #2

[mardok30]

Infatti, ho sbagliato a scriverti il codice:

open "nomefile" For Binary As #2 
do while not eof(#2)
    Line input #2, datiLetti 
    Text1.text = text1.text & datiLetti 
loop
close #2

Imposta la textbox come multilinea(vedi nelle sue proprietà)
Ciao

[x69asterix]

Originariamente inviato da mardok30
Infatti, ho sbagliato a scriverti il codice:

open "nomefile" For Binary As #2 
do while not eof(#2)
    Line input #2, datiLetti 
    Text1.text = text1.text & datiLetti 
loop
close #2

Imposta la textbox come multilinea(vedi nelle sue proprietà)
Ciao

Ciao mardok30, ciao a tutti
gentilissimo, allora ho provato il tuo codice, però mi và in errore in: do while not eof(#2)come lo risolvo?

open "nomefile" For Binary As #2 
do while not eof(#2) 
    Line input #2, datiLetti 
    Text1.text = text1.text & datiLetti 
loop
close #2

[x69asterix]

Originariamente inviato da mardok30
Infatti, ho sbagliato a scriverti il codice:

open "nomefile" For Binary As #2 
do while not eof(#2)
    Line input #2, datiLetti 
    Text1.text = text1.text & datiLetti 
loop
close #2

Imposta la textbox come multilinea(vedi nelle sue proprietà)
Ciao

Ciao mardok30, ciao a tutti
gentilissimo, allora ho provato il tuo codice, però mi và in errore in: do while not eof(#2)
come lo risolvo?

open "nomefile" For Binary As #2 
do while not eof(#2) <---- errore
    Line input #2, datiLetti 
    Text1.text = text1.text & datiLetti 
loop
close #2

Ciao e grazie

[x69asterix]

Ciao,

allora io ho risolto così non sò se sia corretto ma cmq funge:

code:
open "nomefile" For Binary As #2
do while not eof(#2) <---- errore
Line input #2, datiLetti
Text1.text = text1.text & datiLetti
loop
close #2
in

open "nomefile.bin" For Binary As #2
do while not eof(2)
Line input #2, datiLetti
Text1.text = text1.text & datiLetti
loop
close #2

Ok però praticamente visto il peso del file .bin da leggere, per leggerlo impiega molto tempo, esiste un modo per accorciare i tempi!!

[cassano]

veramente coi file binari il ciclo si dovrebbe fare cosi

do while seek(filenumber) < filelen(filenumber)


loop