在从 VBA 中的 csv 文件加载数据期间将 2 个双引号替换为 1 个双引号

Question

我将 csv 文件中的行加载到数组中（打开 dataFilePath For Input As #1 等等……）。加载的数组数据用 2 个双引号括起来。示例：“”””（空字符串）、“”myText””、“”75823””。问题是后面的代码程序无法正确检测空数组元素或其他数据。我找到了如何将字符串开头和字符串末尾的 2 个双引号替换为 1 个双引号的方法：

For i = 0 To lastArrayIndex
    thisString = columnsDataInThisLine(i)
    theFirstStringSymbol = Left(thisString, 1)
    If theFirstStringSymbol = """" Then
        'Replace double double quotes in the string beginning and _
        'the end into single double quotes
        thisString = Mid(thisString, 2, Len(thisString) - 2) 
    End If
    columnsDataInThisLine(i) = thisString
Next i

在这段代码之后，我得到了我需要的东西 - 示例：“”（空字符串）、“myText”、“75823”，但也许我在从 csv 文件加载数据期间遗漏了一些东西（编码或其他东西）。在读取 csv 文件期间，在加载到数组字符串的开头和结尾删除这 2 个双引号可能是更简单的方法？

Answer 1

此双引号是特定于语言的。如果这些是您想要避免的唯一字符并且您没有任何其他“奇怪”字符，那么您可以在 Excel 中遍历单元格的字符并检查它们是否是非标准的（例如，不是前 128 个 ASCII 字符）：

Public Sub TestMe()

    Dim stringToEdit    As String
    Dim cnt             As Long
    Dim myCell          As Range
    Dim newWord         As String

    For Each myCell In Range("A1:A2")
        newWord = vbNullString
        For cnt = 1 To Len(myCell)
            Debug.Print Asc(Mid(myCell, cnt, 1))
            If Asc(Mid(myCell, cnt, 1)) >= 127 Then
                'do nothing
            Else
                newWord = newWord & Mid(myCell, cnt, 1)
            End If
        Next cnt
        myCell = newWord
    Next myCell

End Sub

因此，假设您有这样的输入：

它会意识到，引号有点奇怪，不应该包含在原始文本中，因为它们不是 ASCII 表中前 128 个单元的一部分。

运行代码后，您会得到一个空单元格和 75823。