.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:
Gracias por el codigo, se podria crear una buena aplicación... ^_^
OK..gracias...XD
Publicar un comentario