如何将txt内容写入到数组中

harrisondan2000

您好，已知txt的名称已经储存位置，txt是一个200万行、33列的文件，该txt复制到excel时会自动分行分列, 但我现在希望使用VBA将其数据分行分列保写入数组中，然后可以通过if语句提取符合条件的数据到excel表中，请问该如何写入？

wj2368

调好数组大小，循环写入

我是来讨说法的

直接用SQL
一步到位，不需要用数组和if过度

zhenghui13

200W行EXCEL应该不行了,用SQL进行表查底应该是最快的选择，不过我不会SQL.可以用Python试试。
import pandas as pd
df = pd.read_table('example.txt', sep='[ |,]', encoding='utf-8', engine='python')
[]可以表示按空格或,分隔

harrisondan2000

我是来讨说法的 发表于 2018-8-21 16:59
直接用SQL
一步到位，不需要用数组和if过度

请问如何实现呢？

我是来讨说法的

harrisondan2000 发表于 2018-8-21 17:26
请问如何实现呢？

请问带数据的txt在哪里？

harrisondan2000

我是来讨说法的 发表于 2018-8-21 17:29
请问带数据的txt在哪里？

是公司的数据，所以不方便发出来，您能具体说一下您的思路吗？我可以尝试自己去实现~

一把小刀闯天下

'文件太大只读取一次，可在其它过程中使用条件来处理arr数组，上标为cnt

Option Explicit

Dim arr, cnt As Long

Sub test()
  If cnt > 0 Then Exit Sub Else cnt = 0
  Dim i As Long, j As Long, t, n As Long, s As String
  ReDim arr(1 To 2 * 10 ^ 6, 1 To 33) As String
  Open ThisWorkbook.Path & "\example.txt" For Input As #1
  Do While Not EOF(1)
    Line Input #1, s
    If InStr(s, vbTab) Then
      cnt = cnt + 1: n = 0: t = Split(s, vbTab)
      For j = 0 To UBound(t)
        If Len(t(j)) > 0 Then n = n + 1: arr(cnt, n) = t(j)
      Next
    End If
    'doevents
  Loop
  Close #1
  MsgBox "ok!"
End Sub

jiminyanyan

200万行，对EXCEL来说。有点大了把。。。

harrisondan2000

一把小刀闯天下 发表于 2018-8-21 19:57
'文件太大只读取一次，可在其它过程中使用条件来处理arr数组，上标为cnt

Option Explicit

Hi 小刀老师，

测试了一下您给的代码，发现了如下三个疑问，尝试自己解决，但没有弄明白，请您看看：

1. arr(cnt, n)会出现下标越界的问题，此时cnt的值是1，n的值是34, 也就是arr(1,34)对应的t(j)本应该是arr(2,2), 所以可能line input读取的行有问题，这个文本文件复制在excel中是自动换行的，就说明有换行符，在txt第一行的最后一列（如ABC）和第二行的第一列（如123）显示为ABC123, 复制到word中是可以看见换行符的，请问如何解决这个问题呢？

2. instr(s, vbtab)显示的值为11, 一般来讲，一行中有33列，那么这里instr的值应该是32, 没太搞明白是哪里不太对。。请指教~

3. 因为某些行一些列是没有内容的，所以这时Len(t(j)) 就会等于0，（但标题行arr(1,x)不会出现这样的问题），请问这种情况下怎么处理呢？


测试发现我的这个文本文件是按照Chr(10)换行，是不是就不可以用line input了？