Tema destacado: Entra al canal IRC oficial de #elhacker.net
 Autor
|
Tema: Extraer parte del texto, de una cadena de caracteres de un tex box... (Leído 1,872 veces)
|
angelcont22
 Desconectado
Mensajes: 32
|
Saludos amigos de este formidable foro....
Aca tengo una pequeña duda:
Necesito Extraer por separados cuatro partes de una cedena de texto que se encuentran en una caja de texto, de alli que cada una de estas vallan hacia otras cajas de texto que son el destino asignada, de cada una de estas extracciones.
Boy con el ejemplo:
En un text1 me llega desde una base de datos conectada a un control Adodc1. el nombre de una persona:
Text1 = "Angel Luis Contreras Rincon"
En esta cadena el primer nombre, el segundo nombre, el primer apellido, el segundo apellido son parte de la cadena de ese text1....Ahora
???Como extraigo de ese text1 la parte de "Angel" el primer nombre.
???Como extraigo de ese text1 la parte de "Luis" el Segundo nombre.
???Como extraigo de ese text1 la parte de "Contreras" el primer Apellido.
???Como extraigo de ese text1 la parte de "Rincon" el segundo apellido.
Necesito llevar cada uno a una variable y de alli a un nuevo text, que quedara identificado como su contenedor especifico.
Conclusión: como extraigo cada uno de estos.
|
|
|
|
|
En línea
|
|
|
|
|
xkiz ™
|
Private Sub Form_Load()
Dim str() As String
str = Split(Text1, " ")
For i = LBound(str) To UBound(str)
Debug.Print str(i) & ", " & i
Next
End Sub
|
|
|
|
|
En línea
|
 xkiz ™ [♠] [ ♦] [♣] [ ♥] |
|
|
angelcont22
Desconectado
Mensajes: 32
|
Disculpa amigo, pero esto no me lleva a una solución no arroja o hace nada.
Mira, Busco es traer los datos del text1 cada uno por separado hasta un nuevo text, que para el caso seran:
TxtPrimerNombre
TxtSegundo Nombre
TxtPrimerApellido
TxtSegunhdoApellido
De aca iran a traves de un recorsed Adodc1 a la BD ACCESS, cada uno en su respectivo campo. Estos es con el fin de crear filtros para el primer y segundo nombre, como tambien para el primer y sgundo apellido.
Quizas lo que me has escrito es solo parte de la solución que busco. Por favor solicito de ustedes.
|
|
|
|
|
En línea
|
|
|
|
TGa.
Desconectado
Mensajes: 43
|
xkiz te dio un ejemplo solo lo tienes que adaptar a tu proyecto, por ejemplo asi Private Sub Form_Load()
Dim str() As String
Dim i As Byte
str = Split(Text1, " ")
For i = LBound(str) To UBound(str)
Select Case i
Case 0
txtPrimerNombre.Text = str(i)
Case 1
txtSegundoNombre.Text = str(i)
Case 2
txtPrimerApellido.Text = str(i)
Case 3
txtSegundoApellido.Text = str(i)
End Select
Next
End Sub |
|
|
|
|
En línea
|
|
|
|
angelcont22
Desconectado
Mensajes: 32
|
Disculpen mio tardanza en regresar, el tema esta resuelto.
|
|
|
|
|
En línea
|
|
|
|
79137913
 Conectado
Mensajes: 780
4 Esquinas
|
HOLA!!!
Esto fue una clara TAREA.
GRACIAS POR LEER!!!
|
|
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas" 79137913 *Shadow Scouts Team* Resumenes Cs.Economicas |
|
|
|
 |
