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

FullT

Views 463 Downloads 137

'comma', 'string', 'quote', 'quotes', 'double', 'replace', 'substitute', 'change', 'convert'

ANmarAmdeen
323
Texts + Strings VBA
Revisions

v1.0