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

发布时间：2020-12-17 07:10:37 所属栏目：百科来源：网络整理

导读：我正在尝试将旧的Quick BASIC程序转换为VB.Net.似乎没有任何直接替换旧文件语句.建立一个数据库对我的简单需求来说似乎有些过分. 如何在VB.Net中执行以下操作？ OPEN "test.dat" FOR RANDOM AS #1 LEN = 20FIELD #1,10 AS a$,10 AS b$LSET a$= "One"LSET b$=

我正在尝试将旧的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,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)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!