百度360必应搜狗淘宝本站头条
python判断字典是否为空crontab每周一执行aes和des区别安装指定版本npmadb pull
当前位置：网站首页 > IT知识 > 正文

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

liuian 2025-05-15 19:08 25 浏览

今天学习了刘金玉老师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

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

相关推荐

Python 中 必须掌握的 20 个核心函数——items()函数

items()是Python字典对象的方法，用于返回字典中所有键值对的视图对象。它提供了对字典完整内容的高效访问和操作。一、items()的基本用法1.1方法签名dict.items()返回：字典键...

Python字典:键值对的艺术_python字典的用法

字典(dict)是Python的核心数据结构之一，与列表同属可变序列，但采用完全不同的存储方式：定义方式：使用花括号{}（列表使用方括号[]）存储结构：以键值对(key-valuepair)...

python字典中如何添加键值对_python怎么往字典里添加键

添加键值对首先定义一个空字典1>>>dic={}直接对字典中不存在的key进行赋值来添加123>>>dic['name']='zhangsan'>>...

Spring Boot @ConfigurationProperties 详解与 Nacos 配置中心集成

本文将深入探讨SpringBoot中@ConfigurationProperties的详细用法，包括其语法细节、类型转换、复合类型处理、数据校验，以及与Nacos配置中心的集成方式。通过...

Dubbo概述_dubbo工作原理和机制

什么是RPCRPC是RemoteProcedureCall的缩写翻译为:远程过程调用目标是为了实现两台(多台)计算机\服务器,互相调用方法\通信的解决方案RPC的概念主要定义了两部分内容序列化协...

再见 Feign!推荐一款微服务间调用神器，跟 SpringCloud 绝配

在微服务项目中，如果我们想实现服务间调用，一般会选择Feign。之前介绍过一款HTTP客户端工具Retrofit，配合SpringBoot非常好用！其实Retrofit不仅支持普通的HTTP调用，还能...

SpringGateway 网关_spring 网关的作用

奈非框架简介早期(2020年前)奈非提供的微服务组件和框架受到了很多开发者的欢迎这些框架和SpringCloudAlibaba的对应关系我们要知道Nacos对应Eureka都是注册中心Dubbo...

Sentinel 限流详解-Sentinel与OpenFeign服务熔断那些事

SentinelResource我们使用到过这个注解，我们需要了解的是其中两个属性：value：资源名称，必填且唯一。@SentinelResource(value="test/get&#...

超详细MPLS学习指南 手把手带你实现IP与二层网络的无缝融合

大家晚上好，我是小老虎，今天的文章有点长，但是都是干货，耐心看下去，不会让你失望的哦！随着ASIC技术的发展，路由查找速度已经不是阻碍网络发展的瓶颈。这使得MPLS在提高转发速度方面不再具备明显的优势...

Cisco 尝试配置MPLS-V.P.N从开始到放弃

本人第一次接触这个协议，所以打算分两篇进行学习和记录，本文枯燥预警，配置命令在下一篇全为定义，其也是算我毕业设计的一个小挑战。新概念重点备注为什么选择该协议IPSecVPN都属于传统VPN传统VP...

MFC -- 网络通信编程_mfc编程教程

要买东西的时候，店家常常说，你要是真心买的，还能给你便宜，你看真心就是不怎么值钱。。。----网易云热评一、创建服务端1、新建一个控制台应用程序，添加源文件server2、添加代码框架#includ...

35W快充?2TB存储?iPhone14爆料汇总，不要再漫天吹15了

iPhone14都还没发布，关于iPhone15的消息却已经漫天飞，故加紧整理了关于iPhone14目前已爆出的消息。本文将从机型、刘海、屏幕、存储、芯片、拍照、信号、机身材质、充电口、快充、配色、价...

SpringCloud Alibaba(四) - Nacos 配置中心

1、环境搭建1.1依赖<!--nacos注册中心注解@EnableDiscoveryClient--><dependency><groupI...

Nacos注册中心最全详解(图文全面总结)

Nacos注册中心是微服务的核心组件，也是大厂经常考察的内容，下面我就重点来详解Nacos注册中心@mikechen本篇已收于mikechen原创超30万字《阿里架构师进阶专题合集》里面。微服务注册中...

网络技术领域端口号备忘录，受益匪浅 !

你好，这里是网络技术联盟站，我是瑞哥。网络端口是计算机网络中用于区分不同应用程序和服务的标识符。每个端口号都是一个16位的数字，范围从0到65535。网络端口的主要功能是帮助网络设备（如计算机和服务器...

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