PureBoard

Verfasst: **21.12.2005 22:11**

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

Verfasst: **21.12.2005 22:23**

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.

Verfasst: **21.12.2005 22:32**

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.

Verfasst: **21.12.2005 22:35**

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

Code: Alles auswählen

Trim(Neu$)

Verfasst: **22.12.2005 13:35**

ts-soft hat geschrieben: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$)

Verfasst: **22.12.2005 13:45**

Batze hat geschrieben:
ts-soft hat geschrieben: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

Verfasst: **22.12.2005 13:50**

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.

Verfasst: **22.12.2005 18:46**

Scheinbar ist meine Methode gar nicht so schlecht.

Verfasst: **22.12.2005 20:11**

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

::großer dank::

MFG kurt

Verfasst: **22.12.2005 20:28**

Batze hat geschrieben: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

PureBoard

große buchstaben

große buchstaben