VBA按行读取TXT文本文件

文件格式
窗口上添加一个文本控件 TextBox1
属性设置
MultiLine ：True
ScrollBars ：3 - fmScrollBarsBoth
代码如下：

Private Sub CommandButton1_Click()
Dim strTxt() As String
Dim strRight() As String
Dim strLeft() As String
Dim n As Integer
Dim strTemp As String
Dim i As Integer, x As Integer, y As IntegerTextBox1Text = ""Open System.FixPath(Alm_Path) & "\" & "181011.ALM" For Input As #1 ' 读取整个文件
Do While Not EOF(1)
Line Input #1, strTemp ' 每行写入 strTemp ，注意这里必须要加 Line ，否则 逗号&分号 都要算单独一行
n = n + 1 ' n为文件中的行数
Loop
Close #1ReDim strTxt(1 To n)
ReDim strRight(1 To n)
ReDim strLeft(1 To n)Open System.FixPath(Alm_Path) & "\" & "181011.ALM" For Input As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, strTxt(i) ' 每行写入数组 strTxt()
'Debug.Print strTxt(i)
Loop
Close #1For i = 1 To nx = InStr(1, strTxt(i), " ") ' 获取第一个空格位置If x > 0 Theny = InStr((x + 1), strTxt(i), " ") ' 获取第二个空格位置strRight(i) = Right(strTxt(i), Len(strTxt(i)) - y) ' 截取空格位置的 右侧 文本strLeft(i) = Left(strTxt(i), y - 1) ' 截图空格位置的 左侧 文本TextBox1.Text = TextBox1.Text & strLeft(i) & " -> " & strRight(i) & vbCrLf 'Chr(10) ' 填充 TextBox1 控件内容End If
Next i
End Sub

展示效果如下：
注意Open和Close用法

VBA按行读取TXT文本文件相关推荐

C++文件操作——按行读取txt文本文件
我们经常在一些项目中需要处理文本文件的读取,比如按行进行文本读取操作下面分别介绍按行读取文本的一些方法: (1).采用C语言中的fgets函数 USES_CONVERSION; //调用函数,T2A ...
python按行读取txt文件-Python逐行读取txt文本，按符合分割词并逐行写入txt
背景Background: 我的txt文件里面存放的是搜索词,由于原始的query(搜索词)都是用/或者.来分割词,而我要达到的是每个词语是单独的一行,并且写入txt 第一步:按行读取txt文件 s ...
A.PHP读取txt文本文件并分页显示的方法
PHP读取txt文本文件并分页显示的方法作者:TomRobert 字体:[增加减小] 类型:转载时间:2015-03-11 我要评论这篇文章主要介绍了PHP读取txt文本文件并分页显示的方法, ...
C#快速随机按行读取大型文本文件 - 磊的博客 - sanshi_leilei - 和讯博客
字号:大中小下面是我实现的一个数据文件随机读取类,可以随机读取大型文本文件的某一行.在我机器上对一个130MB的文本文件,读取第200000的速度从传统做法的400ms提高到了3ms. 一般对文 ...
JavaScript之读取txt文本文件内容
读取txt文本文件内容. 代码: <!DOCTYPE html> <html lang="en"><head><title>文件读取 ...
vba打开txt文件_VBA基础入门（34）读取txt文本文件
对于这样的txt文本文件,我们怎么一行一行去读取数据呢? #00001 65536 *00001 65536 说说常用的两种方法,一种是把txt文本文档读到Excel中,然后获取最大行数,做个循环来遍 ...
VBA调用fso读取TXT转化EXCEL
TXT转EXCEL 适用TXT样式: 固定分隔符规范TXT数据源效果:调用对话框选择打开TXT,设置TXT分割符,将转化文件保存到TXT文件同一目录下.如下图: 关于批量txt转化EXCEL: 可以 ...
C#简单实现读取txt文本文件并分页存储到数组
最近做一个VR项目,需要把某个中草药的介绍信息分页显示到unity场景里然后用VR手柄切换信息. unity的脚本是c#,就先在本地写了个代码测试了一下,利用控制台测试输出,到时候拷贝函数过去再结合交 ...
java多线程按行读取文件_“java”中多线程按行读取txt且每个线程读的内容不能重复，这么求“demo”？...
展开全部你把原来程序中直接读的地62616964757a686964616fe4b893e5b19e31333365646234方,改成调用上面的函数,由该函数统一读行.这样,不管是你有 N 个线程 ...
水文日常~~Python如何按行读取txt文件中的数据并去除每行末尾的回车符\n
#从文件中读取数据 with open ('data.txt') as file_object:lines = file_object.read().splitlines()#去除每行末尾的回车符

VBA按行读取TXT文本文件

VBA按行读取TXT文本文件

VBA按行读取TXT文本文件相关推荐

最新文章

热门文章