Leer y Escribir Estructuras de Datos VB6->C#

15/01/2008 - 17:47 por Eslender | Informe spam
En vb6 es muy eficiente leer y escribir estructuras de datos en archivos
binarios, tengo este ejemplo simple:

Option Explicit

Private Type structSample
Item As Integer
Value As Single
End Type

Private Sub EjemploSimple(File As String)
Dim ff As Long
Dim a() As structSample
Dim n As Long

' escribiendo
n = 1 ' dos ítems
ReDim a(0 To 1)
a(0).Item = 1
a(0).Value = 123.45
a(1).Item = 2
a(1).Value = 678.9

ff = FreeFile
Open File For Binary Access Write As ff
Put #ff, , n
Put #ff, , a()
Close ff
Erase a

' leyendo
Open File For Binary Access Read As ff
Get #ff, , n
ReDim a(0 To n)
Get #ff, , a()
Close ff

MsgBox a(1).Value ' muestra 678.9

Erase a
End Sub

Private Sub main()
EjemploSimple app.Path & "\sample.bin"
End Sub

¿Cómo sería en C#?
¿Donde encontraría una guía documentada?

Gracias -
 

Leer las respuestas

#1 Octavio Hernandez
15/01/2008 - 18:22 | Informe spam
Hola,

Mira esto:

http://samples.gotdotnet.com/QuickS...write.aspx

En esos tutoriales tienes una buena cantidad de ejemplos de todo tipo...

Slds - Octavio



"Eslender" wrote in message
news:
En vb6 es muy eficiente leer y escribir estructuras de datos en archivos
binarios, tengo este ejemplo simple:

Option Explicit

Private Type structSample
Item As Integer
Value As Single
End Type

Private Sub EjemploSimple(File As String)
Dim ff As Long
Dim a() As structSample
Dim n As Long

' escribiendo
n = 1 ' dos ítems
ReDim a(0 To 1)
a(0).Item = 1
a(0).Value = 123.45
a(1).Item = 2
a(1).Value = 678.9

ff = FreeFile
Open File For Binary Access Write As ff
Put #ff, , n
Put #ff, , a()
Close ff
Erase a

' leyendo
Open File For Binary Access Read As ff
Get #ff, , n
ReDim a(0 To n)
Get #ff, , a()
Close ff

MsgBox a(1).Value ' muestra 678.9

Erase a
End Sub

Private Sub main()
EjemploSimple app.Path & "\sample.bin"
End Sub

¿Cómo sería en C#?
¿Donde encontraría una guía documentada?

Gracias -

Preguntas similares