百度360必应搜狗淘宝本站头条
vba高级教程svn连接scheduledtaskmybatis plus结构体数组
当前位置：网站首页 > 编程网 > 正文

学习VB编程第20天，文件读取写入

yuyutoo 2025-03-11 22:49 4 浏览 0 评论

今天学习了刘金玉老师VB编程教程的第28期，学习的主要内容是文件读取写入。

1.do until......loop循环语句

①语法结构do until条件表达式的值类型

符合条件的要执行的代码

......loop

②代码解释：Do开始做事情until直到什么条件下就不再执行代码了，loop一次循环结束。

③Until的意思是直到什么跳出循环

2.文件读写语法格式

①打开关闭文件：

open文件路径for打开方式 as #文件号

打开方式：

（Append追加写入，在原来的基础上在文件最后的位置追加新的内容，

Input读取，

Output写入，覆盖性写入。）

Close#文件名

②补充知识：eof函数，end of file文件的末尾，参数就是写文件号

③补充知识：文件的绝对路径和相对路径

实例：

绝对路径：C:\VB\学习编程第20天.txt。一般用app.path表示工程文件所在的文件夹。

相对路径：假设文件1路径：C:\VB\学习编程第20天.txt

假设文件2路径：C:\VB\学习编程第21天.txt

那么文件1相对于文件2的相对路径就是.../学习编程第21天.txt

④listbox清空方法，用来List1.clear函数清空

3代码分享：

①从i=1开始输出，直到i=10

Private Sub Command1_Click()

Dim i%

i = 1

Do Until i = 11

Print i

i = i + 1

Loop

End Sub

②输出工程的路径

Private Sub Command2_Click()

Print App.Path

End Sub

③追加写入，如果没有文件，那么将自动生成文件

Private Sub Command3_Click()

Open App.Path & "/t.txt" For Append As #1

Print #1, Text1.Text

Close #1

End Sub

④覆盖写入，写入的内容将原有的内容覆盖

Private Sub Command4_Click()

Open App.Path & "/t.txt" For Output As #1

Print #1, Text1.Text

Close #1

End Sub

⑤读取文件内容，逐行读取文件内容，直到最后一行

Private Sub Command5_Click()

List1.Clear

Open App.Path & "/t.txt" For Input As #1

Do Until EOF(1)

Dim t$

Line Input #1, t

List1.AddItem t

Loop

End Sub

今天这期内容与我们平时工作学习比较紧密相关，可以用来管理我们的文本资料。马上中秋、国庆节就要到了，打算在川内走走，期间可能会断更。提前祝大家节日快乐。

相关推荐

VBA中利用Instr函数（vba int函数）

【分享成果，随喜正能量】每一个在你的生命里出现的人，都有原因，喜欢你的人给了你温暖和勇气，你喜欢的人让你学会了爱和自持，你不喜欢的人教会你宽容与尊重，不喜欢你的人让你自省与成长。。...

Insta360 Link体验:支持4K画质，一款使用场景丰富的AI云台摄像头

记者｜王公逸伴随直播、线上会议需求的兴起，网络直播的需求愈发增大，8月2日，影石Insta360正式推出全新产品：Insta360Link，这是一款AI智能云台摄像头。从产品形态来说，Insta3...

VBA技术资料MF299:利用Instr进行文本查找

我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的工作效率，而且可以提高数据的准确度。“VBA语言専攻”提供的教程一共九套，分为初级、中级、高级三大部分，教程是对VB...

Fabric.js 拖放元素进画布 - 掘金

本文简介点赞+关注+收藏=学会了学习Fabric.js，我的建议是看文档不如看demo。本文实现的功能：将元素拖进到画布中并生成对应的图形或图片。效果如下图所示：...

Vue3为什么推荐使用ref而不是reactive

为什么推荐使用ref而不是reactivereactive本身具有很大局限性导致使用过程需要额外注意,如果忽视这些问题将对开发造成不小的麻烦;ref更像是vue2时代optionapi的data的替...

Fabric.js 样式不更新怎么办?（js更改样式）

本文简介带尬猴，我嗨德育处主任不知道你有没有遇到过在使用Fabric.js时无意中一些骚操作修改了元素的样式，但刷新画布却没更新元素样式？如果你也遇到同样的问题的话，可以尝试使用本文的方法。...

Fabric.js 修改画布交互方式到底有什么用?

本文简介点赞+关注+收藏=学会了fabric.js为我们提供了很多厉害的方法。今天要搞明白的一个东西是canvas.interactive。官方文档对canvas.interact...

Rust Web编程:第五章 在浏览器上显示内容

我们现在正处于可以构建一个Web应用程序的阶段，该应用程序可以使用不同的方法和数据管理一系列HTTP请求。这很有用，特别是当我们为微服务构建服务器时。然而，我们也希望非程序员能够与我们的应...

Fabric.js 自由绘制椭圆 - 掘金（canvas画椭圆）

本文简介点赞+关注+收藏=学会了本文讲解在Fabric.js中如何自由绘制椭圆形，如果你还不了解Fabric.js，可以查阅《Fabric.js从入门到精通》。效果如下图所示...

手把手教你实现JS手搓"防抖"优化代码——专业的事用专业的方法!

前言在我们前端编程中，假如我们要给后端发送请求，万一手抖多点了几次，多发送了几遍怎么办？解决方案：防抖！这种事就要交给我们专业的“防抖”先生来处理！今天，我们就来教大家手搓“防抖”...

详解虚拟DOM与Diff算法（虚拟dom一定比实际dom快吗）

vue的虚拟DOM,Diff算法，其中一些关键的地方从别处搬运了一些图进行说明(感谢制图的大佬)，也包含比较详细的源码解读。...

走进 React Fiber 的世界（我走进你的世界手势舞视频）

文/阿里淘系F(x)Team-冷卉Fiber设计思想Fiber是对React核心算法的重构，facebook团队使用两年多的时间去重构React的核心算法，在React16以上...

前端新一代框架 Svelte 火了!十个场景带你简单认识它!

近几年听到的主流框架都是Vue、React、Angular，但其实有一个框架在国外非常火，用起来也是很方便，那就是...

借助DeepSeek实现了一个PDF阅读器

1、简介使用pdf.js库加载和显示PDF文件。实现了翻页、缩放功能。提供了基本的错误处理。功能特点：支持选择本地PDF文件。可以逐页查看PDF内容。支持放大缩小功能。界面简洁，易于使...

DeepSeek代码之旅1:卫星地图标记方法之——html语言的实现

最近遇到一个任务，具体功能如下：1、调用高德地图API，图层为卫星图层，根据需要标记兴趣点；2、标记完成后可以保存兴趣点，便于下次加载历史兴趣点。...

取消回复欢迎 你 发表评论:

一周热门
最近发表
标签列表