Problemone Con I File (seek)

[webporta.it]

SALVE RAGAZZI!
HO UN PROBLEMA CON STI CAVOLO DE FILE...
HO UNA LISTBOX (lista_Amici)...al dblclick su una riga di essa, mi dovrebbe andare a cercare su un file, qual'è la stringa corrispondende ad essa...
Ho buttato giù un po di codice,ma non funge.La variabile str che dovrebbe contenere la stringa letta da file, non funge!

Private Sub lista_Amici_dblClick()

Dim appL As Long
Dim str As String

appL = lista_Amici.ListIndex + 1
appL = appL * 100 '* 100 xke i caratteri di ogni riga sono 100 (fissi)

Dim hFile As String
hFile = FreeFile

On Error GoTo line:
Open App.Path & "\opzioni\amici.txt" For Binary As hFile
Seek hFile, appL
Get #hFile, , str
line:
Close hFile

End Sub

[xegallo]

o impari a metterlo tra i tag il codsice o comincio a cestinare

[webporta.it]

Private Sub lista_Amici_dblClick() 

Dim appL As Long 
Dim str As String 

appL = lista_Amici.ListIndex + 1 
appL = appL * 100 '* 100 xke i caratteri di ogni riga sono 100 (fissi) 

Dim hFile As String 
hFile = FreeFile 

On Error GoTo line: 
Open App.Path & "\opzioni\amici.txt" For Binary As hFile 
Seek hFile, appL 
Get #hFile, , str 
line: 
Close hFile 

End Sub

cosi?

[webporta.it]

Originariamente inviato da xegallo
o impari a metterlo tra i tag il codsice o comincio a cestinare

Sono il tuo incubo peggiore!!!
Se non ti faccio lavorare io in questo forum... A cosa servirebbero i moderatori!!!

[xegallo]

Originariamente inviato da webporta.it
Sono il tuo incubo peggiore!!!
Se non ti faccio lavorare io in questo forum... A cosa servirebbero i moderatori!!!

no sei uno dei tanti ma tu non sei andato in ferie

[webporta.it]

Originariamente inviato da xegallo
no sei uno dei tanti ma tu non sei andato in ferie

NO! Sono voluto rimanere vicino vicino a TE!

Mi potresti dare una mano con il problema....PLEASEEEEE

[xegallo]

Originariamente inviato da webporta.it
NO! Sono voluto rimanere vicino vicino a TE!

Mi potresti dare una mano con il problema....PLEASEEEEE

non ho capito che vuoi fare

[aserto1]

Ma dentro il file devi cercare una stringa o o l'index della listbox?

[webporta.it]

IN UNA LIST BOH HO SOLO DEI NOMI INSERITI DA ME...
QUANDO UNO CLIKKA SU UN NOMINATIVO... IO TRAMITE LISTINDEX MI TROVO LA SUA POSIZIONE, GLI SOMMO 1 XKE LA LISTBOX PARTE DA ZERO!
POI DOVREI ANDARE A CERCARE NEL FILE LA STR ALLA STESSA POSIZIONE DEL NOMINATIVO CHE HO CLICCATO..
HO FATTO LISTINDEX * 100 XKE 100 SONO I CARATTERI DI OGNI RIGA..

[aserto1]

Ah! Tu dovresti andare alla riga corrispondente alla list (riga=Lista_amici.Listindex +1) e ogni riga è di 100 caratteri.
Giusto?