quante righe nalla mia text

[emerson74]

ciao a tutti/e

ho una textbox, mettiamo che contenga ciò che è contenuto tra i seguenti separatori:

---------------------------
wfref erfref erf refjnerfkenrger gergn erg
erg ergerger gerglk erger gerglk ergerg erg ergkler gre
gelr gerg egkermg erg erger gerlg erg
---------------------------

in questo caso 3 righe ti finto testo.
come faccio a fare un ciclo che mi conta le righe per sapere quante sono e mi metta in altrettante msgbox il testo prima della prima riga, poi della seconda, poi della terza?

grazie per l'aiuto

[xegallo]

conti i vbcrlf

[emerson74]

ok, vbcrlf inteso come ritorno a capo, ma io quel testo che vedi non devo scriverlo, devo leggerlo, devo contare le righe e non so come fare a dirgli di contare le righe, lo stesso, non so coma fare a dirgli di selezionare il testo di una riga, poi di qella dopo e così via fino a quando finiscono le righe, non so da che parte cominciare, idee zero

[tas]

Se le righe vanno a capo con vbCrLf, puoi usare la funzione Split:

Dim s() As String
Dim i As Integer

s = Split(Text1.Text, vbCrLf)

Text2.Text = s(0)
Text3.Text = s(1)
'...

[emerson74]

ottimo, grazie, funziona, ora l'unico problema che rimane è che deve farlo dinamicamente, in un ciclo e deve fermarsi quando arriva in fondo, come faccio a sapere quante righe di testo sono contenute nella mia text?

[emerson74]

perchè in questo modo

Dim s() As String
Dim i As Integer

Do While (quale condizione?)
s = Split(Text1.Text, vbCrLf)

Text2.Text = s(i)
Text3.Text = s(i)
'...
i=i+1
Loop

funziona ma non so a che numero d'indice digli di fermarsi

[ladyBlu]

sai già quante textbox hai sul form o no?

[tas]

Originariamente inviato da emerson74
perchè in questo modo

...

funziona ma non so a che numero d'indice digli di fermarsi

Puoi sempre guardarti l'indice superiore dell'array, con la funzione UBound:

n = Ubound(s)
For i = 0 To n
   '...
Next

[emerson74]

si scusa, ho perso un po la traccia di quello che effettivamente era il programma, non scrive all'interno di tante textbox, ho copiato quanto scritto da tas che non era correttissimo......correggo:

"finto testo" ipoteticamente contenuto della textbox:
---------------------------
wdiwerfjernfòjernfref+
erfergftrgtr gtrg trgtr gtr g56 g56g
56g56 g56 g56 g56 g56 g56gy5h 76
56h67 h76 hy76 hu76u j 7878
---------------------------

quello che devo fare è mettere in un array le varie righe lette nella text ma per sapere quando il programma si deve fermare prima le deve contare

perchè in questo modo non sa quando deve uscire dal ciclo e lo dovrebbe fare dinamicamente


Dim s() As String
Dim i As Integer
s = Split(Text1.Text, vbCrLf)

Do While (quale condizione?)

mioarray(i) = s(i)
i=i+1

Loop

ecco, così è corretto, ma quale condizione va messa nel while rimane un mistero

[ladyBlu]

nel codice che ti ha postato tas, hai già un array contenente il testo... una riga per ogni indice.
nel momento in cui fai questa operazione:

s = Split(Text1.Text, vbCrLf)

stai dicendo all'array s() di mettere una riga per ogni indice. l'array si dimensiona da solo.
Quindi non ti occore un altro array in cui memorizzare le stringhe.

nella stringa di esempio postata da te avrai questo:

------------------------------------
wdiwerfjernfòjernfref+ 
erfergftrgtr gtrg trgtr gtr g56 g56g 
56g56 g56 g56 g56 g56 g56gy5h 76 
56h67 h76 hy76 hu76u j 7878 
------------------------------------
Dim s() As String 

s = Split(Text1.Text, vbCrLf)

in questo caso l'indice massimo di s sarà 3:
s(0) = "wdiwerfjernfòjernfref+"
s(1) = "erfergftrgtr gtrg trgtr gtr g56 g56g"
s(2) = "56g56 g56 g56 g56 g56 g56gy5h 76"
s(3) = "56h67 h76 hy76 hu76u j 7878"



Mi sono spiegata correttamente?