Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: GrTk en 22 Abril 2007, 01:35 am

Título: convertir text box en array
Publicado por: GrTk en 22 Abril 2007, 01:35 am

mi pregutna es si hay alguna funcion que me devuelva
el caracter de un text box, indicando la posicion del caracter.
Ejemplifico.

text1.text = "hola mundo"

a = funcion(text1.text,1)

en este caso a = "h"

text1.text = "hola mundo"

a = funcion(text1.text,4)

en este caso a = "a"

lo pense haciendo primero un right y luego un left, pero no se
si hay una operacion que directamente lo haga.
saludos

Título: Re: convertir text box en array
Publicado por: rob1104 en 22 Abril 2007, 03:23 am

Talvez te sirva la funcion Mid

Mid (cadena, inicio, longitud)

El parámetro cadena es la cadena a extraer caracteres. El parámetro Inicio es donde comenzar y el parámetro longitud, es la cantidad de caracteres a extraer de la cadena de caracteres.

La puedes usar de esta forma.

Código:

Private Sub Command1_Click()
    Dim a As String
    a = Mid(Text1.Text, 4, 1)
    MsgBox a
End Sub

Asi te mostrara el cuarto caracter del contenido de text1.text

Saludos

Título: Re: convertir text box en array
Publicado por: GrTk en 22 Abril 2007, 04:08 am

era lo que buscaba, gracias

Título: Re: convertir text box en array
Publicado por: yovaninu en 22 Abril 2007, 20:57 pm

para pasar una cadena de texto a un array en el que podamos manejarlo caracter a caracter este seria el código:

Código:


Dim ArrayC(1 To 15) As String 'el array
Dim Cadena As String 'la cadena a separar letra a letra
Dim CadAux As String 'auxiliar


Cadena = "Hola" 'cualquier cadena
 For i = 1 To Len(Cadena)
   CadAux = Left(Cadena, i)
   ArrayC(i) = Right(CadAux, 1)
 Next
 
'mostramos letra por letra
MsgBox ArrayC(1)
MsgBox ArrayC(2)
MsgBox ArrayC(3)
MsgBox ArrayC(4)

espero sirva.