[VB6] Divisione dati

[al-tech@123]

Ciao a tutti,

come posso dividere i dati di una textbox prima e dopo lo spazio?

Es.

text1.text = "ciao mondo"

Come posso ottenere:

text2.text = "ciao"

text3.text = "mondo"

In modo automatico?

e con un segno in mezzo tipo: "ciao|mondo" ?

Grazie

[oregon]

Studia e usa le funzioni di gestione delle stringhe ...

Comincia dalla

Split

[al-tech@123]

grazie, ho trovato questo codice:

Dim SettagiLetti As String
Dim Settaggi() As String

Private Sub Command1_Click()
SettaggiLetti = Text1.Text
Settaggi() = Split(SettaggiLetti, *)

Text2.Text = Settaggi(0)
Text3.Text = Settaggi(1)
Text4.Text = Settaggi(2)
Text5.Text = Settaggi(3)
End Sub

che divide ogni * ma come faccio a fare che divida ogni spazio?

Grazie

[al-tech@123]

ho risolto:

SettaggiLetti = Text1.Text
Settaggi() = Split(SettaggiLetti, " ")

Text2.Text = Settaggi(0)
Text3.Text = Settaggi(1)
Text4.Text = Settaggi(2)
Text5.Text = Settaggi(3)

grazie

[al-tech@123]

ho un altro problema con il codice:

se nella textbox metto meno di 4 spazi va in errore,
come posso modificare questa stringa in modo che rilevi quando ci sono 2 caratteri di quel tipo:

If InStr(1, Text1.Text, " ") > 0 Then

ho già provato a modificarla ma non funziona

Grazie

[oregon]

Va in errore cosa?

[al-tech@123]

errore 9

indice non compreso nell'intervallo

e con debug
va a una delle linee che scrivono i dati nelle textbox
es.
Text4.Text = Settaggi(2)
se ho messo un solo spazio e Text5.Text = Settaggi(3) se ne ho messi 2

se ne metto tre tutto ok,
per risolvere pensavo di mettere un if che rilevasse il numero di spazi e non eseguisse le due righe per evitare errori

soluzioni?

[al-tech@123]

aiuto!

[oregon]

Studia questa funzione

UBound
http://msdn.microsoft.com/en-us/library/aa263396(v=VS.60).aspx

e applicala all'array Settaggi dopo la Split per ottenere il valore massimo dell'indice da utilizzare. E poi utilizzalo come valore massimo di un ciclo for.

[al-tech@123]

Grazie ma dato che non sono ancora molto bravo a usare vb6 non ho capito bene e gli esempi su MSDN non mi sono molto chiari,

Potresti farmi un piccolo esempio di utilizzo?

come posso fare usando questo: ?
If InStr(1, Text1.Text, " ") > 0 Then

Grazie mille