none
preguntas frecuentes RRS feed

  • Pregunta

  • buenos días mi pregunta el día de hoy es  

    voy a pasar los datos de un listbox a un archivo plano esto ya lo logre con este codigo  

     Dim rutaFichero As String
      Dim i As Integer

      rutaFichero = Path.Combine(Application.StartupPath, "contenido_listbox.txt")
      For i = 0 To ListBox1.Items.Count - 1
        fichero.WriteLine (ListBox1.Items(i))
      Next

     

    ahora lo que quiero es que cada ves que guarde los guarde en un archivo diferente. 

    muchas gracias 

    domingo, 12 de junio de 2016 15:47

Respuestas

  • Hola:
    Si path del fichero plano lo escribes en un TextBox, cambia esta linea
    rutaFichero = Path.Combine(Application.StartupPath, "contenido_listbox.txt")
    por esta otra
    rutaFichero = Path.Combine(Application.StartupPath, Me.TextBox1.Text)

    Un saludo desdxe Bilbo
    Carlos
    domingo, 12 de junio de 2016 17:14
  • MiLLeRdAvId,

    ¿Qué distintivo a pensado para nombrar los archivos? ¿Un número secuencial? ¿La fecha de registro?

    Lo más simple es colocar como sufijo -al nombre del archivo- la fecha de creación, algo como:

    rutaFichero = Path.Combine(Application.StartupPath, "contenido_listbox_" & DateTime.Now.ToString(DateTime.Now.ToString("ddMMyyyy hhmmss")) & ".txt")

    domingo, 12 de junio de 2016 19:00

Todas las respuestas

  • Hola:
    Si path del fichero plano lo escribes en un TextBox, cambia esta linea
    rutaFichero = Path.Combine(Application.StartupPath, "contenido_listbox.txt")
    por esta otra
    rutaFichero = Path.Combine(Application.StartupPath, Me.TextBox1.Text)

    Un saludo desdxe Bilbo
    Carlos
    domingo, 12 de junio de 2016 17:14
  • MiLLeRdAvId,

    ¿Qué distintivo a pensado para nombrar los archivos? ¿Un número secuencial? ¿La fecha de registro?

    Lo más simple es colocar como sufijo -al nombre del archivo- la fecha de creación, algo como:

    rutaFichero = Path.Combine(Application.StartupPath, "contenido_listbox_" & DateTime.Now.ToString(DateTime.Now.ToString("ddMMyyyy hhmmss")) & ".txt")

    domingo, 12 de junio de 2016 19:00
  • BUENAS TARDES MI PREGUNTA LA TARDE HOY ES   

    COMO PUEDO CRAR UN ARCHIVO TXT. DIFERENTE CADA VES QUE PRESIONE UN BOTON .  

    ES DECIR YO PUEDO PASAR LOS DATOS DE UN LISTBOX A UN ARCHIVO PLANO O TXT.   

    CON EL SIGUIENTE CODIGO  

    Dim variable As String
    variable = ListBox1.ListCount - 1
    Open "C:\ADMINISTRADOR\factura\cosa.txt" For Append As #1
    Print #1, variable
    Close #1
    End Sub       

    LOQ UE SUCEDE ES QUE YO QUIERO QUE CADA VES QUE PRESIONE EL BOTÓN GUARDE LOS DATOS EN UN ARCHIVO DIFERENTE

    martes, 14 de junio de 2016 21:33
  • MiLLeRdAvId,

    Para guardar en un archivo diferente tienes que nombrar al archivo de forma diferente. ¿Esta pregunta ya no la había efectuado?

    Este hilo es suyo bajo la misma pregunta preguntas frecuentes

    Le recomiendo 2 cosas:

    1. Coloque un título descriptivo a su requerimiento.
    2. Si no recibe una respuesta que ayude a resolver su requerimiento, insista sobre el mismo hilo, no abra nuevos hilos porque generar duplicidad innecesaria en el foro.
    martes, 14 de junio de 2016 21:42
  • tambien necesito cambiar la exprecion, listbox1."liscount" por que listcount no me pasa los datos en texto si no en numero 
    martes, 14 de junio de 2016 21:44
  • MUCHAS GRACIASSS :) :d
    martes, 14 de junio de 2016 21:44