ProperCase in Strings

[Nino]

OK, dann z.B. so:

Code: Alles auswählen

EnableExplicit

#Separator$ = " "

Procedure.s ProperCase(text$)
   Protected i, count = CountString(text$, #Separator$) + 1
   Protected word$, result$ = ""
   
   For i = 1 To count
      word$ = StringField(text$, i, #Separator$)
      result$ + UCase(Left(word$, 1)) + Mid(word$, 2)
      If i < count
         result$ + #Separator$
      EndIf   
   Next
   
   ProcedureReturn result$
EndProcedure

Debug "'" + ProperCase("äpfel birnen kirschen") + "'"
Debug "'" + ProperCase("  äpfel birnen kirschen  ") + "'"

[7x7]

Also wenn wir schon am Rumklugscheissen sind: Variablennamen wie "i", "I", "l", "L" usw. sollten
tunlichst wegen Verwechslungsgefahr vermieden werden. Dieser Quatsch stammt -weshalb auch
immer- aus den Urzeiten der Programmierung. Und wegen der besseren Lesbarkeit gehört zum "Next"
auch immer die Schleifenvariable, auch wenn der Compiler ohne damit zurecht kommt.

So, neuer Code:

Code: Alles auswählen

EnableExplicit

#Separator$ = " "

Procedure.s ProperCase(text$)
   Protected a, count = CountString(text$, #Separator$) + 1
   Protected word$, result$ = ""
   
   For a = 1 To count
      word$ = StringField(text$, a, #Separator$)
      result$ + UCase(Left(word$, 1)) + Mid(word$, 2)
      If a < count
         result$ + #Separator$
      EndIf   
   Next a
   
   ProcedureReturn result$
EndProcedure

Debug "'" + ProperCase("äpfel birnen kirschen") + "'"
Debug "'" + ProperCase("  äpfel birnen kirschen  ") + "'"

Bin ich jetzt Sieger dieses Wettbewerbs?

[ts-soft]

Also wenn wir schon am Rumklugscheissen sind: Variablennamen wie "i", "I", "l", "L" usw. sollten
tunlichst wegen Verwechslungsgefahr vermieden werden. ...
...
Bin ich jetzt Sieger dieses Wettbewerbs?

Nein, weil es gibt auch den Variablentyp .a!

For i ist allgemein üblich und sollte im Kontext mit For auch zu keinerlei Verwechslungen führen.
Aber sprechende Variablennamen sind natürlich vorzuziehen!

[Nino]

Variablennamen wie "i", "I", "l", "L" usw. sollten
tunlichst wegen Verwechslungsgefahr vermieden werden. Dieser Quatsch stammt -weshalb auch
immer- aus den Urzeiten der Programmierung.

Da hast du wohl etwas falsch verstanden. "i" und "L" gehören nicht zu der Aufzählung, denn wenn man die nicht unterscheiden kann, sollte man sich besser einen Termin beim Augenarzt besorgen.

Und wegen der besseren Lesbarkeit gehört zum "Next"
auch immer die Schleifenvariable, auch wenn der Compiler ohne damit zurecht kommt.

Die Lesbarkeitb wird dadurch höchstens verbessert, wenn es sich um mehrere verschachtelte For/Next-Schleifen handelt.

For i ist allgemein üblich

Ja, und das "i" steht hier für "index".

[ts-soft]

Ja, und das "i" steht hier für "index".

Und ich dachte immer für Item

[Derren]

Und wofür steht dann das k bei StringField?

Also diese Funktion sollte man vielleicht nicht ProperCase nennen. CamelCase mit Leerzeichen vielleicht...
Unter ProperCase habe ich mir jetzt eine Funktion vorgestellt, die Buchstaben nach entsprechenden Satzzeichen groß schreibt (wie man es vom Handy kennt).

[MikeLGS]

tut mir wirklich leid, wenn ich hier eine Welle der Programmier-Empörung ausgelöst habe. Für mich ist der Code einfach, schnell und auch für Laien gut zu verstehen. Man kann sich ja auch im Programmieren verlieren und es so, so oder so machen und am Ende sieht man den Wald vor lauter Bäumen nicht.
Bei mir funzt er auch mit Umlauten.

Zu Nino:
mit Left(UCase(d$),1) wird ja der erste Buchstabe abgeschnitten

trotzdem vielen Dank an alle für die Anregungen.
man kann ja den Code in ein anderes Thema verschieben.

MfG Mike

[Nino]

tut mir wirklich leid, wenn ich hier eine Welle der Programmier-Empörung ausgelöst habe.

Von "Empörung" habe ich hier nirgendwo etwas gelesen ...

Zu Nino:
mit Left(UCase(d$),1) wird ja der erste Buchstabe abgeschnitten

Ja und? Das habe ich auch nicht bestritten. Vielleicht liest du einfach mal genau was ich geschrieben habe, wenn das nicht zu viel verlangt ist

[mk-soft]

Das mit den Pointer gedöns finde ich noch am besten. Für mich ist es logisch mit Pointern zu arbeiten.

[MikeLGS]

noch mal's Entschuldigung.

Nino: meine Augen sind nicht mehr die Besten.

ich arbeite auch mit Pointern. wo's angebracht ist. Und das schon seit zwanzig Jahren (VB,Java,C++ und seit der Herausgabe auch mit PureBasic)

Verzeiht mir, dass ich in meinem Programmiererleben einige Dinge für unzweckmäßig erachte. Z.B. ellenlanger Code.
Das kann jeder für sich entscheiden denke ich.

LG Mike