[VB6.0] Open file

[hcka]

Ciao,
mi occorre il codice vb per aprire un file...
se scrivo:

Private Sub open_Click()
On Error GoTo a
CommonDialog1.DialogTitle = "Open file '*.crp'..."
CommonDialog1.CancelError = False
CommonDialog1.Filter = "Crypted file (*.crp)|*.crp"
CommonDialog1.ShowOpen
Openme
Exit Sub
a:
Exit Sub
End Sub

E openme è:

Private Sub Openme()
Open CommonDialog1.FileName For Input As #1
Input #1, xxx
txt1.Text = xxx
Close #1
End Sub

.
Così mi apre solamente la prima riga del documento!
Cosa devo aggiungere e dove???
:master: X :master: X :master:

[xegallo]

un ciclo che legge ogni riga fino alla fine del file

[hcka]

Cioè???
forse continuare nel:

Private Sub openme()
Open CommonDialog1.FileName For Input As #1
Input #1, xxx
txt1.Text = xxx
Close #1
Input #2, xxx
txt1.Text = xxx
Close #2
Input #3, xxx
txt1.Text = xxx
Close #3
...
...
...
End Sub

?!?

:master:

[xegallo]

se sai quante righe sono puoi anche farlo ma non mi sembra la miglore delle soluzioni
credo che un ciclo do until - loop vada meglio

[hcka]

Senti, non sono molto bravo e non conosco un gran chè il codice Basic... Se mi dici che codice inserire, bene... altrimenti grazie!

[xegallo]

Originariamente inviato da hcka
Senti, non sono molto bravo e non conosco un gran chè il codice Basic... Se mi dici che codice inserire, bene... altrimenti grazie!

certo e se vuoi ti faccio anche il manuale del progetto :gren: :gren: :gren:
io ti volevo solo dare un aiuto ma se la prendi così arrangiati

[sebamix]

hcka clicca qui:

http://forum.html.it/forum/showthrea...hreadid=353121

non è esattamente quello che serve per risolvere il problema ma ti darà una mano.

E ricorda che tutti qui possono rispondere come gli pare (o anche non rispondere se non hanno voglia di farlo), e ti invito a notare che xegallo ti ha dato tutti gli hint necessari per risolvere il problema.

Ok? Senza rancore?

[hcka]

Ok, scusate se me la sono presa, ma è da un mesetto che cerco e non trovo...

[sebamix]

Se guardi la mia firma trovi "Links VB". Ti saranno sicuramente di aiuto per imparare a programmare in Visual Basic.
Poi esiste uno strumento di fondamentale impoirtanza se si vuole imparare una qualsiasi cosa... Internet e Google!

[hcka]

ho osservato il 3ad che mi ha linkato sebamix...il comando loop, continua a fare la serie di istruzioni scritte fino a quando non trova più nulla?