玩酷之家

 找回密码
 立即注册
查看: 71|回复: 0

VB 两种方法读取Txt文本文件内容

[复制链接]
发表于 2021-3-11 20:34:38 | 显示全部楼层 |阅读模式

一、一次读取所有内容
  1. Dim s As String
  2. Open "C:\Test.txt" For Binary As #1 '一次读取所有
  3. s = Input(LOF(1), #1)
  4. Close #1
  5. MsgBox s
复制代码


二、单行读取
  1. Dim s As String
  2. Open "C:\Test.txt" For Input As #1 '单行读取
  3.     Do While Not EOF(1)
  4.     Line Input #1, s '单行读取
  5.     MsgBox s
  6.     Loop
  7. Close #1
复制代码


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号 )

GMT+8, 2021-4-22 11:40 , Processed in 1.060802 second(s), 17 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表