I/O ficheros simple VB.NET
Leer y escribir en un fichero de texto con VB .NET es muy facil.
Las funciones constructoras tienen muchas mas
opciones de las que aqui se ven.
Este es un ejemplo encapsulado en una clase:
Las funciones constructoras tienen muchas mas
opciones de las que aqui se ven.
Este es un ejemplo encapsulado en una clase:
Imports System.IO
Public Class Fichero
'constructor por defecto
Public Sub New()
nombrefichero = "fichero.txt"
End Sub
'Constructor parametrizado
Public Sub New(ByVal nombre As String)
nombrefichero = nombre
End Sub
Private nombrefichero As String
'guardar: retorna todo el contenido
Public Function guardar(ByVal contenido As String) As String
Dim fichTMP As StreamWriter
Dim resultado As String
Dim car As Char
resultado = ""
Try
fichTMP = New StreamWriter(nombrefichero, True)
'metemos el primer salto de linea - opcional
'fichTMP.Write(13)
For Each car In contenido
fichTMP.Write(car)
Next
'fichTMP.Write(13) opcional, si dejamos esto seria como un writeline
Catch ex As Exception
resultado = ex.Message
Finally
If Not fichTMP Is Nothing Then
fichTMP.Close()
fichTMP = Nothing
End If
End Try
Return resultado
End Function
'cargar: retorna todo el contenido
Public Function cargar() As String
Dim fichTMP As StreamReader
Dim resultado As String
resultado = ""
Try
fichTMP = New StreamReader(nombrefichero)
'fichTMP
resultado = fichTMP.ReadToEnd()
Catch ex As Exception
resultado = ex.Message & " Error al leer de: " & nombrefichero
Finally
If Not fichTMP Is Nothing Then
fichTMP.Close()
fichTMP = Nothing
End If
End Try
Return resultado
End Function
End Class
pello.io