Programación General > Visual Basic 6.0 e inferiores

 Concatenar valores

(1/1)

casi62:
Saludos...
Espero no molestar con estas cosas.

Expico mi duda.... Tengo el siguiente codigo... la idea es concatenar el contenido de los textbox en una variable para asi al final tener un arreglo con todos los datos.

Public Function EnvioDatosPruebas()
    Dim i As Integer
    Dim aux As String
    Dim vacio As String
    vacio = ""
        For i = 0 To 3 - 1
            aux = Text1(i).Text  'obtenemos el valor del campo tipo text
            vacio &= aux & ";"                          'La idea es que aqui se concatenen los datos de aux----------->> un equivalante en php es .= para la concatenacion
        Next
        MsgBox vacio                      ' Aqui mostramos el arreglo ya concatenado
End Function

Es decir... tengo 3 text
            Text1(0)  Text1(1)  Text1(2)
Cada uno con sus valores
             5               6                  7
necesito que la variable vacio tengo 5;6;7

Claro esta que de prueba son 3 text pero necesito muchos mas por eso la idea de ponerlo en un arreglo.
Y la idea es no escribir todo esto.... vacio = Text1(0).Text & ";" & Text1(1).Text & ";" & Text1(2).Text & ";"

En espera de su apoyo.. me despido agradeciendo de antemano.... BD

F_Tanori:
En VB no existe el operador &=

Al hacer esto vacio& =
tomara la variable como Long esperando un valor de ese tipo


--- Código: Visual Basic ---vacio& = 10 
Es equivalente a hacer esto


--- Código: Visual Basic ---Dim Vacio as Long  
--- Código: Visual Basic ---Dim Vacio& 
Por lo tanto


--- Código: Visual Basic ---vacio& =  text 
Produce un error de Conversion de tipo de dato Long = String

Para concatenar hazlo de la siguiente manera


--- Código: Visual Basic ---Function EnvioDatosPruebas() Dim txt As Object Dim vacio As String  For Each txt In Me.Text1    vacio = vacio & txt & ";" Next  ' Quitar el ; Sobrante If Len(vacio) > 1 Then vacio = Mid(vacio, 1, Len(vacio) - 1) EnvioDatosPruebas = vacioEnd Function 
Saludos

Nebire:

--- Citar ---vacio &= aux & ";" 'La idea es que aqui se concatenen los datos de aux----------->> un equivalante en php es .= para la concatenacion
--- Fin de la cita ---

En vb6 tenemos Join, pero sólo se aplica a matrices de cadenas, por lo que para el resto de casos tienes que utilizar el método que indica F_Tanori


--- Código: Visual Basic --- Public Function EnvioDatosPruebas()    Dim vacio As String    Dim lista(0 To 9) As String, k As Byte    ' recreamos datos para la matriz    For k = 0 To 9        lista(k) = CStr(k)    Next     ' los unimos en una sola cadena con el separador especificado...    vacio = Join(lista, ";")    MsgBox vacio end sub  

casi62:
Saludos...

Me queda mas que claro el procedimiento a seguir.....

Les agradezco mucho sus atenciones....  :good:

Navegación

[0] Índice de Mensajes