一个CSV文件，约25兆，200000（二十万）行左右，对这个文件进行读写成一个新的文件，我的程序如下，附件为CSV文件，在我的电脑上大概需要8秒左右，还能快些吗？最快能多快？

Private Sub Command1_Click()
    Dim strWj As String
    Dim strJ() As String
    Dim aryContent() As Byte
    Dim tmp() As String
    Dim i As Long
    Dim j As Long
    tttt = Timer
    Open "c:\1.csv" For Binary As #1
        ReDim aryContent(LOF(1) - 1)
        Get #1, , aryContent
    Close #1
    Open "c:\temp.txt" For Append As #2
    strWj = StrConv(aryContent, vbUnicode)
    strJ = Split(strWj, vbCrLf)
    For i = 0 To UBound(strJ)
        If IsNumeric(Left(strJ(i), 1)) = True Then
            tmp() = Split(strJ(i), ",")
                If tmp(2) = "True" Then
                    Print #2, tmp(5) & vbTab & tmp(6) & vbTab & tmp(16) & vbTab & tmp(20) & vbTab & tmp(23) & vbTab & tmp(24)
                End If
        End If
    Next i
    Close #2
    MsgBox Timer - tttt
End Sub

恳求路过的大神和各位高手能够给予帮助，谢谢了(^～^)。

已经很快了，在我电脑上不到3秒。

版主大大，我还想尝试另外一种方法，但语句不会写，就是所有需要写入的东西内存中生成，然后一次性写入，不知会不会快点，另外这个语句怎么写，请版主教我。谢谢！

看代码，已很不错了。
你测试一下 print 命令的效率是否有差异
Print #2, tmp(5) ; vbTab ; tmp(6) ; vbTab ; tmp(16) ; vbTab ; tmp(20) ; vbTab ; tmp(23) ; vbTab ; tmp(24)

按我的理解
使用 & 进行连接字符串时，每个 & 都要进行一次连接字符串的运行。
使用 分号 ，我理解是按指定的格式，把数据一个一个的压进堆栈，然后直接调用函数。C 写的函数，比我们用VB写的代码要快。

可以尝试直接处理byte数组，然后一句Put #1, , aryContent写入试试。不要尝试转换为字符串处理，那样速度比直接写入文件还慢。

恳求wmf2014版主不吝赐下能达到我原程序相同效果的写法和语句，拜谢。

应该使用指针的方法会更快一些...

在我的电脑上实测，用;比用&慢大概0.3

实测图