Problema con array

[korg1988]

Hola amigos creo que esto va a ser facil para ustedes pero yo soy nuevo en visual y por ahi hay cosas que no se manejar, lo que necesitaria saber es como separar los valores de un array en otro array por ejeplo

matriz = array("hola", "como", "va")
ahora que funcion deberia usar para que haga el mismo funcionamiento que el explode de php?

o sea que me divida matriz en 3 pedasos

nueva_matriz(1) = hola
nueva_matriz(2) = como
nueva_matriz(3) = va

muchas gracias de ante mano espero que me ayuden es urgente para un trabajo de la escuela

[c_keeper]

Ummm no es necesario un paso intermedio.

Fijate:

Código:

matriz = Array("hola", "como", "va")

MsgBox matriz(0)
MsgBox matriz(1)
MsgBox matriz(2)

Saludos.

[korg1988]

perdon yo me he expresado mal no se en que pensaba en ese momento jaja perdon, lo que necesito es hacer un array de una cadena ejemplo
el contenido estaria en una variable

variable = "hola como va"
y yo necesitaria separar los tres valores

matriz(1) = "hola"
matriz(2) = "como"
matriz(3) = "va"

usando como separador en este caso el espacio " " pudiendo ser este cualqueir simbolo "-" "\" y asi

gracias por su ayuda
espero una respuesta

[c_keeper]

Aaaah , ya decía yo ! jeje

Pues ahora mismo no estoy del todo seguro pero yo diría que no hay una función en Visual Basic equivalente a la de PHP.

Aunque parezca que no, PHP permite muchas más virguerias que la mayoría de lenguajes de programación (adoro PHP )

Bueno, yo lo haría manualmente, mirando caracter a caracter la cadena inicial. Si el caracter es diferente de " " lo añado al actual elemento de la array, si el caracter es " " simplemente incremento en uno el indice.

Espero haberte sido de ayuda
Saludos

[korg1988]

soy nuevo en visual B, si por favor me podrias dar un ejemplo escrito te agradeceria muchisimo

[ReViJa]

Eso lo consigues con la función Split

Código:

Private Sub Form_Load()
Dim matriz() As String, variable As String
Dim x As Integer

variable = "hola como va"
matriz = Split(variable, " ")

For x = LBound(matriz) To UBound(matriz)
  Debug.Print matriz(x)
Next
End Sub

Saludos

[korg1988]

Muchas gracias amigo pues se me complico un poco, cuando hago el split pongo como separador lo siguiente

matriz = split(variable, " - $")

y cuando imprimo el array solamente me muestra la matriz(0) y con todo el contenido sin separar, y la Matriz(1) en adelante vacias

que podra suceder ?

mi codigo es el siguiente
donde nombres e ingresos son dos cajas de texto

Código:

Private Sub editar_boton_Click()
    
    Dim matriz() As String, variable As String
    Dim x As Integer
    
    seleccionado = listado.List(listado.ListIndex)
    
    matriz = Split(seleccionado, " - $")
    
    nombre = matriz(0)
    ingresos = matriz(1)
        
        
End Sub

muchas gracias espero su ayuda

[ReViJa]

Si no muestras la cadena que le pasas al Split no te puedo ayudar, mira en la ayuda si acepta caracteres especiales por que una cosa es lo que pedías arriba y otra la que pides ahora