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

前端之家收集整理的这篇文章主要介绍了将Quick BASIC转换为VB.Net – 随机访问文件前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在尝试将旧的Quick BASIC程序转换为VB.Net.似乎没有任何直接替换旧文件语句.建立一个数据库对我的简单需求来说似乎有些过分.

如何在VB.Net中执行以下操作?

  1. OPEN "test.dat" FOR RANDOM AS #1 LEN = 20
  2. FIELD #1,10 AS a$,10 AS b$
  3. LSET a$= "One"
  4. LSET b$= "Two"
  5. PUT #1,1
  6. GET #1,1
  7. PRINT a$,b$
  8. CLOSE #1

解决方法

Microsoft.VisualBasic.FileOpen,FilePutFileGet语句应该是上述大多数代码的直接替代品.

  1. Microsoft.VisualBasic.FileOpen(1,"test.dat",OpenMode.Random,OpenAccess.ReadWrite,OpenShare.Shared)
  2.  
  3. Dim output As New Fields
  4.  
  5. output.A = "One"
  6. output.B = "Two"
  7.  
  8. Microsoft.VisualBasic.FilePut(1,output,1)
  9.  
  10. Dim input As New Fields
  11.  
  12. Microsoft.VisualBasic.FileGet(1,input,1)
  13.  
  14. Debug.WriteLine("A = " & input.A & "; B = " & input.B)
  15.  
  16. FileClose(1)

猜你在找的VB相关文章