Convertir Quick Basic en VB.NET - Archivos de acceso aleatorio

Question

Estoy tratando de convertir un antiguo programa básico rápido a VB.NET. No parece haber ningún reemplazo directo para las declaraciones de archivos antiguos. Construir una base de datos parece exagerar para mis necesidades simples.

¿Cómo puedo hacer lo siguiente en vb.net?

OPEN "test.dat" FOR RANDOM AS #1 LEN = 20
FIELD #1, 10 AS a$, 10 AS b$
LSET a$ = "One"
LSET b$ = "Two"
PUT #1, 1
GET #1, 1
PRINT a$, b$
CLOSE #1

Answer 1

los Microsoft.visualBasic.FileOpen, Fileput, y Fileget Las declaraciones deben ser reemplazos bastante directos para la mayor parte de su código anterior.

    Microsoft.VisualBasic.FileOpen(1, "test.dat", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.Shared)

    Dim output As New Fields

    output.A = "One"
    output.B = "Two"

    Microsoft.VisualBasic.FilePut(1, output, 1)

    Dim input As New Fields

    Microsoft.VisualBasic.FileGet(1, input, 1)

    Debug.WriteLine("A = " & input.A & "; B = " & input.B)

    FileClose(1)