VB如何读取txt文件某列数据

2007-12-15 09:02:14 1.5k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB/VBA实现Excel数据导出到文本文件的完整解决方案在数据处理与办公自动化领域，数据格式转换是基础且高频的需求。其核心原理是通过编程语言调用应用程序的对象模型，实现对结构化数据的读取、处理和输出。这项技术的价值在于将重复性手动操作转化为自动化流程，极大提升工作效率和准确性。典型的应用场景包括财务数据备份、报表格式转换、跨系统数据迁移以及数据清洗预处理等。本文聚焦于使用VB/VBA这一经典办公自动化工具，深入探讨如何健壮、高效地将Excel行数据遍历并导出至文本文件，特别针对中文编码、动态列数、空值处理等常见痛点提供了实战代码和优化方案。阅读详情

如data.txt中的文件为：
1 2 3 4
2 3 4 5
12 6 7 6

我想要读取第二列的数据，怎么操作？

...全文

BarTender标签设计与打印实战指南：从零入门到数据驱动批量打印在工业自动化和信息化管理中，数据驱动打印是实现物料、产品标识自动化的核心技术。其原理是通过软件将数据库中的变量数据动态填充到预设模板，实现批量、精准的标签输出。这项技术对于提升仓储物流、生产追溯等场景的效率和准确性具有重要价值。BarTender作为业界领先的专业软件，以其便捷易用的图形化界面和强大的数据源管理能力，成为实现这一流程的优选工具。本文将以BarTender为例，手把手演示如何连接数据库、设计模板并完成打印，帮助用户快速掌握标签制作全流程，规避常见的配置与打印难题。阅读详情

RIVERBASIN

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

muyu1234 2007-12-29

打赏
举报

支持老马

cike_1111 2007-12-29

打赏
举报

老马的做成函数思路不错!

cike_1111 2007-12-29

打赏
举报

这个!! 我看一般都要看数据的具体存储情况来定!

因为有时处理的数据并不是自己导出的!

而是有现成的数据要处理!

所以应具体看数据的排列形式而想出对应的应付思路!

(12楼 is me )

LWMWORK 2007-12-29

打赏
举报

mark

MikeChen007 2007-12-29

打赏
举报

mark

weitme 2007-12-28

打赏
举报

用二维数组或许可以

嗷嗷叫的老马 2007-12-28

打赏
举报

感觉把vbTab这个参数也做到函数参数里面去让用户动态指定,应该能更有通用性......

嗷嗷叫的老马 2007-12-28

打赏
举报

我来总结一下,做成函数:

Private Function GetText4TXT(ByVal TxtName As String, ByVal TxtField As Long) As String()

    Dim tmpStrBuff As String, tmpStrBuffArr1() As String, tmpStrBuffArr2() As String, tmpOutBuffArr() As String

    Dim I As Long, J As Long

    

    Open TxtName For Binary As #1       '先一次性读入文件

        tmpStrBuff = String(LOF(1), Chr(0))

        Get 1, , tmpStrBuff

    Close #1

    

    TxtField = TxtField - 1

    tmpStrBuffArr1 = Split(tmpStrBuff, vbCrLf)  '按行分割

    J = 0

    ReDim tmpOutBuffArr(J)  '初始化输出数组,0维不使用.

    

    For I = 0 To UBound(tmpStrBuffArr1)     '从每行开始循环,把所需要的列复制到输出数组内

        tmpStrBuffArr2 = Split(tmpStrBuffArr1(I), vbTab)    '目标行是用什么分开每列的这里就用什么

        If UBound(tmpStrBuffArr2) > 2 And UBound(tmpStrBuffArr2) >= TxtField Then

            J = J + 1       '加一维,把结果复制过去.

            ReDim Preserve tmpOutBuffArr(J)

            tmpOutBuffArr(J) = Trim(tmpStrBuffArr2(TxtField))

            Debug.Print tmpOutBuffArr(J)

        End If

    Next I

    GetText4TXT = tmpOutBuffArr

End Function

调用很简单:

Dim I() As String

I = GetText4TXT("文件名", [列数])

I()里就是每列的内容(从1维开始)

of123 2007-12-28

打赏
举报

实际上，你有两种选择：
1, 用作随机读取文件。你的每一列必须固定宽度：



文件：

     1         2       3           4       

     2         3       4           5       

    12         6       7           6



   Type Record

      Field1 as String*6

      Field2 as String*10

      Field2 as String*8

      Field2 as String*12

   End Type



   Dim r As Record, i As Integer

   Open "myfile" For Random As #1 Len = Len(r)

   For i = 1 To Int(LOF(1) / Len(r))

      Get #1, i, r

      Debug.Print Val(r.Field2)

   Next i

   Close #1

2, 用作顺序读取文件。最好是每行一条记录，各列之间以制表符 Tab 分隔。当然以空格分隔也可以，但空格数不定时麻烦一些。



   Dim tmp As String, fields() As String

   Open "myfile" For Input As #1

   Do Until EOF(1)

      Line Input #1, tmp

      Do While Instr(tmp, Space(2))

         tmp = Replace(tmp, Space(2), Space(1))

      Loop

      fileds = Split(tmp, Space(1))

      Debug.Print fields(1)

   Loop

   Close #1

cike_1111 2007-12-28

打赏
举报

若列之间间隔的是空格那就好办了

首先先把他们分成 N 行
其次把每行分成每段以空格区分开来存储在变量中取第2个项

还是直接给代码吧!

材料:
1个 text1
1个 command1

设置:text1= 多行显示

代码部分:



Private Sub Command1_Click()

Dim a As Variant

Dim b As Variant

a = Split(Text1, vbCrLf)      '分割text1内的数据成行

For i = 0 To UBound(a)        '循环每一行

If Len(a(i)) > 3 Then     '这个判断用来避免把空行提取算进来 若提取到空行则提取不到数组b(1)了

   c = (a(i))

        For j = 0 To Len(a(i))  '这个循环把多余的空格全部变成一个空格

            c = Replace(c, "  ", " ")

        Next j

    b = Split(c, " ")           '以一个空格划分后把分段放到数组b中

s = s & b(1) & vbCrLf           '字符=字符连接b的第2项目连接换行

End If

Next i

Text1 = s                       '重新输出到text

End Sub

Private Sub Form_Load()

a = "1    2    3    4" & vbCrLf

a = a & "1    3    5    8" & vbCrLf

a = a & "123  325  587  18" & vbCrLf

a = a & "81   355  55   a8" & vbCrLf

a = a & "1c   2c3  585  c8" & vbCrLf

Text1 = a

End Sub

其结果输出的是第2列出来! 符合你的要求详细思路可从 command1下的代码得出

liyantsc 2007-12-26

打赏
举报

用API函数.取鼠标位置,然后再用SENDMESSAGE发送消息

jly377826 2007-12-22

打赏
举报

Dim arr() As String '//定义数组
Dim strLine As String '
Open App.Path & "\1.txt" For Input As #1 '//读取 1.txt文件
strLine = StrConv(InputB(LOF(1), 1), vbUnicode)
arr = Split(strLine, vbCrLf) '//分割数组下标从 0
Close #1
Text1.Text = arr(Text2.Text) '//下标从0开始

也可以用 redim preserve 修改数组下标

RIVERBASIN 2007-12-22

打赏
举报

我要求的是列数据啊

一掌定乾坤 2007-12-16

打赏
举报

首先，你把data.txt中的数据读取到Text1.text中，
然后执行下列代码。。。
Dim txt() As String
txt = Split(Text1.Text, vbCrLf)
MsgBox (txt(1))
'txt(0) 是第一行
'txt(1) 是第二行
'txt(N) 是第N行

RIVERBASIN 2007-12-15

打赏
举报

谢谢LS的回答，不过数据是数位不是一个定值！
不过还是要谢谢

dccrazyboy 2007-12-15

打赏
举报

Mid(a,p，[，n])
a为你要找的字符串，input进来
p从第几个开始
n为取几个字符
如b=Mid（"123456",2,3）
那么b=“234”

flexgrid是什么？我没听说过，请别的大虾指教

RIVERBASIN 2007-12-15

打赏
举报

如data.txt中的文件为：
1 2 3 4
2 3 4 5
12 6 7 6

我想要读取第二列的数据
然后导入到flexgrid中

请大虾指导

RIVERBASIN 2007-12-15

打赏
举报

mid 怎么用？

dccrazyboy 2007-12-15

打赏
举报

如果你能确定规律，用Mid不就行了.

浪客 2007-12-15

打赏
举报

dim arr() as string
dim strLine as string

Open "TESTFILE" For Input As #1
Line Input #1, strLine

arr= strLine

arr里面就是分开的每个数据。
arr(2)就是你要的第二列数据

VB如何读取txt文件某列数据

相关推荐