Question

作为VBA的初学者，我试图特别了解这些内容，所以原谅我的尘埃。

我有一个子程序，我正在写文本文件中的行。每行都用空格分隔。作为文本标识符。我要求每一行作为多维数组分割成字段。

Sub ReadLines()
Dim LineValues() As String
Dim row As Long, col As Long
Dim DataArray() As String
Dim TempArray() As String
Dim FileContent As String
Dim FilePath As String

FilePath = "c:\mytextfile.txt"
row = 0
TextFile = FreeFile
Open FilePath For Input As TextFile
FileContent = Input(LOF(TextFile), TextFile)
Close TextFile
LineValues = Split(FileContent, vbCrLf)

For X = LBound(LineValues) To UBound(LineValues) 
 If Len(Trim(LineValues(X))) <> 0 Then
 DataArray = Split(LineValues(X), "'") 
 col = UBound(DataArray)
 TempArray = DataArray
 ReDim DataArray(col, row) 
 For i = LBound(TempArray) To UBound(TempArray)
 DataArray(i, row) = TempArray(i)
 Next i
 End If
 row = row + 1 
Next X

在与ReDim Preserve的多维问题作斗争之后，我找到了这段代码。（只能修改最后一个维度）我的文本文件中的多维数组将具有未知的列和行，具体取决于用户输入。

此代码正确执行此过程...但只是无法正确存储数组元素！上面的意图是使用临时数组（TempArray），同时我ReDim（并清空）我感兴趣的数组（DataArray），然后将最初从DataArray复制的元素复制回调整大小的维度。

然而，当单步执行代码时，我可以看到每一行都正确放置，但随后每行迭代都会擦除， DataArray = Split（LineValues（X），＆＃34;＆＃39;＆＃34;）

我基本上有一个矩阵，其大小由行总数决定，但仅由最后一行的列数（以及最后一行的值）决定。

我意识到为什么会发生这种情况但是这里的任何人都可以提出解决方案吗？作为初学者，这有点令人抓狂！

编辑，完整问题说明

为了完全澄清，这是一个子程序，我将作为脚本的一部分调用，读取包含无关数据的文本文件。这个文本文件看起来像这样，（引用的模糊性是故意的）

 '<irrelevant text I want to ignore until seeing pattern 'NumberOfVariables?'>
    ...
    ...
    NumberOfVariables?
    NUMBEROFVARIABLES
    'for the end user, I need to be able to pull information from each of these fields assigned to a variable to create strings as headers as per a specific format
'note that variable and variable type 
    Variable#1 VARIABLETYPE Location? LOCATION UNITS DESCRIPTION 'text for each field is enclosed as follows '' (code formatting on site prevents me doing this)
    Variable#2 VARIABLETYPE Location? LOCATION UNITS DESCRIPTION
    ...
    Variable#NUMBEROFVARIABLES
    ' from here there is a column of data that is assigned to each variable such that
    Variable#1Element1         Variable#2Element1       'etc until #NUMBEROFVARIABLES
    Variable#1Element2         Variable#2Element2 
    Variable#1Element3         Variable#2Element3 
    Variable#1FinalElement     Variable#2FinalElement

主要目标是使用原始帖子中的脚本在多维矩阵中获取这些字段，然后我可以使用这些字段对某些条件语句根据最终用户的需求获取标题字符串。

然后，我会找到一种方法让数据列与每个变量匹配，以便它可以自动化到Excel中。

更进一步的是某种带有下拉菜单的MsgBox可以选择要复制的变量，但现在正在思考我的开发阶段的天空中的那个馅饼！

Answer 1

试试这个。我没有测试过它：

Sub ReadLines()

    Const FilePath$ = "c:\mytextfile.txt"

    Dim iFile%, c&, i&, j&, k&, Content$, Lines, Temp, Data

    c = 499
    Open FilePath For Input As #iFile
    Content = StrConv(InputB(LOF(iFile), iFile), vbUnicode)
    Close #iFile

    Lines = Split(Content, vbCrLf)
    ReDim Data(0 To UBound(Lines), 0 To c)

    For i = 0 To UBound(Lines)
        If Len(Trim$(Lines(i))) Then
            Temp = Split(Lines(i), "'")
            If k < UBound(Temp) Then k = UBound(Temp)
            If k > c Then
                c = k * 2
                ReDim Preserve Data(0 To UBound(Lines), 0 To c)
            End If
            For j = 0 To UBound(Temp)
                Data(i, j) = Temp(j)
            Next
        End If
    Next
    ReDim Preserve Data(0 To UBound(Lines), 0 To k)

End Sub

Answer 2

我要求将每一行作为多维数组拆分为字段。

嗯，我不知道这是否真的如此，因为我不确定你最终做什么的数据，但无论如何，一个超级简单的替代方案是将.txt文件读入工作簿结构。

为此，请使用带有参数Workbooks.OpenText的{{1}}方法（根据您的使用情况，可能还需要一些其他可选参数）。

这应该打开正确分隔的文本文件到“字段”（工作表中的列）。

从那里，您可以将工作表的TextQualifier:=xlTextQualifierSingleQuote指定给变体数组。

填充临时数组以避免在动态多维数组上使用Preserve

2 个答案: