Removes comma between the first pair of quotations (RemoveCommaBetween2Quotes)
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
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 4,665
Downloads 1,439
CodeID
DB ID
ANmarAmdeen
613
Revisions
v4.0
Thursday
March
5
2020