大文件如何处理

smhf_6

日常处理的文件一般在 几M 到几十M之间，都是将整篇文档读出处理。
今天碰到了一个200M的，下面二种办法都不行，最后是用手工将这个文件分成2个才解决的。
只是手工拆分打开文件也费时，拆分时又不能打乱结构，非常不容易

各位老师，是否有好一点的办法？ 谢谢指点

Open FileName For Input As #1  

a = split(StrConv(InputB(LOF(1), #1),vbUnicode),vblf)   ' 到此崩溃

Close #1

  

i = 1

Open FileName For Input As #1   

  DoWhile Not EOF(1)       ' 到此崩溃

     Redimpreserve a(i)         

    Line Input #1, a(i)    　　  

  i = i + 1

Loop

  Close #1

一把小刀闯天下

Open FileName For Input As #1   
  DoWhile Not EOF(1)       ' 到此崩溃
     Redimpreserve a(i)         
    Line Input #1, a(i)    　　  
  i = i + 1
Loop
改成：------------------
Open FileName For Input As #1   
  redim a(1 to 10^7) as string
  DoWhile Not EOF(1)       ' 到此崩溃
    if i mod 10^4=0 then doevents '至少不会卡住了，但影响速度
    i = i + 1
    Line Input #1, a(i)    　　  
Loop

smhf_6

一把小刀闯天下 发表于 2018-8-7 13:31
Open FileName For Input As #1   
  DoWhile Not EOF(1)       ' 到此崩溃
     Redimpreserve a(i)     ...

非常感谢，明天上班再去试试，
文件大了，无论手工打开、保存、导入表格、宏处理......都会变得慢，这可以理解，但只有能运行，不卡住不死机，还是能接受的

fxl447098457

有没有试过用ado读取，然后分页循环写出来。