如何导入多个大容量文本文件的每行最后10位字符串？

thumb2004

各位大侠，本人每天有个文本文件，大概20万行，需要将文件每行的最后10位定长导入到EXCEL表中。
或者是导入每行最后一个下划线后面的字符串。
有什么好的办法？

魂断蓝桥

有附件没有？

thumb2004

附件就是这样的文本，有十几万行，要考虑速度问题。

魂断蓝桥

Sub a()
    Dim f As String, s, a, arr(1 To 1048576, 1 To 1), i, m As Long
    f = ThisWorkbook.Path & "\test.txt"
    Open f For Input As #1
    s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Close #1
        For i = 0 To UBound(s)
            If Len(s(i)) Then
                m = m + 1
                a = Split(s(i), " ")
                arr(m, 1) = Right(a(UBound(a)), 10)
            End If
        Next
    Cells.Clear
    [a1].Resize(m, 1) = arr
End Sub

zhaogang1960

ADO法请参考，大数据速度如何请楼主测试：

1. Sub ADO法()
   
2.     Dim cnn As Object, SQL$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='text;hdr=no';Data Source=" & ThisWorkbook.Path
   
5.     SQL = "select right(f1,10) from test.txt"
   
6.     [a1].CopyFromRecordset cnn.Execute(SQL)
   
7.     cnn.Close
   
8.     Set cnn = Nothing
   
9. End Sub
   

复制代码

thumb2004

谢谢了，我试试。

thumb2004

ADO的法子比较快，10万行大概1分钟不到，前面的就不行了。

thumb2004

zhaogang1960 发表于 2014-10-21 22:41
instr函数：

这样写不行，这个文件里有很多“_",而且找到位置后，字符串取得长度也不该是16了，大侠再帮忙看看。

thumb2004

zhaogang1960 发表于 2014-10-16 15:34
ADO法请参考，大数据速度如何请楼主测试：

Dim cnn As Object, SQL$
      Set cnn = CreateObject("ADODB.Connection")
     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='text;hdr=no';Data Source=" & ThisWorkbook.Path
   
     SQL = "select mid(f1,229,16) ,right(f1,1) from demo.txt"
     [b2].CopyFromRecordset cnn.Execute(SQL)
     cnn.Close
     Set cnn = Nothing


为何我做出来的这个中文和下划线都没有了，结果希望的不一样？

thumb2004

这个要用到Schema.ini了吧，如何写呢？