Programación General > Visual Basic 6.0 e inferiores

 Imprimir Posiciones Impares+pares De Una Cadena

(1/1)

fantasma_85:
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??

F_Tanori:
Prueba de esta manera


--- Código: Text ---Function PrimeroImpares(cadena As String)Dim pares, impares, c As IntegerFor c = 1 To Len(cadena)    If (c Mod 2) = 0 Then        pares = pares & Mid(cadena, c, 1)    Else        impares = impares & Mid(cadena, c, 1)    End IfNext cPrimeroImpares = impares & paresEnd Function 
Saludos

Navegación

[0] Índice de Mensajes