17/11/2005, 16:13
| ||||
| ||||
 Problemas con palabra a palabra Partiendo del ejemplo de las faqs, he implementado este código: Dim Contador As Integer Texto = Text1.Text ' cadena string For Contador = 1 To Len(Texto) Text2.Text = Mid(Texto, Contador, 1) + "[Añadir]" Next Contador Lo que debo hacer es leer el contenido de Text1 palabra a palabra y en text2 mostrar el texto de texto de text1 más el string [Añadir], pero sin embargo no funciona correctamente. ¿Alguien sabe que es lo que no hago bien?  Gracias!!!
__________________ Un saludo, MeXiCaN :golpeado: :adios: Poco es tanto, cuando poco necesitas. E.Bunbury Siempre que haya una causa noble por la que luchar, siempre habrá ladrones que la apoyarán. |
|
17/11/2005, 16:23
| ||||
| ||||
| Que Ingreso Entra Y Como Queres Que Se Vea... Nos Vemos..
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ Sitio http://www.geoavila.com twitter: @GeoAvila |
|
17/11/2005, 16:28
| ||||
| ||||
| Por ejemplo: // Contenido de text1 La casa de mi prima es de color verde. GeoAvila vive en el servidor por eso esta pendiente de las dudas que le escribo......... Salida: // Contenido de text2 La[Añadido] casa[Añadido] de[Añadido] mi[Añadido] prima[Añadido] es[Añadido] de[Añadido] color[Añadido] verde[Añadido]. GeoAvila[Añadido] vive[Añadido] en[Añadido] el[Añadido] servidor[Añadido] por[Añadido] eso[Añadido] esta[Añadido] pendiente[Añadido] de[Añadido] las[Añadido] dudas[Añadido] que[Añadido] le[Añadido] escribo[Añadido]. Muchas Gracias GeoAvila  
__________________ Un saludo, MeXiCaN :golpeado: :adios: Poco es tanto, cuando poco necesitas. E.Bunbury Siempre que haya una causa noble por la que luchar, siempre habrá ladrones que la apoyarán. |
|
17/11/2005, 18:20
| |||
| |||
| Dim Contador As Integer Texto = Text1.Text ' cadena string For Contador = 1 To Len(Texto) Text2.Text = text2.text & " " & Mid(Texto, Contador, 1) + "[Añadir]" Next Contador
__________________ Buby Systems |
|
18/11/2005, 00:48
| |||
| |||
| Dim X As Integer Dim palabras As Variant palabras = Split(Text1.Text) For X = 0 To UBound(palabras) Text2.Text = Text2.Text & " " & palabras(X) + " [Añadir]" Next X La respuesta anterior estaba mal Aca lo que hacemos es ingresar en una matris todas las palabras y despues la agregamos al textbox
__________________ Buby Systems |
|
18/11/2005, 03:46
| ||||
| ||||
| Es la leche, funciona perfectamente. Muchas Gracias y que Dios te lo pague con muchos hijos!!!
__________________ Un saludo, MeXiCaN :golpeado: :adios: Poco es tanto, cuando poco necesitas. E.Bunbury Siempre que haya una causa noble por la que luchar, siempre habrá ladrones que la apoyarán. |
|
18/11/2005, 08:24
| ||||
| ||||
| bueno llegue tarde a la repuesta pero que bien que re funciono.. nos vemos..
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ Sitio http://www.geoavila.com twitter: @GeoAvila |
