Tipp 8.5 - & Zeichen verdoppeln

Wie kann ich ein kaufmännische Und-Zeichen in einem String verdoppeln?

Mit dieser Funktion können Sie ein kaufmännische Und-Zeichen in einem String verdoppeln. 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 ClearAmpersands( _
                ByVal sStrValue As String) _
                As String
  '// -----------------------------------------------------
  '// Methode:   | Verdoppelt das kaufmännische &-Zeichen
  '//            | in Strings
  '// -----------------------------------------------------
  '// Parameter: | sStrValue - Prüfstring
  '// -----------------------------------------------------
  '// Rückgabe:  | Bearbeiteter String
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Dim sBuffer As String
  On Error GoTo Err_ClearAmpersands
  '// doppelte Einträge bereinigen
  sBuffer = Replace(sStrValue, "&&", "&")
  '// jetzt Einträge verdoppeln
  sBuffer = Replace(sBuffer, "&", "&&")
  ClearAmpersands = sBuffer
 
Err_ClearAmpersands:
  Exit Function
 
End Function


Zurück Tipp 8.4 - Zeichen nach Links auffüllen | Inhalt | Tipp 8.6 - Alphanumerisches Zeichen entfernen Weiter