张三，23，男，中国公民，广东省
李四，12，女，美国公民，河南省
王五，68，女，中国公民，河北省

逐行读取，切分为一维数组，每行的内容分别对应 a(0)、a(1)、a(2)、a(3)、a(4)，赋值给B版所说结构体数组即可。

大哥，数组不会呀，麻烦你个例子参考一下

给一个例子

Private Sub Command1_Click()
    Dim 数组() As String '定义一个动态数组
    Dim i As Integer
   
    Open App.Path & "/文件.txt" For Input As 1#   '打开输入文件
    Do While Not EOF(1)
        ReDim Preserve 数组(i)  '分配数组，保留原来的数据
        Line Input #1, 数组(i)  '读入数据
        i = i + 1
    Loop
    For i = 0 To UBound(数组)
        Print 数组(i)
    Next
    Close #1    '关闭文件
   
End Sub

版主给的那个排序的套不上啊..你帮忙一起套一下怎么个排序吧兄弟

供参考
Public Sub sort(sName As String, limit As String, dName As String, Lst As ListBox)

  'sName 原文件名
  'dName 存放结果文件名
  'limit 原文件分隔符，注意中英文标点
  'Lst 列表框，借助其排序功能，要在设计状态设置 sorted = true 如果数据量很大，运行缓慢，就要重新排序方法了
  Dim str  As String
    Dim age As Long
   
    Dim k As Long
    Dim i As Long
   
    i = 0
    Open sName For Input As 1#
    Do While Not EOF(1)
        
        Line Input #1, str
        k = InStr(str, limit)
        age = Val(Mid(str, k + 1, Len(str)))
        Lst.AddItem age & i & "," & str
        i = i + 1
    Loop
   
    Close #1
    Open dName For Output As 2#
    For i = 0 To Lst.ListCount - 1
      str = Lst.List(i)
      k = InStr(str, ",")
   
      Print #2, Mid(str, k + 1, Len(str))
      Next
    Close #2
     Lst.Clear
End Sub

这个方法也不错喔，谢谢，如果排序方式要倒序排怎么改？

针对负数这种方式就不行啊

倒序，正序只是个方向问题，在向文件写入时，列表框从最大号向小的方向循环输出就可以了，年龄会有负数吗，如果非要有负数参与，进行简单的变换就可以实现。如果不等式a<b 成立 那么a+k <b+k 同样成立，根据这个道理，把所有数值都加上一个较大的数，使得所有数值为正数，但数据的大小关系并没有改变，再进行排序就行了