guardar objetos en un archivo binario
Publicado por andreafuhr (22 intervenciones) el 07/05/2007 11:57:44
Alguien puede ayudarme a persistir en un archivo binario una coleccion de objetos?
Mil gracias.
Este es el codigo que generé.
Imports System.IO
Public Class employee
Private _name As String
Public Property name() As String
Get
Return _name
End Get
Set(ByVal value As String)
_name = value
End Set
End Property
End Class
Public Class funciones
Public Sub generarArchivo()
'el objetivo en persistir en un archivo .dat 10 registros de empleados con su atributo nombre
Try
Dim fs As FileStream
Dim br As BinaryWriter
Dim e As employee
fs = New FileStream("c:\employees.dat", FileMode.Create, FileAccess.Write)
br = New BinaryWriter(fs)
For i As Integer = 1 To 10
e = New employee
e.name = "andrea"
br.Write(e)
Next
br.Close()
fs.Close()
Catch ex As Exception
End Try
End Sub
Public Sub New()
Me.generarArchivo()
End Sub
End Class
Mil gracias.
Este es el codigo que generé.
Imports System.IO
Public Class employee
Private _name As String
Public Property name() As String
Get
Return _name
End Get
Set(ByVal value As String)
_name = value
End Set
End Property
End Class
Public Class funciones
Public Sub generarArchivo()
'el objetivo en persistir en un archivo .dat 10 registros de empleados con su atributo nombre
Try
Dim fs As FileStream
Dim br As BinaryWriter
Dim e As employee
fs = New FileStream("c:\employees.dat", FileMode.Create, FileAccess.Write)
br = New BinaryWriter(fs)
For i As Integer = 1 To 10
e = New employee
e.name = "andrea"
br.Write(e)
Next
br.Close()
fs.Close()
Catch ex As Exception
End Try
End Sub
Public Sub New()
Me.generarArchivo()
End Sub
End Class
Valora esta pregunta


0