CONVERSO DI BASIC QUAST in VB.NET - File di accesso casuale

Question

Sto cercando di convertire un vecchio programma di base rapido in vb.net. Non sembra esserci alcuna sostituzione diretta per le vecchie istruzioni di file. Costruire un database sembra eccessivo per le mie semplici esigenze.

Come posso fare quanto segue in 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

Il Microsoft.VisualBasic.fileopen, Fileput, e Fileget Le dichiarazioni dovrebbero essere una sostituzione piuttosto diretta per la maggior parte del codice sopra.

    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)