Autor
|
Tema: Extraer parte del texto, de una cadena de caracteres de un tex box... (Leído 12,227 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
|
|
|
|
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
Desconectado
Mensajes: 1.169
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*
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Corta cadena de texto segun el imete de caracteres
Programación Visual Basic
|
andrer03
|
5
|
4,100
|
31 Marzo 2011, 08:43 am
por andrer03
|
|
|
Batch que lea un texto y que cree otro con nombre parte del texto
Scripting
|
kakodt
|
1
|
3,658
|
27 Enero 2012, 21:10 pm
por Eleкtro
|
|
|
Extraer trozos de una cadena de texto en C
Programación C/C++
|
davidnew
|
8
|
29,435
|
10 Abril 2012, 15:57 pm
por Synth3tik0
|
|
|
Borrar parte de un texto en una cadena en C
Programación C/C++
|
Goddamn
|
1
|
3,432
|
24 Julio 2016, 04:26 am
por engel lex
|
|
|
extraer texto de una cadena (1 sola línea)
Scripting
|
nniki999
|
0
|
4,902
|
26 Octubre 2016, 13:02 pm
por nniki999
|
|