我正在尝试将旧的 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
The Microsoft.VisualBasic.FileOpen http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.filesystem.fileopen.aspx, FilePut http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.filesystem.fileput.aspx, and FileGet http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.filesystem.fileget.aspx语句应该可以直接替换上面的大部分代码。
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)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)