Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

RegExp und Umlaute ersetzen

RegExp und Umlaute ersetzen
ing.grohn
Hallo forum,
im Netz habe ich folgende Routine gefunden:

strText = "schönes Haus an einer Bergstraße"
suchen = Array("ä", "ö", "ü", "ß", " ", "\\", "/")
ersetzen = Array("ae", "oe", "ue", "ss", "_", "-", "-")
strText = str_replace(suchen, ersetzen, strtolower(strText))

lässt sich das auch mit regulären Ausdrücken realisieren
Vielen Dank für eine Antwort und einen schönen Abend
Mit freundlichen Grüßen
Albrecht

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: RegExp und Umlaute ersetzen
08.01.2012 23:20:33
Josef

Hallo Albrecht,
dem Anschein nach handelt es sich dabei um php-Code, die entsprechenden Funktionen sind in VBA nicht enthalten.
das geht in VBA z. B. so.
Sub albrecht()
  Dim strText As String
  Dim suchen As Variant, ersetzen As Variant
  Dim lngIndex As Long
  
  strText = "schönes Haus an einer Bergstraße"
  suchen = Array("ä", "ö", "ü", "ß", " ", "\\", "/")
  ersetzen = Array("ae", "oe", "ue", "ss", "_", "-", "-")
  
  For lngIndex = 0 To UBound(suchen)
    strText = Replace(strText, suchen(lngIndex), ersetzen(lngIndex))
  Next
  
  Debug.Print strText
  
End Sub



« Gruß Sepp »

Anzeige
AW: RegExp und Umlaute ersetzen
09.01.2012 06:21:57
ing.grohn
Hallo Sepp,
frohes Neues und ohne viele Worte: vielen Dank!
Mit freundlichen Grüßen
Albrecht

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige