martes, diciembre 27, 2011

Visual Basic .NET Leer un fichero de texto

Tenemos que leer un fichero.

.CONFIG
En el fichero .config de la aplicación tenemos una indicación de dónde está el fichero. Lo indicamos así:
add key="pathFicheroPumadata" value="c:\programa-gestion\pumapc\pumadata.dat"



Primero leemos la entrada, luego comprobamos si el fichero está en su sitio. Si no está, se captura la excepción y se muestra el mensaje correspondiente al usuario.

Se lee el fichero procesando cada línea.

Private Sub mnuLeerFichero_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuLeerFichero.Click
Dim configurationAppSettings As System.Configuration.AppSettingsReader = New System.Configuration.AppSettingsReader
Dim ficheroPumadata As String
Dim contador As Integer = 0
ficheroPumadata = configurationAppSettings.GetValue("pathFicheroPumadata", GetType(System.String))
If ficheroPumadata = "" Then
ficheroPumadata = Application.StartupPath
End If
Try
If System.IO.File.Exists(ficheroPumadata) = False Then
MessageBox.Show("El fichero pumadata.dat no está en su sitio.")
Exit Sub
End If
strPATH_BASEDATOS = ficheroPumadata
'Abrir el fichero de texto:
Dim sr As New System.IO.StreamReader( _
ficheroPumadata, _
System.Text.Encoding.Default, _
True)
' Leer el contenido mientras no se llegue al final
While sr.Peek() <> -1
' Leer una línea del fichero
Dim s As String = sr.ReadLine()
If String.IsNullOrEmpty(s) Then
Continue While
End If
contador = contador + 1
escribirLinea(s)
End While
' Cerrar el fichero
sr.Close()
MessageBox.Show(contador & " repostajes leídos")
Catch ex As Exception
MessageBox.Show("ERROR: " & ex.Message & vbCrLf & "El fichero pumadata.data no está en su sitio")
Exit Sub
End Try
End Sub




Saludos.

2 comentarios:

Chatear gratis dijo...

Gracias por el codigo, se podria crear una buena aplicación... ^_^

Descargaronline dijo...

OK..gracias...XD