• Jueves 28 de Marzo de 2024, 22:48

Autor Tema:  Arreglos En Visual Basic 6.0  (Leído 3921 veces)

happypeace31

  • Nuevo Miembro
  • *
  • Mensajes: 14
    • Ver Perfil
Arreglos En Visual Basic 6.0
« en: Domingo 23 de Marzo de 2008, 00:32 »
0
Gracias por la ayuda anteriormente me sirvio de mucho! :D

AHORA LES VUELVO A MOLESTAR

QUIERO GUARDAR DESDE UN TEXTBOX UNA CADENA DE CARCATERES AL ARREGLO

NECESITO QUE AL INTRODUCIRSE EN EL TEXTBOX UNA CADENA DE CARCTERES EN EL ARREGLO ME LO GUADE UNA CARACTER EN CADA ESPACIO DEL ARREGLO

EJEMPLO

SI EN EL TEXBOX ESCRIBO "HOLA MUNDO"

ME LO GUARDE EN EL ARREGLO DE LA SIGUIENTE MANERA

ARREGLO (0)="H"
ARREGLO (1)="O"
.
.
ARREGLO (4)= "" QUE TAMBIEN GUARDE EL ESPACIO
.
.

ESO EL LO QUE QUIERO QUE ME AGA
MUCHAS GRACIAS DE ANTEMANO Y AYUDENME POR FAVOR :comp:

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Arreglos En Visual Basic 6.0
« Respuesta #1 en: Domingo 23 de Marzo de 2008, 21:24 »
0
Código: Text
  1.     Dim Arreglo() As String
  2.     Dim strText As String
  3.     Dim lngLenText As Long
  4.     Dim lnCnt As Long
  5.    
  6.     strText = Text1.Text
  7.     lngLenText = Len(strText)
  8.    
  9.     ReDim Arreglo(lngLenText)
  10.    
  11.     For lnCnt = 1 To lngLenText
  12.         Arreglo(lnCnt - 1) = Mid$(strText, lnCnt, 1)
  13.     Next lnCnt
  14.  
:comp:

happypeace31

  • Nuevo Miembro
  • *
  • Mensajes: 14
    • Ver Perfil
Re: Arreglos En Visual Basic 6.0
« Respuesta #2 en: Miércoles 26 de Marzo de 2008, 23:16 »
0
Gracias de nuevamente me sirvio de muchisimo