Autor Tema: DE LIST1 A TXT (Leído 3690 veces)

bobo · « **en:** Jueves 23 de Octubre de 2008, 02:49 »

Buenas, ncesito guaradar info de un list a un txt como lo hago.- Expliquenlo como para mi "bobo"
gracias

m0skit0

Con txt supongo que te refieres a un fichero de texto. Sé más explícito la próxima vez, por favor.

Para recorrer la lista puedes hacer:

Código: Visual Basic

For i=1 to List.ListCount
    Debug.Print List.List(i)
Next i
 

Verás que te salen los datos en la ventana de inmediato de VB6.

Para crear un fichero de texto, puedes hacer:

Código: Visual Basic

Dim Fichero_Texto As Integer
Dim Ruta_Fichero As String
Fichero_Texto = FreeFile()
Open Ruta_Fichero For Output As Fichero_Texto
 

Siendo Ruta_Fichero la ruta del fichero a crear. Para escribir una línea:

Código: Visual Basic

Dim Datos As String
Datos = "Cosas que escribir"
Write Fichero_Texto, Datos
 

Cuando termines, no olvides cerrar el fichero con

Código: Visual Basic

Close Fichero_Texto
 

Espero que con esto te haya aclarado algo. Un saludo.

Jimbenit

Cita de: "bobo"

Buenas, ncesito guaradar info de un list a un txt como lo hago.- Expliquenlo como para mi "bobo"
gracias

Bueno yo te entiendo que tienes unos datos en un ListBox (Cuadro de lista) y los quieres guardar en un bloc de Notas (archivo con extension *.txt).

Te regalare dos de mis "super funciones" , estas funciones colocalas en un Modulo Estandar:, Te serviran para cualquier proyecto que hagas

Código: Text

Function LeerDatoMATRIZ(Colum As Long, Fila As Long, RutaArchivo As String) As Variant
'Lee datos de una cadena separada por comas.. ejemplo:
' xxxxx, xxxxx, xxxxx , xxxxx, etc...
Dim NumLine As Long
Dim Cadena1 As String
Dim Cadena As String
Dim Dato As Variant
 
If Dir(RutaArchivo) = "" Then       'Comprueba si existe archivo, en caso de no existir, lo crea.
    Open RutaArchivo For Output As #1
    Print #1, " "
    Close #1
End If
    
    
 
Open RutaArchivo For Input As #1        'Copia la fila completa en la variable cadena
While Not EOF(1)
    Line Input #1, Cadena1
    NumLine = NumLine + 1
    If NumLine = Fila Then
        Cadena = Cadena1
    End If
Wend
Close #1
        
        Dim NumLet As Long
        Dim Cont As Long
        Dim Letr As String
        Dim PosComas() As Long
        Dim NumCarac As Long
 
        NumLet = Len(Cadena)
        For i = 1 To NumLet     'Cuenta las comas dentro de la cadena
            Letr = Mid(Cadena, i, 1)
            If Asc(Letr) = 44 Then
                Cont = Cont + 1
            End If
        Next i
 
        If Colum > Cont + 1 Then Exit Function  'Columna vacia
 
        ReDim PosComas(Cont)
        Cont = 0
        For i = 1 To NumLet     'Coloca las posiciones de las comas dentro del vector
            Letr = Mid(Cadena, i, 1)
            If Asc(Letr) = 44 Then
                Cont = Cont + 1
                PosComas(Cont) = i
            End If
        Next i
 
        If Colum = UBound(PosComas()) + 1 Then         'Escribe el dato buscado en la variable dato
            Dato = Mid(Cadena, PosComas(Colum - 1) + 1)
        Else
            Dato = Mid(Cadena, PosComas(Colum - 1) + 1, PosComas(Colum) - 1 - PosComas(Colum - 1))
        End If
    
            'El siguiente bloque de código elimina las comillas
            'del principio y final de la variable Dato.
        NumLet = Len(Dato)
        If Left(Dato, 1) = Chr(34) Then
            Dato = Mid(Dato, 2)
        End If
        NumLet = Len(Dato)
        If Right(Dato, 1) = Chr(34) Then
            Dato = Mid(Dato, 1, NumLet - 1)
        End If
        
 
LeerDatoMATRIZ = Dato
 
 
End Function
 
 
 
Sub EscribirDatoMATRIZ(Colum As Long, Fila As Long, Dato As Variant, RutaArchivo As String)
'Guarda datos en un bloc notas en forma de comas... utiliza el bloc
'como una matriz ordenada por filas y columnas... [Mayo 5 / 2008]
 
Dim Contador As Double
Dim Vector() As Variant
Dim Caracter As String
Dim Max As Double
Dim Linea As Long
Dim Cadena As String
Dim NumLet As Long
Dim Letr As String
Dim Cont As Long
Dim PosComas() As Long
Dim Pedazo1 As String
Dim Pedazo2 As String
Dim Comas_Add As Long
 
If Dir(RutaArchivo) = "" Then           'Comprueba si existe archivo, en caso de no existir, lo crea.
    Open RutaArchivo For Output As #1
    Print #1, " "
    Close #1
End If
 
Linea = Fila
 
For j = 1 To 2          'Introduce todas las lineas del Bloc notas en un Vector llamado Vector()
    Open RutaArchivo For Input As #1
    While Not EOF(1)                'Cuenta las lineas del Bloc Notas
        Line Input #1, Caracter
        i = i + 1
        If j = 1 Then
            Contador = i
        ElseIf j = 2 Then       'Si j = 2 , se escriben las lineas dentro del vector
            Vector(i) = Caracter
        End If
    Wend
    Close #1
    If j = 1 Then
        If Linea > Contador Then        'Define el tamaño del vector
            ReDim Vector(1 To Linea)
            Max = Linea
        Else
            ReDim Vector(1 To Contador)
            Max = Contador
        End If
        i = 0
    End If
Next j
 
 
For i = 1 To Max        'Obtiene la fila en string separada por comas
    If i = Fila Then
        Cadena = Vector(i)
    End If
Next i
 
            'Obtención de las posiciones de las comas
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
        NumLet = Len(Cadena)
        For i = 1 To NumLet     'Cuenta las comas dentro de la cadena
            Letr = Mid(Cadena, i, 1)
            If Asc(Letr) = 44 Then
                Cont = Cont + 1
            End If
        Next i
 
        If Colum > Cont + 1 Then        'Columna vacia
            Comas_Add = Colum - (Cont + 1)
            For i = 1 To Comas_Add
                Cadena = Cadena & ", "
            Next i
            Cont = Colum - 1
        End If
        
        NumLet = Len(Cadena)
        ReDim PosComas(Cont)
        Cont = 0
        For i = 1 To NumLet     'Coloca las posiciones de las comas dentro del vector
            Letr = Mid(Cadena, i, 1)
            If Asc(Letr) = 44 Then
                Cont = Cont + 1
                PosComas(Cont) = i
            End If
        Next i
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 
'Añadiendo el dato a la cadena [Elimina el dato anterior en esa posición]
If Cont = 0 Then
    Cadena = Dato
ElseIf Colum = 1 Then                           'Coloca el dato al principio
    Cadena = Dato & Mid(Cadena, PosComas(1))
ElseIf Colum = UBound(PosComas()) + 1 Then      'Coloca el dato al final
    Cadena = Mid(Cadena, 1, PosComas(Colum - 1)) & Dato
Else
    Pedazo1 = Mid(Cadena, 1, PosComas(Colum - 1))
    Pedazo2 = Mid(Cadena, PosComas(Colum))
    Cadena = Pedazo1 & Dato & Pedazo2
End If
 
'Escribiendo en el Bloc Notas
Open RutaArchivo For Output As #1
For i = 1 To Max
    If i = Linea Then
        Vector(i) = Cadena
        Print #1, Vector(i)
    Else
        Print #1, Vector(i)
    End If
Next i
Close #1
 
 
 
End Sub
 
 

A continuacion coloca esto en el evento que quieras, por ejemplo, en un CommandButton1_Click:

Código: Text

Private Sub Command1_Click()
Dim i As Long
Dim Ruta As String
 
Ruta = "C:MiTexto.txt"     'Dale una direccion valida de ruta
 
'Este "For" lee los elementos de tu Lista y los escribe en un bloc de notas
For i = 0 To List1.ListCount
    Call EscribirDatoMATRIZ(1, i + 1, List1.List(i), Ruta)
Next i
'Analiza esta funcion, que es capaz de leer datos de un bloc
'de notas que este ordenado por filas y columnas separadas por comas
'Comentario: NO UTILIZAR ESTE PROCEDIMIENTO CUANDO EL ARCHIVO DE LECTURA DEL BLOC DE NOTAS
'CONTENGAN MUCHAS FILAS O MUCHAS COLUMNAS SEPARADAS POR COMAS (mas de 10 mil filas y/o columnas)
'pero para aplicaciones sencillas, como guardar una configuracion de un formulario,
'alamcenar algunos datos de un cuadro de lista, o cosas similares es excelente
 
    
End Sub
 
 

Si lo que quieres es leer algun dato de ese bloc de notas, te sugiero que analices la funcion: LeerDatoMATRIZ que tambien te deje

Bueno, espero que te halla servido, saludos y te invito a que estes conectado a este foro.

Nota:
Yo quiero mucho a Toph

m0skit0

Cita de: "Jimbenit"

Te regalare dos de mis "super funciones"

Me parece loable tu actitud, pero muy poco didáctica. Así sólo enseñas a usar copiar-pegar y no a programar. Os aconsejo que si copiáis funciones, por lo menos os toméis el tiemp de entenderlas. Y pon todas las declaraciones juntas, sino no hay quien lea eso.

Cita de: "Jimbenit"

Open RutaArchivo For Output As #1

No uses números fijos (#1) ¿quién sabe si ese descriptor está siendo usado? Usa FreeFile()

Cita de: "Jimbenit"

# que es capaz de leer datos de un bloc
# 'de notas que este ordenado por filas y columnas separadas por comas
# 'Comentario: NO UTILIZAR ESTE PROCEDIMIENTO CUANDO EL ARCHIVO DE LECTURA DEL BLOC DE NOTAS
# 'CONTENGAN MUCHAS FILAS O MUCHAS COLUMNAS SEPARADAS POR COMAS (mas de 10 mil filas y/o columnas)

Por cierto, las cosas no se guardan en el bloc de notas, sino en un fichero de texto, que puedes abrir con el programa que te dé la gana. No confundamos las cosas. Y puedes escribir todos los datos que se te antojen, eso sí, si son muchas líneas no uses el Bloc de Notas de Windows para ojearlo, que se cuelga. El VB no tendrá problemas en leerlo, aunque sean millones de líneas.

Saludos

Jimbenit

Citar

Os aconsejo que si copiáis funciones, por lo menos os toméis el tiemp de entenderlas

Las funciones que publico son creadas por mi, pero ya se por que lo dices, lo dices por que a tu pregunta sobre el archivo .INI no respondi tu pregunta, cierto??...

(aun que no todas las funciones que publico son creaciones mias, pero si todas estan, por lo menos personalizadas por mi, de tal manera que solo sea necesario copiar y pegar, (recuerda que estamos en un foro de Visual Basic para principiantes y lo mas seguro es que las personas que preguntan saben muy poco de viasual basic)

Hey, Moskito, me caes bien,... please, no discutamos ... la finalidad es ayudar a una persona...
Lo hicimos, o no???.... ya terminó...... ...

Nota:
Yo quiero mucho a Toph

m0skit0

Uf, te picaste

.

Cita de: "m0skit0"

Os aconsejo que si copiáis funciones, por lo menos os toméis el tiemp de entenderlas

Se lo decía a bobo, a ti te critico por no intentar enseñar, sino por hacer la tarea sin más... Eso es lo que está mal.

Cita de: "Jimbenit"

lo mas seguro es que las personas que preguntan saben muy poco de viasual basic

Precisamente por ello hay que enseñarle VB, no copiar-pegar... Poniéndoles el código no se van a enterar, lo van a usar tal cual y cuando tengan que hacer algo ligeramente diferente no sabrán modificarlo para esa nueva funcionalidad. No sirve de nada poner el código, hay que explicar las cosas, dar ejemplos y que piensen cómo adaptarlo a su situación concreta. Eso es programar. Lo otro es "usar el Word".

Cita de: "Jimbenit"

por que a tu pregunta sobre el archivo .INI no respondi tu pregunta, cierto??

No sé de qué hablas, refréscame la memoria podrida que tengo...

Cita de: "Jimbenit"

Hey, Moskito, me caes bien,... please, no discutamos ...

Sin ánimo de ofender, me da igual si te caigo bien o no, esa no es la cuestión. Y discutir es algo sano y natural. No pasa nada. No hay por qué enfadarse ni nada por el estilo. Para algo se inventó el lenguaje.

Un saludo y lee bien los posts para evitar molestas confusiones.

Jimbenit

Cita de: "m0skit0"

Cita de: "Jimbenit"
Te regalare dos de mis "super funciones"

Me parece loable tu actitud, pero muy poco didáctica. Así sólo enseñas a usar copiar-pegar y no a programar. Os aconsejo que si copiáis funciones, por lo menos os toméis el tiemp de entenderlas. Y pon todas las declaraciones juntas, sino no hay quien lea eso.

Moskito, ¿Hablas español?, pues en la frase que dijiste que marque de color rojo antes del punto(.) te dirigias a mi, luego , despues del punto gramatical te diriges a "bobo" ??.. pues es un español muy pobre e induce a entender mal. Cuando en un mismo parrafo te diriges a dos personas diferentes utiliza el nombre de la persona seguido por una coma o si no, puedes utilizar un punto-y-coma (

pero no uses el punto segido(.).

Nota:
El punto-y-coma (

se utiliza para cambiar de sujeto (persona o cosa a la cual te refieres) y el punto seguido a la misma cosa o persona pero para dar una nueva percepcion o hacer un nuevo comentario, o decir un nuevo adjetivo, o dar un nuevo conocimiento sobre la MISMA cosa
Saludos.

Nota 2:

Citar

me da igual si te caigo bien o no, esa no es la cuestión. Y discutir es algo sano y natural. No pasa nada.

Nota 3:
Este es mi ultimo mensaje sobre algo diferente al hilo inicial del tema, lo hago por respeto a las enseñanzas de mi querida Toph

Nota 4:
Yo quiero mucho a Toph

bobo

gracias a todos, me super sirvio

use el de Jimbenit que realmente era lo que buscaba
Ah y me ante un punto con mi jefe.- gracias a todos

Nebire

Cita de: "Jimbenit"

Citar
Os aconsejo que si copiáis funciones, por lo menos os toméis el tiemp de entenderlas
Las funciones que publico son creadas por mi...
(aun que no todas las funciones que publico son creaciones mias, pero si todas estan, por lo menos personalizadas por mi, de tal manera que solo sea necesario copiar y pegar, (recuerda que estamos en un foro de Visual Basic para principiantes y lo mas seguro es que las personas que preguntan saben muy poco de viasual basic)

Hey, Moskito, me caes bien,... please, no discutamos ... la finalidad es ayudar a una persona...

Nota:
Yo quiero mucho a Toph

Mosquito tiene razón... si le das el código masticado a alguien lo que hace es copiarlo y no se molesta en entenderlo, y así no se ayuda a nadie. Lo que hay que hacer es indicarle el camino y que lo recorra él a su manera, a su ritmo y si tiene dudas que vuelva a preguntar.

Yo ví esta pregunta ayer y no me molesté en resonder porque aunque el nivel de alguien sea de principiante esto se encuentra en la ayuda. Pulsando F1 y leyendo un poco sobre el control List y la instrucción Open.

El código completo no se debe ofrecer... si te dan dinero sin trabajar... alguien trabajaría... ?

m0skit0

Cita de: "Nebire"

si te dan dinero sin trabajar... alguien trabajaría... ?

Aunque para mí no se trata de que me moleste su dinero o trabajo, sino de una manera de entender las cosas, de saber compartir.

Nebire

Cita de: "m0skit0"

Cita de: "Nebire"
si te dan dinero sin trabajar... alguien trabajaría... ?
Aunque para mí no se trata de que me moleste su dinero o trabajo, sino de una manera de entender las cosas, de saber compartir.

Por supuesto... el ejemplo de dinero es una metáfora, que quiere indicar que si algo se consigue sin esfuerzo para qué esforzarse...

bobo

creo me me entendioron mal. estoy estudian vb y mi jefe me desafio a que podia, pues el codigo que cpoie, en efecto lo estudie y se lo refregue en la cara. Agradezco todo lo que ustedes ofrecen y estoy de acuerdo con que hay que cobrar, nada es gratis, espero no causar discordia entre ustedes.- Y alguien se equivoco por que me exprese mal, lo estudie y lo modifique en algunas partes. Espero no se enfaden con migo en su momento brindare con gusto mis ayudas. Saludos a todo y les pido disculpa por los disturbios causados, y no se me ocurre mas para disculparme.-
Saludos y nos leeremos

m0skit0

Cita de: "bobo"

les pido disculpa por los disturbios causados

No hace falta que te disculpes, tú sólo has formulado una pregunta. No hay ningún problema

SoloCodigo

Autor Tema: DE LIST1 A TXT (Leído 3690 veces)

bobo

DE LIST1 A TXT

m0skit0

Re: DE LIST1 A TXT

Jimbenit

Re: DE LIST1 A TXT

m0skit0

Re: DE LIST1 A TXT

Jimbenit

Re: DE LIST1 A TXT

m0skit0

Re: DE LIST1 A TXT

Jimbenit

Re: DE LIST1 A TXT

bobo

Re: DE LIST1 A TXT

Nebire

Re: DE LIST1 A TXT

m0skit0

Re: DE LIST1 A TXT

Nebire

Re: DE LIST1 A TXT

bobo

Re: DE LIST1 A TXT

m0skit0

Re: DE LIST1 A TXT