Information générale
Catégorie:
Codage, syntaxe et commandes
Always trying to outdo ourselves. :)
The following code corrects an error in my initial logic and is also far faster and shorter:
Public Function MakeNewString(ByVal InputString As String) As String
InputString = Trim(InputString)
Do While InStr(InputString, Chr$(34))
InputString = Left$(InputString, (InStr(InputString, Chr$(34)) - 1)) & Chr$(39) & Chr$(39) & Right$(InputString, Len(InputString) - InStr(InputString, Chr$(34)))
Loop
MakeNewString = InputString
End Function
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement