Tengo una cadena: "A D C9" (como ejemplo) y necesito a través de un bulce FOR sacar una por una los caracteres sin los espacios, o sea..., obtener A, luego D y luego C9.
¿como lo puedo hacer?
saludos y gracias
| |||
manipular cadenas... Tengo una cadena: "A D C9" (como ejemplo) y necesito a través de un bulce FOR sacar una por una los caracteres sin los espacios, o sea..., obtener A, luego D y luego C9. ¿como lo puedo hacer? saludos y gracias |
| ||||
disculpa.. pero estaba bien jodido con algo en el trabajo.. pero aqui esta la respuesta.. el ejemplo lo hice para un maximo de 10 separaciones de la cadena..
Código:
nos vemos espero te sirva.. Dim A As String Dim Numb As Integer Dim b As Integer Dim NumAsc As String Dim Cadenas(10) As String Dim Micadena As String Dim UltimaCad As Integer A = "A B C9" 'Se Asinga el Valor o La Candena Inicial Numb = Len(A) ' contamos cuantos Caracteres tiene la Candena For b = 1 To Numb ' Creamos el Ciclo NumAsc = ootxet & Mid(A, b, 1) ' Declaramos buscamos letra a letra.. If b = 1 Then UltimaCad = 1 'si es el primer cilo lo declaramos como la primera cadena End If If NumAsc = " " Then Micadena = "" ' limpie la cadena si hay espacio UltimaCad = UltimaCad + 1 ' ' Agregue una nueva cadena Else Micadena = Micadena & NumAsc 'Crea cadena cuano no hay espacio Cadenas(UltimaCad) = Micadena ' Asigna cadena al Array End If Next b MsgBox Cadenas(3) 'Mostrar cadena No. en este caso la 3 y seria C9
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ Sitio http://www.geoavila.com twitter: @GeoAvila |