Extraer parte del texto, de una cadena de caracteres de un tex box...

[angelcont22]

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.

[xkiz ™]

Código (vb) [Seleccionar] Expandir


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


[angelcont22]

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.

[TGa.]

xkiz te dio un ejemplo solo lo tienes que adaptar a tu proyecto, por ejemplo asi

Código (vb) [Seleccionar] Expandir

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

[angelcont22]

Disculpen mio tardanza en regresar, el tema esta resuelto.

[79137913]

HOLA!!!

Esto fue una clara TAREA.

GRACIAS POR LEER!!!