[VBA程序]：如何读取txt文件中的数据？

mlr_nj

请教各位大侠：现有一个数据文件为txt格式，文件中数据是每行三列，各列之间用空格键隔开。现在如何读取指定的某一个位置的数据，比如读取第5行第2列的数据？感激不尽！！

guojianguo1012

在读取文本文件时，是可以按照起止位置进行读取的。你可以用< Get [#]Num,position,var >方法来读取，其中[#]Num为文件号，position为读取的起始位置，var为要读取的数据长度。假如你读取的数据在文件中排列的很有规律，你也可以设立数组进行读取，将数据读到各个数组中，再提取你想要的！

mlr_nj

这个position是个什么量？对我这个例子而言，position是5还是2还是5*2＝10？

guojianguo1012

不是2也不是5，这个position是从文件的第一个字符开始数，如果你的第5行第2列的起始位置是整个文件的第50个字符，那么position＝50.其实这种方法对很有规律的数据进行读取时显得有些笨，还是用我说的第二种方法要好一些。

mlr_nj

我也想用第二种，但是不知道怎么把txt文件中的数据转到程序中的数组里面啊，我没有做过，真是不懂，所以还是再细问一句啊？用什么语句？

雪山飞狐(lzh)

Sub tt()
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile("e:\1.txt", 1)
    lines = Split(ts.ReadAll, vbCrLf)
    ts.Close
    For Each i In lines
        MsgBox i
    Next
End Sub

guojianguo1012

Public Type tuzhimulu
   tumingduru As String * 100
   tuhaoduru As String * 50
   hhf As String * 2
End Type
～～～～～～～～～～～～～～～～
Private Sub UserForm_Activate()

   Open ("C:\tuming.dat") For Random As 1 Len = Len(tuhaoduxie(0))
   recN = LOF(1) / Len(tuhaoduxie(0))

   If recN > 0 Then
      For xunhuanj = 1 To recN
         Get #1, xunhuanj, tuhaoduxie(xunhuanj)
      Next xunhuanj

    ComboBox1.Clear
    ListBox1.Clear
    ListBox2.Clear
    ListBox3.Clear
   
    For xunhuanj = 1 To recN
ComboBox1.AddItem CStr(xunhuanj)
ListBox1.AddItem CStr(xunhuanj)
ListBox2.AddItem CStr(RTrim(tuhaoduxie(xunhuanj).tumingduru))
ListBox3.AddItem CStr(RTrim(tuhaoduxie(xunhuanj).tuhaoduru))
    Next xunhuanj

   End If
         Close #1
If ComboBox1.ListCount <> 0 Then ComboBox1.ListIndex = 0
End Sub

上面的程序是我做的程序的一部分，其中 “tumingduru As String * 100”中的100可认为是你要读取的第一列数据的宽度（字符数），“tuhaoduru As String * 50”中的50可认为是你要读取的第二列数据的宽度（字符数）。将读出来的数据读到数组中，就可以提出你想要的数据了！