RemoveCommaBetween2Quotes

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

Parameters

FullT

Views 134 Downloads 58

Perm link