accedere a linee di un testo differenti

[fisica]

Quando apro un documento uso

Open "nomefile" For Input As #1
Line Input #1, variabile
Close #1

come faccio a salvare solo la seconda linea di questo file?

grazie

ciao

[steno12]

n=len(variabile)
tr="":riga=0:frase=""
for i= 1 to n
tr=mid(variabile,i,1) 'Leggo un carattere alla volta
frase=frase+tr
If Asc(tr) = 10 Then
riga=riga+1
if riga=2 then exit sub 'frase contiene la frase della seconda linea
tr=""
frase=""
endif
next n

[fisica]

aaarrrggghhhh

ma questo aprendo un file esterno?

la variabile che devo leggere qual'è? (sigh non capisco proprio nulla)


cmq l'ho messo dopo close #1 e mi da un errore nel next

Mi puoi fare un esempio includendo anche l'apertura del file?

[fisica]

grazie

[steno12]

dim frase as string
dim tr as string
dim variabile as string

Open "nomefile" For Input As #1
Line Input #1, variabile
Close #1

n=len(variabile)
tr="":riga=0:frase=""
for i= 1 to n
tr=mid(variabile,i,1) 'Leggo un carattere alla volta
frase=frase+tr
If Asc(tr) = 10 Then
riga=riga+1
if riga=2 then stop
tr=""
frase=""
endif
next n

'quando il programma si blocca metti il puntatore del mouse sulla 'variabile frase