Guardar cadena en Array (VB6)

[chan]

Hola! tengo el siguiente problema que no puedo resolver: Supongamos que en una caja de texto ingreso un cadena, ¿como hago para poner la primer palabra en la primer posición del array, la segunda palabra en la segunda posición y así sucesivamente?

[pablinweb]

Dim mCadena() as string 'Declaro la matriz con () porque no sé cuantas palabras tiene el string
mCadena = Split("Hola Chan, como te va", " ")'Desarmo el string con el separador de " " (un espacio en blanco)
'mCadena(0) contiene "Hola".
'mCadena(1) contiene "Chan,".
'mCadena(2) contiene "como".
'mCadena(3) contiene "te".
'mCadena(4) contiene "va".

[chan]

Gracias, funciona perfecto!

[buji]

Se podria hacer algo parecido solo que en lugar de dividir la cadena en espacios en blanco utilizar una longitud fija?

Osea, dividir la cadena cada 10 caracteres sin importar cual es?

Muchas Gracias.

[erbuson]

Hola, para hacer lo que quieres pudes utilizar una funcion similar a esta, que te devuelve una matriz de elementos, figamos que funcionaría de la manera similar a Split

Código vb:

Private Function SubCadenas(ByVal Cadena As String, Bytes As Integer) As String()
  Dim Temp() As String
  Dim i As Integer
  Do While Cadena <> ""
    ReDim Preserve Temp(i)
    Temp(i) = Left$(Cadena, Bytes)
    i = i + 1
    Cadena = Mid$(Cadena, Bytes + 1)
  Loop
  SubCadenas = Temp
End Function
 

Ejemplo:

Matriz() = SubCadenas("Estos es una prueba de subcadenas", 3)

[buji]

Gracias, lo probaré haber como funciona!

Un saludo!

[Carlangueitor]

Si te quedan dudas sobre este problema abre un tema nuevo, no hay que revivir temas tan viejos. Cierro este tema.

Saludos