Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/file/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
将Quick BASIC转换为VB.Net-随机访问文件_Vb.net_File_Random Access_Qbasic - Fatal编程技术网

将Quick BASIC转换为VB.Net-随机访问文件

将Quick BASIC转换为VB.Net-随机访问文件,vb.net,file,random-access,qbasic,Vb.net,File,Random Access,Qbasic,我正在尝试将一个旧的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 和语句应该是上述大多

我正在尝试将一个旧的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
和语句应该是上述大多数代码的直接替代品

    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)
字段#1,10作为a$,10作为b$如何替换本例中的FIELD语句?