vba - 将文本文件中的数据读入 VBA 数组

Question

我有以下 VBA 代码:

Sub read_in_data_from_txt_file()

Dim dataArray() As String
Dim i As Integer

Const strFileName As String = "Z:\sample_text.txt"
Open strFileName For Input As #1

' -------- read from txt file to dataArrayay -------- '

i = 0
Do Until EOF(1)
    ReDim Preserve dataArray(i)
    Line Input #1, dataArray(i)
    i = i + 1
Loop
Close #1

Debug.Print UBound(dataArray())

End Sub

我正在尝试从文件中逐行读取文本(假设 'sample.txt' 是一个常规的 ascii 文件)，并将这些数据分配给数组中的连续元素。

当我运行它时，我将所有数据都放在数组的第一个值中。

例如，如果“sample.txt”是:

foo
bar
...
dog
cat

我希望这些单词中的每一个都在一个连续的数组元素中。

Answer 1

你所拥有的很好；如果一切都以 dataArray(0) 结束那么文件中的行没有使用 CrLf分隔符 so line input正在捕获一切。

反而;

open strFileName for Input as #1
dataArray = split(input$(LOF(1), #1), vbLf)
close #1

假设分隔符是 VbLf (它会来自 *nix 系统)