große buchstaben

[kurt'94]

hallo leute,

ich hab nen kleines problem. ich habe nenn string mit einer x-anzahl von wörtern. all buchstaben sind klein und nun würde ich gern jeden anfangsbuchstaben jeden wortes groß schreiben. ist das möglich, kann mir jemand einen lösungsansatz geben??? ich wär euch sehr dankbar!!

MFG kurt

[ts-soft]

Code: Alles auswählen

Text$ = "die geschwindigkeit nicht auf kosten der sicherheit erhöhen."
I = 1
Repeat
  tmp$ = StringField(Text$, I, " ")
  If tmp$
    Neu$ + UCase(Left(tmp$,1)) + Right(tmp$, Len(tmp$) -1) + " "
    I + 1
  EndIf
Until tmp$ = ""
Debug Neu$

Text$ ist der Ursprungstext und Neu$ enthält am Ende den Text in Großschreibung.

[Thorsten1867]

Mein Vorschlag:

Code: Alles auswählen

test$ = "das ist ein test"
For w= 1 To CountString(test$, " ")+1
  wort$ = StringField(test$, w, " ")
  new$ + UCase(Left(wort$,1)) + Mid(wort$, 2, Len(wort$)-1) + " "
Next w
new$ =  Left(new$, Len(new$)-1) ; Letztes Leerzeichen entfernen
Debug new$

PS: TS-Soft war wohl etwas schneller.

[ts-soft]

Letztes Leerzeichen hab ich nicht gemacht, abe dafür genügt ja ein

Code: Alles auswählen

Trim(Neu$)

[Batze]

Letztes Leerzeichen hab ich nicht gemacht, abe dafür genügt ja ein

Code: Alles auswählen

Trim(Neu$)

Nöö, dann etfernst du ja auch eventuell beabsichtigte am Anfang.

Code: Alles auswählen

RTrim(Neu$)

[ts-soft]

Letztes Leerzeichen hab ich nicht gemacht, abe dafür genügt ja ein

Code: Alles auswählen

Trim(Neu$)

Nöö, dann etfernst du ja auch eventuell beabsichtigte am Anfang.

Code: Alles auswählen

RTrim(Neu$)

Wenn am anfang Leerzeichen sein sollten, wird Neu$ sowieso leer bleiben bei meinem Code

[Batze]

Oh!
Das hab ich ja nichtmal gemerkt.
Ist das nicht gefährlich?
Schließlich kann man sich immer mal vertippen und aus Versehen 2 Leerzeichen hinschreiben.

[Thorsten1867]

Scheinbar ist meine Methode gar nicht so schlecht.

[kurt'94]

vielen dank jungs, funktioniert prima. ohne euch wär ich aufgeschmissen.

::großer dank::

MFG kurt

[ts-soft]

Oh!
Das hab ich ja nichtmal gemerkt.
Ist das nicht gefährlich?
Schließlich kann man sich immer mal vertippen und aus Versehen 2 Leerzeichen hinschreiben.

Bei wichtigen Dingen, wird man es ja auch niemals mit StringField lösen, sondern den Text, Buchstabe für Buchstabe parsen und vergleichen. Ich hab ja einfach mal vorausgesetzt, das vorne keine Leerzeichen ist, und sich zwischen den Worten nur jeweils eins befindet