Common dialog

[mm90187]

Non riesco ad aprire il file precedentemente salvatoDim data as string
Dim Data1 as string
CommonDialog1.Filter = "File di Testo (*.txt)|*.txt|"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, Data, Data1
Text1.text = Data
Text4.text = Data1
Loop
Close #1
End sub

Mi dà sempre lo stesso errore run-time 62 input oltre la fine del file

Grazie a Tutti

[Boldan]

L'errore che hai segnalato si verifica quando cerchi di accedere a dei dati oltre la fine del file (EOF).
Probabilmente l'errore si verifica perché leggi il file in 2 variabili di tipo string con la seguente istruzione:

Input #1, data, data1

Questo comando specifica la lettura dei dati per una certa lunghezza (determinata dalla dimensione della/e variabile/i che passi come parametri dal secondo in poi...). Normalmente si utilizzano i campi di una struttura (Type) per leggere il contenuto di un file oppure si legge riga per riga con il comando Line Input.
Con il tuo sistema in sostanza gli dici di leggere 2 stringhe di cui però non specifichi la dimensione; risultato: la prima conterrà tutto il file e la seconda genera un errore di 'input past end of file' (l'errore che hai segnalato).

Per risolvere quindi hai 2 modi:
- Se i dati hanno una dimensione fissa puoi utilizzare una struttura come ad es:

Type rec
data as string * 10
data1 as string * 15
End Type

Con questa struttura leggi due campi stringa di lunghezza 10 e 15 caratteri.

- Se i dati hanno lunghezza variabile, probabilmente li avrai organizzati in linee, in tal caso utilizzerai il comando

Line Input #1, data

che ti restituisce l'intera riga.


Spero di averti aiutato e di essere stato abbastanza chiaro, fammi sapere....

Ciao!!