Sezionare una Frase

Con VB6 per sezionare una frase ed ottenere le singole parole che la compongono bisogna usare la funzione SPLIT. Questa funzione restituisce una matrice a una dimensione con base zero contenente il numero di sottostringhe specificato.

Inserire in un Form un CommandButton e questo codice di esempio:

Option Explicit

Private Sub Command1_Click()
Dim testo As String, x() As String, i As Integer

testo = "BARI 1 12 3 25 36"
x() = Split(testo)
For i = 0 To UBound(x)
    If x(i) <> "" Then Print x(i)
Next i
testo = "FIRENZE 21 33 45 6 72"
x() = Split(testo)
For i = 0 To UBound(x)
    If x(i) <> "" Then Print x(i)
Next i
End Sub

Testato su: Tutti i Sistemi operativi