多列数据的文本文件中提取数据

toptel

需要从文本文件中，提取第一列的数字， vb如何操作？

在之前的贴子中看到下面的语句，但是无法实现多列文本中提取的功能。

Sub addall()

Application.ScreenUpdating = False

Dim arr() As String, i As Long, n As Long, b() As Byte, temp As String, lines() As String, x As Long

ReDim arr(1 To 5, 1 To 65535) '一个二维数组,4列,excel最大能有65535行,

temp = Dir([a1] & "\*.txt")

While temp > ""

n = n + 1

arr(1, n) = temp '数组(1,n)为文件名

Open [a1] & "\" & temp For Binary As #1 '使用1#通道存储打开的文件

ReDim b(LOF(1)) '取得文件长度,定义为数组的长度

Get #1, , b '读取最后的数字',将打开的文本文件读取到数组b中

Close #1 '关闭1#通道

On Error Resume Next '如果错误则跳出,改变错误陷阱

lines = Split(StrConv(b, vbUnicode), vbCrLf) '建立一个数组,数组内容为文件的内容:把文本内容按结束符加换行符分成数组，
'这样lines数组里的每一个元素就是文本文件里每一行的内容。第一行是lines(0)，第二行是lines(1)，依此类推。

arr(2, n) = lines([b1]) 'arr是个两维数组，arr(1,1)是表示第一个文件的名字，
'arr(2,1)是表示第一个文件第7行的内容，arr(3,1)是表示第一个文件第9行的内容，arr(1,1)是表示第一个文件第12行的内容，依此类推。

arr(3, n) = lines([c1])

arr(4, n) = lines([d1])

arr(5, n) = lines([e1])

temp = Dir() '令循环结束条件达到

Wend '结束循环

ReDim Preserve arr(1 To 5, 1 To n)

[a2].Resize(n, 5) = WorksheetFunction.Transpose(arr) '数组arr粘贴到表格中

Application.ScreenUpdating = True
End Sub

avVcXIVb.rar (709 Bytes, 下载次数: 715)

2007-10-31 22:31 上传

点击文件名下载附件
多列数据的文本文件中提取数据

已经上传了需要导入的文本文件。我最后需要导入8944125214963660509这个字段。

[此贴子已经被作者于2007-10-31 22:32:08编辑过]

toptel

lines = Split(StrConv(b, vbUnicode), vbCrLf) '建立一个数组,数组内容为文件的内容:把文本内容按结束符加换行符分成数组，
'这样lines数组里的每一个元素就是文本文件里每一行的内容。第一行是lines(0)，第二行是lines(1)，依此类推。

是不是这句的问题呢？

因为文本文件中一共有三列，用TAb分隔开

northwolves

lines = Split(StrConv(b, vbUnicode), vbCrLf)

数组元素是某行的整个内容

northwolves

try:

Sub addall()
Application.ScreenUpdating = False
Dim arr() As String, i As Long, j As Long, n As Long, temp As String, lines() As String, x As Long
ReDim arr(1 To 5, 1 To 65535)
temp = Dir([a1] & "\*.txt")
While temp > ""
n = n + 1
ReDim Preserve arr(1 To 5, 1 To n)
arr(1, n) = temp '数组(1,n)为文件名
On Error Resume Next
Open [a1] & "\" & temp For Input As #1 '使用1#通道存储打开的文件
lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1 '关闭1#通道
For j = 2 To 5
arr(j, n) = Split(lines(Cells(1, j) - 1), vbTab)(0)
Next
temp = Dir()
Wend
[a2].Resize(n, 5) = arr
Application.ScreenUpdating = True
End Sub

toptel

谢谢狼版。

不过还是不能够导入多行文本的第一列，我现在有些怀疑这个文本文件是否格式不正确？现在无法上传附件，下班后再上传，谢谢阿

northwolves

TRy:

Sub addall()
Application.ScreenUpdating = False
Dim arr() As String, i As Long, j As Long, n As Long, temp As String, lines() As String, x As Long
ReDim arr(1 To 5, 1 To 65535)
temp = Dir([a1] & "\*.txt")
While temp > ""
n = n + 1
ReDim Preserve arr(1 To 5, 1 To n)
arr(1, n) = temp '数组(1,n)为文件名
On Error Resume Next
Open [a1] & "\" & temp For Input As #1 '使用1#通道存储打开的文件
lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1 '关闭1#通道
For j = 2 To 5
arr(j, n) = Split(lines(Cells(1, j) - 1))(0)
Next
temp = Dir()
Wend
[a2].Resize(n, 5) = WorksheetFunction.Transpose(arr)
Application.ScreenUpdating = True
End Sub

toptel

谢谢狼版这么晚还解答，真是无私的教育工作者。

测试通过，正在学习中，遇到问题再向您请教。谢谢

toptel

lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)

arr(j, n) = Split(lines(Cells(1, j) - 1))(0)

请教狼版,上面两个语句的作用是什么呢?还有黄色部分的用法.谢谢您

toptel

狼版好：我查了很久资料，麻烦您看看下面的解释对不对？

lines = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf) '将1号通道打开的文件,写入到lines数组中,
'lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) #1写成1也是可以的
'变量 = Input（串长度，文件号）
'inputb:如果要将整个文件复制到变量，请使用InputB函数将字节从文件复制到变量。
'由于InputB函数返回一个ASCII字符串，因此，必须用StrCopy函数将ASCII字符串转换为Unicode字符串。
'代码如下：file = StrCopy （Input （LOF（filenanum），filenum），vbUnicode）
'vbCrLf ,遇上回车换行符为止

toptel

对于这句：

arr(j, n) = Split(lines(Cells(1, j) - 1))(0)

（0），可以改变查找的列数，举一反三：测试中发现一个问题，如果我要用第二列，返回的值中却包含了“，”，请问如何取消这个逗号。

另外，这个语句用法麻烦详细解释下，非常感谢。

[此贴子已经被作者于2007-11-1 9:31:06编辑过]