[VB6] Prendere nome variabile e variabile da inet o txt

[cracky]

Allora il mio problema è questo...
ho un file in rete dal quale devo prendere dei dati,
i dati in questione sono il nome della variabile e la variabile contenuta.

file = Inet1.OpenURL("http://www.sito.it/file.txt")

Fin qua tutto bene...

Il file.txt è strutturato in questo modo

cognome1=1,nome1=1
cognome2=2,nome2=2
cognome3=3,nome3=3
cognome4=4,nome4=4
cognome5=5,nome5=5
cognome6=6,nome6=6

Come posso prendere cognomeX e nomeX che voglio io ???
Ripeto quello che ho scritto su... mi serve nome variabile e valore contenuto all'interno...
perchè cognome1 e nome1 sono variabili che riempiono ad esempio...

Text1.Text = cognome1
Text2.Text = nome1

Posso pensare anche alle matrici...

Text1.Text = cognome(X)
Text2.Text = nome(X)

Ma non trovo soluzioni...

GRAZIE.

[oregon]

Una volta che hai tutto il file in locale, lo apri con la Open e lo leggi riga per riga con un ciclo fino alla riga che ti serve.

[cracky]

Grazie oregon...

Il mio problema è fare tutto questo, senza scaricare in locale il file,
in modo che l'utente non osservi il file... (contiene login di accesso).
Caricherei tutto in una variabile al massimo sono 10 righe...
il contenuto del file e prenderei quello che mi seve.

Grazie di nuovo.

[oregon]

Beh ... non l'avevi detto nel primo post ... le specifiche sono importanti, bisogna indicarle tutte e non cambiarle ...

In questo caso, tutti i dati li hai all'interno della variabile stringa

file

Esegui uno Split per suddividere tutte le linee in un array

Dim a() As String
a = Split(file, vbCrLf)

e utilizza l'elemento dell'array che ti serve.

[cracky]

scusa oregon... mi affido alla tua clemenza
non ne vengo fuori da questo problema
la stringa file è divisa per righe, ma anche con la virgola come separatore...
come posso prendere il nome delle variabili, e il loro contenuto nella seconda riga ?
Se non ti reco disturbo mi puoi fare un esempio ?

Grazie!!!

[tippolo]

non vorrei dire una stupidaggine in quanto non ho mai usato lo Split, ma l'esempio che oregon ti ha proposto ad occhio nudo credo si riferisca proprio al tuo caso.

[oregon]

Scusa ... hai detto che hai tante righe ... queste sono separate da vbCrLf (penso ...) e quindi il codice che ti ho suggerito divide tutte le linee in un vettore ... quindi con

Dim a() As String
a = Split(file, vbCrLf)

avrai in

a(0)

la prima riga, in

a(1)

la seconda e cosi' via (le puoi vedere se scrivi

Dim a() As String
a = Split(file, vbCrLf)
MsgBox a(0)

Cosa non sai fare a questo punto?