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
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.
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
era lo que buscaba, gracias
para pasar una cadena de texto a un array en el que podamos manejarlo caracter a caracter este seria el 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.