Tipp 8.1 - Anführungszeichen ersetzten

Wie kann ich Anführungszeichen in einem String mit Hochkommata ersetzten?

Mit dieser Funktion können Sie Anführungszeichen in einem String mit Hochkommata ersetzten. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Function QuotesToApostrophes(sStrValue As String) _
                                    As String
  '// -----------------------------------------------------
  '// Methode:   | Konvertiert Anführungszeichen
  '//            | in Hochkommata
  '// -----------------------------------------------------
  '// Parameter: | sStrValue - Prüfstring
  '// -----------------------------------------------------
  '// Rückgabe:  | Bearbeiteter String
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Dim sBuffer As String
  On Error GoTo Err_QuotesToApostrophes
  sBuffer = Replace(sStrValue, """", "'")
  QuotesToApostrophes = sBuffer
 
Err_QuotesToApostrophes:
  Exit Function
 
End Function


Zurück | Inhalt | Tipp 8.2 - Zeichen entfernen Weiter