Straßen- und Ortsnamen korrekt schreiben

[Gucky_87]

Huhu,

Gibt es eine einfache Möglichkeit, Straßen- und Ortsnamen mit Bindestrich "-) korrekt in Groß-/Kleinschrift umzuformen?

Ich habe z.B. alles in Großbuchstaben:

OTTO-MEYER-STR. und will daraus Otto-Meyer-Str. machen.
Oder HAMBURG-ALTONA in Hamburg-Altona umwandeln.

Mit StringLower, OutputVar, InputVar , T kann ich ja den Titelmodus aktivieren, der sich aber
dummerweise nicht an die "-" hält. Die werden (logischerweise) als Zeichen betrachtet.
Löschen kann ich sie vorher nicht, da im Text andere Leerzeichen vorkommen können.

Grüße,

Gucky.

[BoBo]

StrSplit() gegen den bindestrich. Alle elemente be'titel'n. Elemente mit neuem bindestrich verbuxeln. Irgendwie so ...

Spoiler

Code: Select all

#SingleInstance, Force

;   line := "KAISER-WILHELM-STRASSE"
;   line := "OTTO SUHRKAMP - STRASSE"
line := "MIR - FÄLLT - NIX MEHR EIN - STRASSE"

array := StrSplit(line,"-")
Loop % array.MaxIndex()
   newLine .= If (A_Index = array.MaxIndex()) ? Conv(array[A_Index]) : Conv(array[A_Index]) "-"
MsgBox % newLine
      
Conv(line) {
   StringUpper, line, line, T
   Return line
   }

PS. es werden noch RegExReplace-wetten angenommen

[Gucky_87]

Klar Mann. StringSplit. Nicht dran gedacht.
Dank Dir XD

Gucky.

[Gucky_87]

So, das Problem habe ich mit StringSplit gelöst.
Aber nun kommt eine 2. Sache dazu, an die ich nicht gedacht hatte:

Ich habe z.B. im Straßennamen möglicherweise Umlaute, muss also nach diesen ODER nach "AE", "OE" oder "UE" oder "ß" suchen.
Beispiel:
Schönebeckerstr. => Schoenebeckerstr.

Ich denke, dass das mit RegEx geht, nur wie?
Sicher kein 1 Zeiler?

[hoppfrosch]

Code: Select all

; #### Lösung 1 ######
str := "Schönebeckerstr."
; Jede Ersetzung einzeln durchführen
str := RegExReplace(str, "ö", "oe")
str := RegExReplace(str, "ä", "ae")
str := RegExReplace(str, "Ö", "oe")
MsgBox(str)

; #### Lösung 2 ######
str := "Odenwälderstr."
; Alle Ersetzungen in einem assoziativen Array definieren
ReplacePatterns := {"ö": "oe", "ä": "ae", "Ä": "Ae"}
For key, value in ReplacePatterns
  str := RegExReplace(str, key, value)
MsgBox(str)

[Gucky_87]

Das sieht ja gut aus.
Mit RegEx hatte ich auch herumgespielt, da ich jedoch nicht nur die 4 Umlaute ersetzen will/muss, wären das einige RegExe´s geworden.
Dein Vorschlag mit dem Array sieht da deutlich kürzer aus XD

Lieben Dank dafür,

Gucky

[just me]

Moin,

wenn Du die Zeichen einzeln ersetzt, sollte das StrReplace() auch (und wahrscheinlich sogar schneller) tun.

[Gucky_87]

Davon gehe ich auch aus, da RegEx i.A. langsamer ist, so weit ich weiß.