[VB6] Spezzare una variabile numerica

[Antagonista]

Salve a tutti,
ho una variabile con un numero di 5 cifre
vorrei poter spezzare questa variabile per averne 5 di una sola cifra.
In php io uso la funzione split ma in vb6 non so.
Mi potete aiutare?
Deevo poter manipolare ogni numero della variabile.
Grazie 1000

[Boolean]

in VB, la Split funziona solo se la stringa è delimitata da un separatore che non sia una stringa nulla...
pertanto se hai questa esigenza la funzione te la devi creare.

eccone una che fa quello che ti serve:

Function SplitEx(Valore As Variant) As Variant
Dim s() As String
ReDim s(Len(Valore) - 1)
For K = 1 To Len(Valore)
    s(K - 1) = Mid$(Valore, K, 1)
Next K
SplitEx = s
End Function

la funzione restituisce un array contentente un numero di elementi pari al numero dei caratteri dell'argomento passato.

la puoi usare così:

Dim A As String
Dim B() As String
A = "12345"
B = SplitEx(A)

Boolean

[mgmg]

Non credo che la funzione split presente anche in visual basic funzioni se i numeri sono contigui.

Esempio di split:

Const Numeri As String = "1 2 3 4 5"
Dim Num() As String
Dim I As Integer

Num = Split(Numeri, " ")

Esempio di codici contigui

Const Numeri As String = "12345"
Dim num(1 To 5) As Integer 
Dim I As Integer

For i = 1 To 5
  Num(I) = mid(numeri,I,1)
next

Ciao

PS: Scusa Boolean non avevo visto la tua risposta

[Boolean]

ciao mg, e di che ?

sempre meglio una conferma che una smentita, no?!

Boolean

[Antagonista]

Grazie ragazzi....precisi e puntuali come sempre.