VBA 如何将文本内容写入到数组中

leegy2

数组为3维数组，定义为Arr(1 to count ,1 to 3)
其中count 为文本内容行数，根据文本行数改变大小
文本示例如附件所示
请问大侠如何将文本内容写入到数组中。谢谢

huang1314wei

楼主，先把数组的维数搞清楚

leegy2

huang1314wei 发表于 2018-8-9 11:36
楼主，先把数组的维数搞清楚

忽略这个错误，看其他文字

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, j, arr, n, t
  Open ThisWorkbook.Path & "\文本内容.txt" For Input As #1
  arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
  Close #1
  For i = 0 To UBound(arr)
    If InStr(arr(i), vbTab) Then
      t = Split(arr(i), vbTab)
      If i = 0 Then ReDim brr(1 To UBound(arr) + 1, 1 To UBound(t) + 1)
      n = n + 1
      For j = 0 To UBound(t)
        brr(n, j + 1) = t(j)
      Next
    End If
  Next
  With [a1]
    .Resize(Rows.Count, UBound(brr, 2)).ClearContents
    If n > 0 Then .Resize(n, UBound(brr, 2)) = brr
  End With
End Sub

凌空一羽

Sub lkyy()
    MP = ThisWorkbook.Path & "\文本内容.txt"
    Open MP For Input As #1
    a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    ReDim arr(1 To UBound(a), 1 To 3)
    For i = 0 To UBound(a)
        If Len(a(i)) Then
            n = n + 1
            b = Split(a(i), vbTab)
            For j = 0 To UBound(b)
                arr(n, j + 1) = b(j)
            Next j
        End If
    Next i
    Close #1
End Sub

cwpccna

Option Explicit

Sub test()
  Dim i, j, arr, n, t
  Open ThisWorkbook.Path & "\文本内容.txt" For Input As #1
  arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
  Close #1
  For i = 0 To UBound(arr)
    If InStr(arr(i), vbTab) Then
      t = Split(arr(i), vbTab)
      If i = 0 Then ReDim brr(1 To UBound(arr) + 1, 1 To UBound(t) + 1)
      n = n + 1
      For j = 0 To UBound(t)
        brr(n, j + 1) = t(j)
      Next
    End If
  Next
  With [a1]
    .Resize(Rows.Count, UBound(brr, 2)).ClearContents
    If n > 0 Then .Resize(n, UBound(brr, 2)) = brr
  End With
End Sub

leegy2

cwpccna 发表于 2018-8-9 12:11
Option Explicit

Sub test()

感谢哈，送你一朵小红花

leegy2

凌空一羽 发表于 2018-8-9 11:48
Sub lkyy()
    MP = ThisWorkbook.Path & "\文本内容.txt"
    Open MP For Input As #1

感谢哈，送你一朵小红花

leegy2

一把小刀闯天下 发表于 2018-8-9 11:43
Option Explicit

Sub test()

感谢哈，送你一朵小红花