Question

如何使用Visual Basic程序来读取文本文档数据？

小弟想请教一下一个关于Visual Basic程序读取文本文档数据的问题，具体问题大概是这样：对一些文本文档的数据进行数据的筛选，文本文档的格式是固定的，里面有很多数据，但是我只需要其中几个数据，每次要找出这些数据的时候我都要打开每一个文本文档，找到其中需要的数据，然后在复制出来，黏贴到另外的excel中，我现在想用Visual Basic程序来编一个程序来实现对多个文本文档数据的读取，自动刷选出我需要的数据，筛选的数据生成excel的固定格式。请问我要用到Visual Basic程序的哪些语句来实现这个功能。
谢谢！！！

Answer 1

Function lines(txtpath As String, ByVal startline As Integer, linenum As Integer) As String '显示 txtpath 文件的从startline 行开始的 linenum 行的内容
lines = ""
Dim filetxt As String, x As Variant, i As Integer
filetxt = String(FileLen(txtpath), " ")
Open txtpath For Binary As 1
Get #1, , filetxt
Close 1
x = Split(filetxt, vbCrLf)
msgbox ubound(x)+1 '行数
If startline > UBound(x) Then MsgBox "行溢出", 64, "err!": Exit Function
If startline <= UBound(x) Then
If startline + linenum <= UBound(x) Then
For i = startline To startline + linenum - 1
lines = lines & x(i) & " "
Next
Else
For i = startline To UBound(x)
lines = lines & x(i) & " "
Next
End If: End If

End Function

如果文本文件很多行的可以用sendmessage

Answer 2

①你可以用选择打开方式的方法直接打开试一下。
②若想学习vba，你可以参考:
http://zhidao.baidu.com/question/53103567.html?si=1
http://zhidao.baidu.com/question/24431131.html?si=2