Los foros del Guille

elGuille.hosting: Ofertas de alojamiento
posiblemente los mejores precios
¡¡¡ Ahora con el doble de casi todo !!!

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 
Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

23/ene/2006
Por favor, no pidáis que os respondan de forma particular a vuestras consultas, ya que se supone que un foro es para compartir dudas y respuestas, de forma que otros se beneficien de esas respuestas.
También os pediría que antes de preguntar busquéis la respuesta, en muchas ocasiones ya estará.
Gracias.

  Foro: .NET VB Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 58200 - Problemas con lectura y escritura de archivo
IDAsuntoFechaNick 
58200 Problemas con lectura y escritura de archivo15/02/18 07:53joserodriguezan   
Hola,

Necesito ayuda con un pequeño código. Hace años que no programo y se me ocurrio ponerlo en práctica con una pequeña necesidad que tenemos en mi empresa.

Quisiera crear que el programa cree un archivo por variables.

Public Class frmWeb

    Dim ipvar As String

    ':::Ruta donde crearemos nuestro archivo txt
    Dim DirStrPath As String = "C:\Tutoriales\"
    ':::Nombre del archivo
    Dim FileStrPath As String = "Prueba.txt"
    Dim StrPath As String = DirStrPath & FileStrPath

En el form_load la aplicación comprueba que si no existe el directorio lo crea, lo lee hasta el final y añade lo leído a un valor que pinta en un label, y lo utiliza un webbrowser.


Try

         If Not File.Exists(FileStrPath) Then

             ' Try to create the directory.
             Dim di As
                  DirectoryInfo = Directory.CreateDirectory(DirStrPath)

             ':::Si la carpeta existe creamos o sobreescribios el archivo txt
             fs = File.Create(FileStrPath)
             fs.Close()
             MsgBox("Archivo creado correctamente" &
                  vbNewLine & "Añadir nueva dirección del dispensador
                  principal", MsgBoxstyle.Information, "")


         Else


             Try

                 ':::Creamos nuestro objeto de tipo
                      StreamReader que nos permite leer archivos
                 Dim leer As New StreamReader(StrPath)
                 leer.Close()

                 ' Apuntador libre a archivo 
                 Dim Apunt As Integer = FreeFile()
                 ' Variable donde guardamos cada línea de texto 
                 Dim Texto As String

                 ' Abrimos el archivo y lo recorremos hasta el
                      final línea por línea 
                 FileOpen(Apunt, StrPath, OpenMode.Input, OpenAccess.Read)
                 Do While Not EOF(Apunt)
                     ' Leemos la línea de texto del archivo 
                     Texto = LineInput(Apunt)
                     ':::Agregramos los registros encontrados
                     TxtIP.Text = "La dirección actual del
                          dispensador es: " + Texto
                     ipvar = Texto
                     WebBrowser1.Refresh()
                     WebBrowser1.Navigate("http://" +
                          ipvar + "terminal/terminal.html")
                 Loop
                 ' Cerramos el archivo 
                 FileClose(Apunt)

             Catch ex As Exception
                 MsgBox("Se presento un problema al leer el
                      archivo: " & ex.Message, MsgBoxstyle.Critical, "Qmatic Terminal")
             End Try


         End If

     Catch ex As Exception
         MsgBox("Se presento un problema al momento de crear el
              archivo: " & ex.Message, MsgBoxstyle.Critical, "")
     End Try

En esta otra parte del código escribimos la nueva dirección, añadiendo al archivo del texto y volviendolo a leer.



Private Sub TxtIpChange_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtIpChange.KeyDown
If e.KeyCode = Keys.Enter Then

Dim escribir As New StreamWriter(StrPath)


Try
':::Creamos nuestro objeto de tipo StreamReader que nos permite leer archivos
Dim leer As New StreamReader(StrPath)
leer.Close()

':::Escribimos una linea en nuestro archivo TXT con el formato que este separado por coma (rielagrima
escribir.WriteLine(TxtIpChange.Text)
MsgBox("Registro guardado correctamente", MsgBoxstyle.Information, "")
':::Limpiamos l

 
(c) Guillermo 'guille' Som, 2005-2018  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8762)
 
Usuarios activos: 16 - App. iniciada: 25/05/2018 10:05:11 GMT - La hora GMT del servidor es: 25/05/2018 10:30:24 GMT