[VB6] Copiare una stringa fino ad un carattere specifico

[elkarmo]

Ciao ragazzi...
mi sono preso una briga che potevo non prendermi, ma cmq...
devo, di un testo di una textbox, prendere una riga per volta...
devo usare per forza un ciglo for?
o c'e' qualcosa che automatizza?
grazie...

[GudFella]

se ogni riga finisce con un determinato carattere puoi dividere la stringa utilizzando la funzione split

dim arr_stringa
arr_stringa = split(textbox.text, carattere)

a questo punto avrai un array dove ogni elemento corrisponde ad una riga della tua textbox

[elkarmo]

Grazie mille....
Il problema e' che quando lo avvio mi dice sempre
"errore di runtime 424 - Necessario oggetto"

e io gli ho scritto

arr_stringa = Split(TextBox2.Text, Chr(13))

dove sbaglio???
lui deve cambiare quando c'e' un INVIO...

[Jupy64]

Ciao, devi specificare il linguaggio che usi!!! Un'occhiatina al regolamento farebbe bene...

[GudFella]

se lo hai messo nell'evento load del form, l'oggetto TextBox2 non è ancora stato creato

mettilo nell'evento activate e dovrebbe funzionare

[alka]

Originariamente inviato da Jupy64
Ciao, devi specificare il linguaggio che usi!!! Un'occhiatina al regolamento farebbe bene...

Sottoscrivo.

[elkarmo]

@ jupy: ok...ho corretto... mi era sfuggito...

se lo hai messo nell'evento load del form, l'oggetto TextBox2 non è ancora stato creato

ok... ho corretto usando la variabile...

arr_stringa = Split(testo, Chr(13))

ora pero' devo fare scrivere una riga, x ogni indice della stringa...
ho scritto cosi':

fosavefile.WriteLine (arr_stringa & vbCrLf)

ma sbaglio qualcosa....
mi da un errore...
ragionando... devo fargli scrivere la posizione 1 dell'array, poi la posizione 2 e via dicendo... ma nn m riesce....


x l'esattezza.... Il tipo d'errore e'...
Tipo non corrispondente....
Ma che c'entra? :master: :master:

[GudFella]

For i=0 to ubound(arr_stringa)
      fosavefile.WriteLine (arr_stringa(i) & vbCrLf)   
next i

[elkarmo]

Originariamente inviato da GudFella

For i=0 to ubound(arr_stringa)
      fosavefile.WriteLine (arr_stringa(i) & vbCrLf)   
next i

thanks....
solo che non so come mai, ma il vbCrLf non mi funziona... non mi manda a capo....
mi spazia ogni riga della textbox di una posizione, ma non va a capo...
mah...