在 vb6 中将 adodb 记录集导出到 CSV 时，如何从 adodb 记录集中删除特殊字符（精确地双引号）？

Question

我的要求是在使用以下代码导出到 VB6 中的 CSV 时，从 adodb 记录集中删除特殊字符，尤其是双引号。

如果存在任何双引号，则双引号后的值将移至下一列。

具体来说，双引号出现在 rsData.Fields(K).Value 中，而不是出现在 rsData.Fields(K).Name 中。我不确定如何删除 rsData.Fields(K).Value 中的双引号。

任何解决此问题的帮助将不胜感激。提前致谢。

'Converting the recordset 

Public Function RecordsetToCSV(rsData As ADODB.Recordset, Optional ShowColumnNames As Boolean = True, Optional NULLStr As String = "") As String
    Dim K As Long, RetStr As String
    
    If ShowColumnNames Then
        For K = 0 To rsData.Fields.Count - 1
            RetStr = RetStr & ",""" & rsData.Fields(K).Name & """"
        Next K
        
        RetStr = Mid(RetStr, 2) & vbNewLine
    End If
    
    RetStr = RetStr & """" & rsData.GetString(adClipString, -1, """,""", """" & vbNewLine & """", NULLStr)
    RetStr = Left(RetStr, Len(RetStr) - 3)
    
    RecordsetToCSV = RetStr
End Function 

'Creating CSV file
    Dim CSVData As String
    CSVData = RecordsetToCSV(rsData, True)

    Open "C:\test.csv" For Binary Access Write As #1
        Put #1, , CSVData
    Close #1

参考： https://www.vbforums.com/showthread.php?481705-VB6-Save-Recordset-to-CSV-format

Answer 1

您需要转义双引号，这是通过将它们加倍来完成的。

RetStr = RetStr & ",""" & Replace(rsData.Fields(K).Name, """", """""") & """"

Answer 2

您可以使用默认值通过使用字符作为分隔符来导入带双引号的数据

Change:

RetStr = RetStr & ",""" & rsData.Fields(K).Name & """"

To:

RetStr = RetStr & "," & vbTab & rsData.Fields(K).Name & vbTab

And

RetStr = RetStr & """" & rsData.GetString(adClipString, -1, """,""", """" & vbNewLine & """", NULLStr)

To:

RetStr = RetStr & rsData.GetString(adClipString)  

并且您可能必须将删除最后字符的最后一行更改为

RetStr = Left(RetStr, Len(RetStr) - 2)

EDIT -如果您确实认为必须从数据中删除双引号，则可以首先使用不同的分隔符来实现 - 说波形图“~”，然后在一步中替换双引号，并在下一步中替换波形图

如：

RetStr = RetStr & "~" & rsData.GetString(adClipString, -1, "~")

最后一行将是

RetStr = Replace(RetStr,"""","")    
RecordsetToCSV = Replace(RetStr,"~","""")

当然，请记住在列标题循环中使用“~”

RetStr = RetStr & ",~" & rsData.Fields(K).Name & "~"