Преобразование Quick BASIC в VB.Net - Файлы случайного доступа

Question

Я пытаюсь преобразовать старую программу Quick BASIC в VB.Net. Кажется, нет никакой прямой замены для старых операторов файла. Построение базы данных кажется излишним для моих простых потребностей.

Как я могу сделать следующее в 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

В Microsoft.VisualBasic.FileOpen, FilePut и FileGet заявления должно быть довольно прямыми заменителями большой части вашего кода выше.

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)