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

一把小刀闯天下

是换行的问题，为什么不上传大于1行的txt文件？比如说有100行

你前面上传的文件连1行都没到，因为我是假设正常换行的

vbtab只是一个分隔符，你上传的文件中是按vbtab来分割的

harrisondan2000

一把小刀闯天下 发表于 2018-8-22 08:51
是换行的问题，为什么不上传大于1行的txt文件？比如说有100行

你前面上传的文件连1行都没到，因为我是假 ...

小刀老师，我上传了附件，有两行数据，见谅，我使用Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbLf)发现可以正常换行，所以行与行之间是使用chr(10)分隔的，我还发现使用Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbLf)将文本读取到数组中时，中文会乱码。。。

一把小刀闯天下

harrisondan2000 发表于 2018-8-22 14:22
小刀老师，我上传了附件，有两行数据，见谅，我使用Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbLf) ...

感觉是一个二进制文件，你确定后缀名为txt？还是复制粘贴后上传的文件

harrisondan2000

一把小刀闯天下 发表于 2018-8-22 15:08
感觉是一个二进制文件，你确定后缀名为txt？还是复制粘贴后上传的文件

对，我确定是txt文件。
也想过用fso.readline~

一把小刀闯天下

harrisondan2000 发表于 2018-8-22 15:16
对，我确定是txt文件。
也想过用fso.readline~

'测试数据2行都不到？第二行为26个数据。一般至少上传3行

'这方法应该可行，就是会假死机，不用管它，等ok弹出来就结束了

'还是这样只读一次，因为文件太大

Option Explicit

Dim arr, cnt As Long

Sub test() '有条件读取
  If cnt > 0 Then Exit Sub
  Call readfile
  '你的代码
  '
End Sub

Sub rereadfile() '强制读取
  cnt = 0
  Call readfile
End Sub

Function readfile()
  Dim i As Long, j As Long, t, n As Long, s As String, brr
  ReDim arr(1 To 2 * 10 ^ 6, 1 To 33) As String
  Open ThisWorkbook.Path & "\新建文本文档.txt" For Input As #1
  brr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbLf)
  Close #1
  For i = 0 To UBound(brr)
    If InStr(brr(i), vbTab) Then
      cnt = cnt + 1: n = 0: t = Split(brr(i), vbTab)
      For j = 0 To UBound(t)
        If Len(t(j)) > 0 Then n = n + 1: arr(cnt, n) = t(j)
      Next
    End If
  Next
  MsgBox "ok!"
End Function

harrisondan2000

一把小刀闯天下 发表于 2018-8-22 15:33
'测试数据2行都不到？第二行为26个数据。一般至少上传3行

'这方法应该可行，就是会假死机，不用管它， ...

谢谢小刀老师，我加上了自己的代码，完美运行！