RemoveCommaBetween2Quotes

Removes comma between the first pair of quotations (RemoveCommaBetween2Quotes)


Public

Tested

Not My Work
Function RemoveCommaBetween2Quotes(FullT)
    Dim Part2 As String, Part1 As String, Part3 As String
    Part2 = ""
    For i = 1 To Len(FullT)
        If Mid(FullT, i, 1) = Chr(34) Then
            For j = i + 1 To Len(FullT)
                If Mid(FullT, j, 1) = Chr(34) Then
                    Part1 = Left(FullT, i - 1)
                    Part2 = Mid(FullT, i + 1, j - i - 1)
                    Part3 = Mid(FullT, j + 1)
                    Exit For
                End If
            Next j
            If Len(Part2) > 0 Then Exit For
        End If
    Next i
    Rett = FullT
    If Len(Part2) > 0 Then
        Part2 = Left(Part2, InStr(1, Part2, ",") - 1) & Mid(Part2, InStr(1, Part2, ",") + 1)
        Rett = Part1 & Part2 & Part3
    End If
    RemoveCommaBetween2Quotes = Rett
End Function

FullT

Views 4433 Downloads 1355

Classic ASP Texts + Strings
ANmarAmdeen
806
Revisions

v4.0