Hola soy jilo
soy novato en vb6

quisiera saber como se graban los datos del listbox por columnas, a fichero aleatorio random
muchas gracias

Hola jilo
Para poder darte una mejor solucion tal vez podrias aclararme los siguientes puntos:
- Cuantas columnas tiene tu listbox
- El listbox es de longitud variable o siempre tiene la misma cantidad de registros
- El fichero aleatorio siempre se guardara en una misma ruta del disco duro? Cual seria esa ruta?
- Si el fichero ya existe, se sobreescribe o se crea uno nuevo con otro nombre?
- En un fichero aleatorio debes definir un separador de registros, que puede ser una coma(,), un slash(/), un espacio en blanco ( ), etc. Esto sera lo que separe cada dato (columna) uno de otro en una misma linea. Considerando el formato y los datos que tienes en tu listbox, cual separador prefieres utilizar.
- Quieres agregar un encabezado a la primera linea de tu fichero indicando el nombre de las columnas?
- Cual seria el nombre que le darias a tu fichero aleatorio y en que formato (en txt? (es el mas comun en estos casos))

Hola RoyMata, soy jilo

- Cuantas columnas tiene tu listbox
numero de registro, cantidad, producto, precio, total
- El listbox es de longitud variable o siempre tiene la misma cantidad de registros
El listbox es de longitud variable
- El fichero aleatorio siempre se guardara en una misma ruta del disco duro? Cual seria esa ruta?
app.path & "\productos"\productos.txt"
- Si el fichero ya existe, se sobreescribe o se crea uno nuevo con otro nombre?
se sobreescribe
- En un fichero aleatorio debes definir un separador de registros, que puede ser una coma(,), un slash(/), un espacio en blanco ( ), etc. Esto sera lo que separe cada dato (columna) uno de otro en una misma linea. Considerando el formato y los datos que tienes en tu listbox, cual separador prefieres utilizar.
es una coma(,)
- Quieres agregar un encabezado a la primera linea de tu fichero indicando el nombre de las columnas?
si
- Cual seria el nombre que le darias a tu fichero aleatorio y en que formato (en txt? (es el mas comun en estos casos))

productos.txt



Gracias

Hola jilo, muy bien, en ese caso lo que tienes que hacer es crear un archivo aleatorio en tu ruta de destino y luego por medio de dos bucles For (uno para recorrer cada item y otro para recorrer las 5 columnas). Supongo que lo que te interesa es la manipulacion del archivo aleatorio por lo que es ese el tema que voy a tocar. Si igual necesitas ayuda con el acceso a tu listbox solo informas.
Para crear el archivo aleatorio lo haces de esta forma:

Código:

Dim RutaArchivo as String
RutaArchivo = app.Path & "\productos"\productos.txt"
Open RutaArchivo for Output As #1

De esta forma creas el archivo y lo abres para escribirlo. Si ya existe un archivo productos.txt en la ruta entonces elimina el archivo existente y crear uno nuevo pero sin datos (listo para sobreescribirlo). Si lo que quieres es agregar nuevas lineas de texto al final de un archivo existente (en la ultima linea) debes utilizar Append en lugar de OutPut. Y si lo que quieres es abrir el archivo para leerlo utilizas InPut en lugar de OutPut.
Y luego para escribir una linea de texto en tu archivo:

Código:

Dim LineaTexto as String
LineaTexto = "Aqui tu texto recuperado de cada item del listbox"
Print #1, LineaTexto

Y finalmente debes cerrar el archivo para liberar la memoria y dejarlo disponible para un nuevo acceso:

Código:

Close #1

Hola Roymata, soy jilo

gracias por responder, pero lo que necesito es esto hacer los dos bucles For (uno para recorrer cada item y otro para recorrer las 5 columnas)
Código:
Dim RutaArchivo as String
RutaArchivo = app.Path & "\productos\productos.txt"
Open RutaArchivo for random as #1
aqui serian los dos bucles
list1
put #1, grabar list1
close

Aqui es donde no lo veo claro, gracias

Solo una consulta, estas trabajando con un listbox o con un listview? Porque en el caso del listbox se complica un poco trabajar con columnas. De ser asi te recomiendo utilizar mejor un listviewitem. La migracion de un control a otro no es nada complicada, como si lo es trabajar con columnas en un listbox.
Si tu implementacion es con listview puedo ayudarte, igual con listbox, pero si es este el caso tendrias que darme tiempo para construir un codigo que te funcione de la mejor manera