VBA - 在多维数组中分割 CSV 文件

使用VBA编程语言可以轻松地对CSV文件进行处理和分割。CSV文件是一种常见的数据格式，其中每行都包含多个字段，字段之间用逗号分隔。在某些情况下，我们可能需要将CSV文件按照特定的条件进行分割，以便更好地处理和分析数据。在本文中，我们将学习如何使用VBA在多维数组中分割CSV文件，并提供一个实际案例来演示其用法。

plaintext
姓名,年龄,性别
张三,25,男
李四,30,男
王五,28,女

vba
Sub SplitCSVFile()
    Dim filePath As String
    Dim fileContent As String
    Dim dataArray() As String
    Dim maleArray() As String
    Dim femaleArray() As String
    Dim i As Long
    
    '指定CSV文件路径
    filePath = "C:\path\to\data.csv"
    
    '读取CSV文件内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), 1)
    Close #1
    
    '将CSV内容按行分割为数组
    dataArray = Split(fileContent, vbCrLf)
    
    '遍历数组，将男性和女性数据分别存储在不同的数组中
    For i = 1 To UBound(dataArray)
        If InStr(dataArray(i), "男") > 0 Then
            maleArray = Split(dataArray(i), ",")
        ElseIf InStr(dataArray(i), "女") > 0 Then
            femaleArray = Split(dataArray(i), ",")
        End If
    Next i
    
    '输出男性数据
    For i = 0 To UBound(maleArray)
        Debug.Print "男性数据：" & maleArray(i)
    Next i
    
    '输出女性数据
    For i = 0 To UBound(femaleArray)
        Debug.Print "女性数据：" & femaleArray(i)
    Next i
End Sub