Question

我正在编写代码块，该代码块将从逗号分隔的数据文件中读取行文本，并清除所有多余的文本限定符“”。每个字段需要1套。麻烦的是文件不会有换行符（不能更改），因此将其读取为1个长字符串。一切都准备好了，直到应该在一行切换到行尾的“，”，“”对着“”“”“的位置为止。我知道每行中有多少个字段，因此找到该字段不是问题。我已经动了4个小时的大脑，试图弄清楚如何区分两组文本限定符，同时还要使它的清理部分清除任何多余的附加字符。这些是需要清理的示例

,""10/20/18"""",        >>> ,"10/20/18""",  
,"10/20/18"""4380012"", >>> ,"10/20/18""4380012",  
,"10/20"/18""4380012",  >>> ,"10/20/18""4380012",
,""""4380012",          >>> ,"""4380012",

我的第一个想法是标记两个外部逗号的位置并保存它们之间的距离。我至少知道在字段之间应该有一对引号，所以我认为在字段中移动i和i + 1可能是弄清楚它应该去哪里的好方法，但是我无法确定最佳配置即可做到。
然后我想通过分别从左侧和右侧分别进行i = i + 1和n = n-1来从任一侧进入，但是我遇到了类似的困难。

最大的问题是当内边缘或外边缘上有额外的预选赛而另一个字段为空白时。

'My String
strLn as String
'Total number of quotes, good path = 4, bad path > 4
QuoteTotal as Integer
'the First quotes position
FirstQ as Integer
'The Ending quote position
RightQ as Integer
'Counter equals the position of the leading comma
Counter as Integer
'holds the quote character for use throughout code
Q as String
Q = Chr(34)
'Holds the comma character for use throughout the code
C as String
C = Chr(44)
'Holds the position of the last quote and the number of quotes between the fields
Dim LFieldQ As Integer
Dim LFieldQTotal As Integer
LFieldQ = 0
LFieldQTotal = 0
'Tracks position and length of the first data we find moving left to right
Dim LData as Integer
Dim LDatalen as Integer

    For i = Counter To Len(strLn)
        If (Mid(strLn, i, 1) = Q) Then
            LFieldQTotal = LFieldQTotal + 1
        End If
        If (Mid(strLn, i + 1, 1) = Q And Mid(strLn, i + 2, 1) = C) Then
            LFieldQTotal = LFieldQTotal + 1
            LFieldQ = i + 1
            Exit For
        End If
    Next

    If (LFieldQTotal <> 4) Then
        For i = FirstQ + 1 To LFieldQ
            If (Mid(strLn, i, 1) = Q) Then
                strLn = Mid(strLn, 1, i - 1) & Replace(strLn, Q, "", i, 1)
            ElseIf (Mid(strLn, i, 1) <> Q) Then
                LData = i
                For n = i To LFieldQ
                    If (Mid(strLn, n, 1) = Q) Then
                        LDatalen = n - 1
                        i = n
                        Exit For
                    End If
                Next
            End If
        Next
    End If

（我知道这是不完整的）
这个障碍是我目前尝试让i和i + 1穿过田野的尝试。我已经陷入了退出幸福道路的困境，但我不应该这样做，因为外部if语句已经确定我们不会找到幸福道路。
我希望清洁方面能够清除任何数量的多余限定符以及它们的任何组合，这对我来说也可能是不必要的标准，因为老实说，在一个领域，但我希望它为所有可能的情况工作。任何想法将不胜感激。不是在寻找可解决的代码块，而是在正确方向上进行任何推送都是很好的。

Answer 1

一开始我不知道的信息是，正确的字段中总会有一个值，所以我只需要处理诸如

,"""""4380012",         >>> ,"""4380012",
,""""4380012"",         >>> ,"""4380012",
,""10/20/18"""4380012", >>> ,"10/20/18""4380012",

这使得字段在一堆引号中所在位置的模棱两可的性质更加容易管理。以下是我的最终产品，该产品似乎可以在我需要的所有情况下正常工作。

Private Sub TestSub()
Dim strLn As String
Dim i As Integer
Dim n As Integer
Dim s As Integer
Dim Q As String
Q = Chr(34)

strLn = "," & Q & Q & Q & "ABC" & Q & Q & Q & Q & Q & "DEF" & Q & ","
LfieldQ = Len(strLn) - 1
MsgBox (strLn)
n = LfieldQ

Do While n > FirstQ
    If (Mid(strLn, n, 1) = Q And Mid(strLn, n - 1, 1) = Q And (n = LfieldQ)) Then
        strLn = Mid(strLn, 1, n - 2) & Replace(strLn, Q, "", n - 1, 1)
        LfieldQ = LfieldQ - 1
        n = n + 1
    ElseIf (Mid(strLn, n, 1) = Q And Mid(strLn, n - 1, 1) <> Q And (n = LfieldQ)) Then
        For i = n - 1 To FirstQ Step -1
            If (Mid(strLn, i, 1) = Q) Then
                n = i
                Exit For
            End If
        Next i
        If (Mid(strLn, n, 1) = Q And Mid(strLn, n - 1, 1) = Q) Then
            n = n - 1
            For i = n - 1 To FirstQ Step -1
                If (Mid(strLn, i, 1) = Q And i <> FirstQ) Then
                    strLn = Mid(strLn, 1, i - 1) & Replace(strLn, Q, "", i, 1)
                ElseIf (Mid(strLn, i, 1) <> Q) Then
                    For s = i To FirstQ Step -1
                        If (Mid(strLn, s, 1) = Q And s <> FirstQ) Then
                            strLn = Mid(strLn, 1, s - 1) & Replace(strLn, Q, "", s, 1)
                            Exit For
                        End If
                    Next
                End If
            Next
        End If



    End If
    n = n - 1
Loop
MsgBox (strLn)
End Sub

VBA文字限定词清洗程序

1 个答案: