FALTA poco! #PorMenosChatarrahoja verde
Solo faltan 55.613 soluciones y llegaremos a los 500.000 articulos que no se convirtieron en CHATARRA o BASURA!!!
 

leer y escribir en txt en vb

Seguir
hola
estoy haciendo un programa en vb y necesito que lea un archivo de texto, se fije cuantas lineas tiene y escriba algo en la linea siguiente. me explico? gracias

    3 Soluciones propuestas

    Abrir y leer un archivo de texto?

    Para abrir un txt y poder leer su contenido, hacemos:

    If File.Exists ("NombreArchivoTexto.txt") Then 'preguntamos si dicho archivo existe
    'si es asi lo abrimos y leemos

    Dim sr as StreamReader=File.OpenText("NombreArchivoTexto.txt")
    Dim linea as String 'variable para almacenar las lineas del archivo
    linea=sr.ReadLine() 'aca leo la linea

    While linea isNot Nothing

    'codigo segun lo que quieras hacer con las lineas en archivo

    End While

    sr.Close() 'cierro el archivo

    Else

    MsgBox ("Error archivo no existe") 'por ejemplo mensaje de error si el archivo a abrir no existe

    End If


    Escribir datos en un archivo de texto?

    Dim sw as New StreamWriter ("NombreArchivoTexto.txt", True)

    sw.WriteLine ("HOLA MUNDO")
    sw.Close() 'cierro el archivo. Sino lo cerras, lo datos no se guardan hasta que el mismo se cierre.


    Espero haber sido de ayuda, suerte!
      Abrir y leer un archivo de texto?

      Para abrir un txt y poder leer su contenido, hacemos:

      If File.Exists ("NombreArchivoTexto.txt") Then 'preguntamos si dicho archivo existe
      'si es asi lo abrimos y leemos

      Dim sr as StreamReader=File.OpenText("NombreArchivoTexto.txt")
      Dim linea as String 'variable para almacenar las lineas del archivo
      linea=sr.ReadLine() 'aca leo la linea

      While linea isNot Nothing

      'codigo segun lo que quieras hacer con las lineas en archivo

      End While

      sr.Close() 'cierro el archivo

      Else

      MsgBox ("Error archivo no existe") 'por ejemplo mensaje de error si el archivo a abrir no existe

      End If


      Escribir datos en un archivo de texto?

      Dim sw as New StreamWriter ("NombreArchivoTexto.txt", True) 'creo el archivo

      sw.WriteLine ("HOLA MUNDO")
      sw.Close() 'cierro el archivo. Sino lo cerras, lo datos no se guardan hasta que el mismo se cierre.


      Espero haber sido de ayuda, suerte!
        SOLUCIÓN ACEPTADA
        Abrir y leer un archivo de texto?

        Para abrir un txt y poder leer su contenido, hacemos:

        If File.Exists ("NombreArchivoTexto.txt") Then 'preguntamos si dicho archivo existe
        'si es asi lo abrimos y leemos

        Dim sr as StreamReader=File.OpenText("NombreArchivoTexto.txt")
        Dim linea as String 'variable para almacenar las lineas del archivo
        linea=sr.ReadLine() 'aca leo la linea

        While linea isNot Nothing

        'codigo segun lo que quieras hacer con las lineas en archivo

        End While

        sr.Close() 'cierro el archivo

        Else

        MsgBox ("Error archivo no existe") 'por ejemplo mensaje de error si el archivo a abrir no existe

        End If


        Escribir datos en un archivo de texto?

        Dim sw as New StreamWriter ("NombreArchivoTexto.txt", True) 'creo el archivo

        sw.WriteLine ("HOLA MUNDO")
        sw.Close() 'cierro el archivo. Sino lo cerras, lo datos no se guardan hasta que el mismo se cierre.


        Espero haber sido de ayuda, suerte!