Преобразование Quick BASIC в VB.Net - Файлы с произвольным доступом - PullRequest
Новая
       11

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

3 голосов
/ 17 января 2012

Я пытаюсь конвертировать старую программу 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

1 Ответ

7 голосов
/ 17 января 2012

Операторы 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)
...