VBA读取txt文件如何识别空格分隔和制表符分隔?

laoliu09 · 发表于 2012-2-23 18:40:00

好久没来乐筑天下了，变了好多啊，事过境迁，二次开发帮助了我好多好多，工作轻松多了，最近突然又想起编写几个，就碰到了VBA读取txt文件如何识别空格分隔和制表符分隔的问题~
例如：桩号设计中心线  现状中心线
   0+000    12.00       15.00
   0+100    12.50       16.50
以上是txt文件，中间或是空格分隔，或是制表符分隔，我如何识别呢？就想读取这个文件的数据到程序里面！
谢谢大家啦！呵呵！
不知道以前的斑竹还做斑竹不？呵呵！一来乐筑天下就想起很多往事，至少4年没来了！呵呵！祝大家2012万事如意！

黄玉宏 · 发表于 2012-2-23 18:49:00

发过读取文本文件的函数
Function OpenTxtFile(fileName As String, N, L, H() As String, W() As String, X() As String, Y() As String, Z() As String) As Boolean
L = -1 '初始值
Close #1: Open fileName For Input As #1 '打开文件
Do Until EOF(1)
DoEvents
L = L + 1
ReDim Preserve H(L), W(L), X(L), Y(L), Z(L)
Select Case N
Case 1
Input #1, H(L)
Case 2
Input #1, H(L), W(L)
Case 3
Input #1, H(L), W(L), X(L)
Case 4
Input #1, H(L), W(L), X(L), Y(L)
Case 5
Input #1, H(L), W(L), X(L), Y(L), Z(L)
End Select
Loop '文件读取循环
Close #1 '关闭文件
OpenTxtFile = True '读取完成
End Function