16/11/2009, 00:16
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 9 meses Puntos: 29 | |
| Respuesta: Programa separador
Es muy básico
Hacemos un bucle asignando a f los valores desde 1 hasta la longitud del texto
For f = 1 To Len(Texto.Text)
Nota: Se supone que el separador no va a tener una longitud mayor que 1 carácter. Si quieres usar un separador de varios caracteres habría que adaptarlo.
If Mid$(Texto.Text, f, 1) <> separador.Text Then
si el carácter de la posición f del texto no es un carácter separador...
lo vamos pegando en el elemento actual de la matriz manteniendo el contenido anterior del elemento
matriz(contador) = matriz(contador) & Mid$(Texto.Text, f, 1)
Espero que se entienda.
Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza! |