SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: fantasma_85 en Viernes 28 de Marzo de 2008, 20:57

Título: Imprimir Posiciones Impares+pares De Una Cadena
Publicado por: fantasma_85 en Viernes 28 de Marzo de 2008, 20:57

hola nuevamente....

tengo otra duda con los caracteres...


Private Sub Command1_Click()

cadena= txt1.text

X = Len(cadena)

txt2.Text = X

End Sub


mi cadena es ESTUDIOS, tengo en total 8 caracteres, como le hago para imprimir en un txt3.text primero todas las posiciones impares y luego los pares

de tal manera que en mi txt3.text quede de esta manera:

ETDOSUIS

 y so lo hago con un array, como mando a imprimir las posiciones impares y luego las impares??

Título: Re: Imprimir Posiciones Impares+pares De Una Cadena
Publicado por: F_Tanori en Sábado 29 de Marzo de 2008, 00:46

Prueba de esta manera

Código: Text

1. Function PrimeroImpares(cadena As String)
2. Dim pares, impares, c As Integer
3. For c = 1 To Len(cadena)
4.     If (c Mod 2) = 0 Then
5.         pares = pares & Mid(cadena, c, 1)
6.     Else
7.         impares = impares & Mid(cadena, c, 1)
8.     End If
9. Next c
10. PrimeroImpares = impares & pares
11. End Function
12.  

Saludos