[Vb6] Scomporre una String

[quartutek]

Ciao

Ho una stringa del tipo :

nome^cognome

io vorrei seperarla in nome cognome come faccio?

[chipdb]

varNome = Left$ (strNomeCognome, inStr (, strNomeCognome, "^"))
varCognome = Right$ (strNomeCognome, Len(strNomeCognome) - inStr (, strNomeCognome, "^"))

Ciao

[quartutek]

Ho scoperto che c'è la funzione
Split(espressione[, delimitatore[, conteggio[, confronto]]])
come faccio se per esempio vorrei nome in una text1 e cognome in text2?

[quartutek]

Ok risolto

Dim strSplit() As String

strSplit = Split("nome^cognome", "^")
Text1 = strSplit(0)
Text2 = strSplit(1)