Separación en cadenas

[yeikos]

Supongamos que tengo una cadena con el valor "primeracadena trece casa adolescente", ¿cómo podría despejar en esa misma cadena las 4 palabras que están separadas por espacios ( chr(32) ) ?

[Xpeed]

lo puedes hacer cn las funciones instr() y mid() ... busca y lee de ellas, y podras separar la cadena de cuatro palabras en 4 cadenas de una palabra


un saludo.

[yeikos]

La función Mid es la que he estado usando pero si te das cuenta no todas las palabras tienen la misma longitud, por eso quiero hacer que coja las palabras que haya entre signos especiales, en este caso: espacio.

[Xpeed]

para eso es la funcion instr() , alli buscas los espacios y te devolvera dicha posicion, asi ya sabes de donde a donde va la primera palabra, luego vuelves a buscar desde la ultima posicion y así sucesivamente


un saludo.

[EstoyBaneado]

dim buf() as string
dim i as integer
buf = split("primeracadena trece casa adolescente", chr(32))
for i = 0 to ubound(buf)
msgbox buf(i)
next

Salu2.