Los foros del Guille

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

Google
 

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

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

08/abr/2006
Por favor, no escribáis mensajes que impliquen cosas ilegales, ya que serán eliminados sin más aviso.
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: 64 - App. iniciada: 27/05/2018 6:09:27 GMT - La hora GMT del servidor es: 27/05/2018 13:56:27 GMT