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

2024-01-18

我正在尝试将旧的 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(使用前将#替换为@)

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

随机推荐

  • setInterval 中的 JavaScript 函数

    我有以下代码 var foo 5 var los function alert foo setInterval los 1000 哪个工作正常 如果我将其更改为 var los function alert foo setInterval
  • 导出到 Excel JSF 和 PrimeFaces

    使用 JDK 1 6 JSF 2 1 PrimeFaces 2 2 1 POI 3 2 和 Apache Tomcat 7 我正在尝试设置一个 servlet 以允许根据用户选择下载 Excel 文件 Excel 文档是在运行时创建的 没有
  • 绕过pip卸载的确认提示

    我正在尝试卸载超级用户环境中的所有 django 软件包 以确保所有 webapp 依赖项都安装到我的 virtualenv 中 sudo su sudo pip freeze grep E django xargs pip q unins
  • 在 Unix 上的 Perforce 中,如何添加符号链接目录?

    我在 Unix 中创建了一个符号链接目录 我想将其添加到 perforce 这个问题与 Unix 上的符号链接有关 Windows 符号链接的行为与 Unix 非常不同 http en wikipedia org wiki Symbolic
  • 有没有办法改变弹性标题的字体大小?

    有没有办法改变弹性标题的字体大小 我使用了 set caption 命令 效果很好 但我不喜欢从 Markdown 编织到 HTML 时的字体大小 None
  • 如何在 PyQt 中隐藏布局?

    我的代码包含一个垂直框布局 它是左侧垂直框布局和右侧垂直框布局的组合 我想知道是否有一种方法可以在发出某个信号时隐藏左侧布局及其所有小部件 您可以作弊并使用框架而不是布局 它的工作方式完全相同 除了您必须在框架上设置布局才能使其正常工作 然
  • 在 bash 中,如何强制刷新打印到终端的不完整行

    我正在编写一个脚本 它执行如下操作 echo n Doing stuff wait for it do stuff 0 echo SUCCESS echo FAILURE 请原谅糟糕的 bash 技能 无论如何 问题是该行的第一部分直到do
  • python 编译所需的 vcvarsall.bat 从 Visual Studio 2015 (v 14) 中缺失

    我正在尝试在 Windows 10 下的 python 3 5 中安装 numpy 并安装了 Visual Studio 2015 Ultimate 简短版本 文件vcvarsall batvs14 文件夹中丢失C Program File
  • 将 DataMember 添加到 DataContract 的不同命名空间

    随着XmlSerializer我可以让我的成员位于与父类型不同的命名空间中 我可以做同样的事情吗DataContractSerializer 我想要以下 XML
  • 这是托管使用 Nodejs、Angularjs、Mongodb 开发的平均应用程序的最佳方式(方法)

    我是这个 Web 开发的新手 我需要知道托管我开发的应用程序的不同方式 这是一个带有链接的粗略清单 对于 MEAN Stack 您可以从Node js安装 https nodejs org en 它为其余部分提供命令框架 当您从头开始时 我
  • numpy 为何这么快?

    我试图理解如何numpy可以这么快 基于我与优化的 C C 代码的令人震惊的比较 它距离再现 numpy 的速度还很远 考虑以下示例 给定一个二维数组shape N N and dtype float32 它表示 N 个维度的 N 个向量的
  • MySQL 性能:多表与单表和分区上的索引

    我想知道什么在性能上更高效 更快 在一张大表上有一个索引 还是在多个没有索引的小表上有索引 由于这是一个非常抽象的问题 让我把它变得更实际 我有一张表 其中包含有关用户的统计信息 20 000 个用户 总共约 3000 万行 该表大约有 1
  • Hazelcast 专用节点

    在专用服务器上运行 Hazelcast 节点的最简单方法是什么 我们有一个使用 Hazelcast 分布式地图的 Web 应用程序 目前 Hazelcast 节点配置为在 Servlet 容器节点中运行 随着规模的扩大 我们希望添加专用硬件
  • AngularJS $timeout 函数未在我的 Jasmine 规范中执行

    我正在尝试使用 Karma 与 Jasmine 测试我的 AngularJS 控制器 但一个 timeout这在现实生活中运行良好 但却使我的测试崩溃 控制器 var Ctrl function scope timeout scope do
  • 在网站上查找一个单词并获取其页面链接

    我想抓取一些网站 看看那里是否存在 katalog 一词 如果是 我想检索该单词所在的所有选项卡 子页面的链接 可以这样做吗 我尝试按照本教程进行操作 但最终得到的 wordlist csv 是空的 即使网站上确实存在单词目录 https
  • 如何将图像裁剪为圆形且圆形内有网格

    In my Social media app i want image Cropping Functionality that Crop image in Circle shape plus have Grid inside Circle
  • 如何在 Rails 中以简单形式添加开关切换按钮

    我正在使用 Rails 4 和 Simple Form with Bootstrap 我希望我的复选框不会那样 但类似的东西 我有CSS
  • 使用 #include 和包含防护在单独文件中进行 C++ 继承

    我是 Stack Overflow 的新手 正在自学 C 但我仍然是一个初学者 在完成了我正在使用的书中的大部分内容 可能被认为是过时的和 或不是一本好书 后 我决定通过自己尝试来重新强化一些概念 仅在需要时参考这本书 但我似乎被卡住了 我
  • 如何在 Python 中正确使用 re.sub() 进行迭代

    我想制作一个创建脚注的 Python 脚本 这个想法是找到该排序的所有字符串 Some body text Some footnote text 并将它们替换为 Some body text where 是正确的脚注编号 我的脚本的另一个部
  • 将 Quick BASIC 转换为 VB.Net - 随机访问文件

    我正在尝试将旧的 Quick BASIC 程序转换为 VB Net 旧文件语句似乎没有任何直接替代 对于我的简单需求来说 构建数据库似乎有点大材小用 如何在 VB Net 中执行以下操作 OPEN test dat FOR RANDOM A