concatenacion a una variable desde txt

[sepulman]

Hola amigos del foro. Tengo un pequeño problema en visual basic 6.0.
Les cuento: tengo que leer una linea desde un archivo de texto. (eso lo se hacer) . Despues tengo que asignar a una variable numerico o texto todos los caracteres hasta que encuentre una coma, despues avanzar un caracter mas , y leer de nuevo hasta que encuentre una coma nuevamente..
hay alguna funcion o algo parecido que me haga eso...
no se si fui muy claro pero ahi les va un ejemplo.


archivo de texto
12520,descripcion,11002,ciudad

quede en las sgtes variables

var1= 12520
var2= descripcion
var3= 11002
var4= ciudad

Ojala me puedan ayudar

[RootK]

Ya intentaste con algo como esto:

Supongamos que Texto tenga las siguientes palabras

Texto = "uno,dos,tres"

coma = Split(Texto, ",")

y para obtener los valores lo harías así...:

coma(0) = "uno"
coma(1) = "dos"
coma(2) = "tres"

Saludos y suerte...

[lmg7]

Che!. Que buena ésta función!!!!

[sepulman]

rootk me sorprendes
pero tengo una pequeña consulta

yo estoy recibiendo asi los valores.

1201,"descripcion","otra descripcion"

y en estos momentos la variable me queda asi :

var(0) = 1201
var(1) = "descripcion"

pero necesito sacarle el "comillas" para que no lo guarde asi en la BD.
Alguien tendria alguna sugerencia

[aesparzav]

La tienes facil, usa la función Replace que viene con el VB6,
puedes consultar las ayudas, pero ahi te va:

Replace(expresion, cadenabuscada, reemplazarcon)

si reemplazarcon es una cadena nula, devuelve expresion con todas las ocurrencias de cadenabuscada removidas.

por ejemplo:

las comillas dobles tienen el codigo ascii 34, esa es la cadena buscada.

si strLinea = 1234,"Descripcion",567,"Otra cosa mas"

strLinea = Replace(strLinea, Chr(34), "")


strLinea=1234,Descripcion,567,Otracosa mas

A partir de ahi, puedes usar Split como ya te dijeron antes.

Espero te sirva!

[sepulman]

aesparzav :

Gracias por la sugerencia, la verdad es que no la alcance a probar ya que probe con lo sgte:

cadena = Split(linea, ",")

ahi estaba bien, ahora para sacar las comillas de adelante y al final hice lo sgte :

var_texto = Mid(cadena(1), 2) 'saco la primera comillas
var_cadena = Split(var_texto, """") 'saco las ultimas


me di una pequeña vuelta , creo que es mas optimo lo que dices tu.

Gracias a todos por sus sugerencias y/o/u ideas