vba - 在VBA中读取带有奇怪行分隔符的csv文件

Question

我有一个输入文件，我正在努力逐行读取，可以找到该文件 here也如下所示:

我想将第一个值添加为键，将第三个值添加为字典中的项

然后稍后我可以这样做: a = myDictonary("CREATED_BY") 然后这将返回“Eigil ...”(我的订单和行数不时变化..)

但不知何故，我无法让拆分工作:

Dim hf As Integer: hf = FreeFile
Dim lines() As String, i As Long

Open FileName For Input As #hf
    Line Input #hf, dataLine
    lines = Split(dataLine, vbNewLine)
    lines = Split(dataLine, "\n")
    lines = Split(dataLine, "CR")
    lines = Split(dataLine, "LF")
Close #hf

我也尝试关注这个 thread

对于喜欢使用字典的人来说，这是我的代码:

 Set getProjectDictionary = CreateObject("Scripting.Dictionary")
    Dim item As String
    Dim key As String
    Dim dataLine As String

    Open FileName For Input As 1

    While Not EOF(1)
        On Error Resume Next
        Line Input #1, dataLine
        temp = Split(dataLine, ",")
        If Not temp(0) = "" Then
            getProjectDictionary.Add temp(0), temp(3)
        End If
        Wend
    Close 1

我在下面添加了一些调试输出:

Answer 1

您附加的屏幕截图显示该文件使用 CR LF 作为换行符，但我从您的 Google Drive 链接下载的文件实际上仅使用 LF，因此您可能希望使用:
lines = Split(dataLine, vbLf)
此外，该文件使用带有 BOM 的 Little Endian UCS-2 编码。如果您只是使用 Open 打开文件声明，您很可能会遇到损坏的字符和其他与编码相关的问题。我建议using Filesystem object instead .