[vb2005] dividere Stringhe Array

[spinter]

Come sempre vi ringrazio in anticipo.
ho questo problema spedisco tramite tcp una stringa ma quando la ricevo non riesco a dividerla,un mio amico mi ha detto di studiare le array allora ho fatto cosi'!


Dim Str(5) As String

Str(0) = ("ciao") & vbCrLf 'ded
Str(1) = ("Pippa") & vbCrLf 'ded
Str(2) = ("Tio") & vbCrLf 'ded
Str(3) = ("zio") & vbCrLf 'ded
Str(4) = ("cino") & vbCrLf 'ded

'-----spedisco tramite un SendMessage

SendMessage(Str(0) & Str(1) & Str(2) & Str(3) & Str(4) & Str(5)

'e ricevo tramite tcp la stringa

la stringa é= ciao Pippa Tio zio cino

cosa posso fare per leggere solo ad esempio ciao che non sempre potrebbe essere ciao ma anche ciaooo o anche 12345?

e poi ho un altro problema che le stringhe che spedisco sono circa 150

Grazie!!!

[Il Totem]

La funzione String.Split divide la stringa in base a un carattere separatore:

 Dim Str(5) As String

Str(0) = ("ciao") & vbCrLf 'ded
Str(1) = ("Pippa") & vbCrLf 'ded
Str(2) = ("Tio") & vbCrLf 'ded
Str(3) = ("zio") & vbCrLf 'ded
Str(4) = ("cino") & vbCrLf 'ded

'-----spedisco tramite un SendMessage

SendMessage(Str(0) & Str(1) & Str(2) & Str(3) & Str(4) & Str(5))

'Alla ricezione
Dim ReceivedMessage As String   'Messaggio ricevuto
Dim Parts() As String

'Divide il messaggio in base a vbCrLf
Parts = ReceivedMessage.Split(vbCrLf)
'Quindi Parts(0) sarà "ciao", Parts(1) "Pippa" eccetera

[spinter]

Grazie totem provo subito!!!

[spinter]

Funziona!!

Sei un Grande grazie!!