Visual Basic.NET - guardar objetos en un archivo binario

 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:guardar objetos en un archivo binario

Publicado por Harold V. (411 intervenciones) el 07/05/2007 14:03:10
br.Write(CType(e.name, String))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:guardar objetos en un archivo binario

Publicado por andreafuhr (22 intervenciones) el 07/05/2007 14:23:28
gracias por tu ayuda pero me interesa guardar el objeto e y no solo el atributo name, ya q esta clase tendra mas atributos luego.
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:guardar objetos en un archivo binario

Publicado por Harold V. (411 intervenciones) el 07/05/2007 18:31:22
For i As Integer = 1 To 10
e = New Employee
e.name = "Andrea"
e.lastname = "Lopez"
br.Write(e.name.ToString & vbCrLf & _
e.lastname.ToString & vbCrLf & _
"------" & vbCrLf)
Next
br.Close()
fs.Close()

de otra manera

'Dim strWriter As New StreamWriter("c:\employees.dat", False)
''''False= remplaza lo que existe en el archivo con los nuevos datos
''''True= Inserta al final del archico los nuevos datos

'For i As Integer = 1 To 10
' e = New Employee
' e.name = "Andrea"
' e.lastname = "Lopez"
' strWriter.WriteLine(e.name)
' strWriter.WriteLine(e.lastname)
' strWriter.WriteLine("-----------")
' strWriter.WriteLine("")
'Next
'strWriter.Flush()
'strWriter.Close()
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar