Autor Tema: Se Me Ha Olvidado (Leído 1814 veces)

ElNapster · « **en:** Martes 16 de Enero de 2007, 19:52 »

Perdon por esta preguntita pero en realidad no me recuerdo como se hace esto... si yo tengo este string "10,11,120,13" y yo quiero sacar cada parte del string para que quede asi :
"10"
"11"
"120"
"13"
para yo por cada numero y haga un proceso igual pero le envio como parametro el numero que acabo de obtener ... como elaboro ese proceso ....

Gracias por la ayuda...

albertovicat

Si querés hacer un proceso propio tuyo, creo que es un ejercicio interesante. Pero VB6 tiene una función para eso:

Vari = Split("10,11,120,13", ",")

Esto crea un array Vari(0 To 3) que contendrá:

Vari(0) = "10"
Vari(1) = "11"
Vari(2) = "120"
Vari(3) = "13"

El segundo argumento después de la coma que sigue a la comilla doble después del 13, y que está a su vez entre comillas dobles, es la coma que sirve como separador en tu caso. Confunde un poco

lo de comas y comillas, suponte que tus números estuvieran separados por una x minúscula, entonces sería:

Vari = Split("10x11x120x13", "x") ... creo que ahora se entiende mejor.

Saludos

mamex

Hola que tal, mira para poder separar cada elemento, cuya separación es una coma yo desarrollé ésta función, y cada elemento lo mete en un collection, que es lo que te regresa la función. Espero y te sirva.

Código: Text

 
'De un string, que tiene elementos separados por comas, los saca y los mete en un collection
Public Function separaElementosPorComa(texto As String) As Collection
    Dim inic As Integer, coma As Integer
    Dim a As Collection
    Dim elemento As String
    Set a = New Collection
    inic = 0
    coma = 1
    While coma &#60;&#62; 0
        coma = InStr(inic + 1, texto, &#34;,&#34;)
        'Si encontró la coma
        If coma &#62; 0 Then
            elemento = Trim(Mid(texto, inic + 1, coma - inic - 1))
        Else
            elemento = Trim(Mid(texto, inic + 1, Len(texto) - inic))
        End If
        If elemento &#60;&#62; &#34;&#34; Then a.Add elemento
        inic = coma + 1
    Wend
    Set separaElementosPorComa = a
End Function
 
 

A ésta parte no te entendí

Citar

para yo por cada numero y haga un proceso igual pero le envio como parametro el numero que acabo de obtener ... como elaboro ese proceso ....

ElNapster

Gracias amigos .... me ha servido de mucho con respecto a esto

Código: Text

para yo por cada numero y haga un proceso igual pero le envio como parametro el numero que acabo de obtener ... como elaboro ese proceso ....   
 

esque por cada data que obtenga del string tengo que hacer un rutina que recibira como parametro el dato que estoy obteniendo , y luego obtengo el siguiente dato del string y se lo vuelvo a enviar a la rutina y asi sucesivamente.....

Gracias......

mamex

Ok, pues ya está fácil, si ocupas mi función lo harias de ésta manera:

Código: Text

 
Private Sub principal()
    Dim elementos As Collection
    Dim elem
    Set elementos = separaElementosPorComa(&#34;10,11,120,13&#34;)
    For Each elem In elementos
         rutina (elem)
    Next
End Sub
 
 

OJO, al parecer me equivoqué en la línea

Citar

inic = coma + 1
Wend
Set separaElementosPorComa = a
End Function

En vez de ser

Código: Text

 
       inic = coma + 1

tiene que ser

Código: Text

 
       inic = coma

ElNapster

Sip ya lo hice asi ... gracias amigo

SoloCodigo

Autor Tema: Se Me Ha Olvidado (Leído 1814 veces)

ElNapster

Se Me Ha Olvidado

albertovicat

Re: Se Me Ha Olvidado

mamex

Re: Se Me Ha Olvidado

ElNapster

Re: Se Me Ha Olvidado

mamex

Re: Se Me Ha Olvidado

ElNapster

Re: Se Me Ha Olvidado