> > Ich kann's mir nicht verkleifen:
> >
> > Function ULCase(str)
> > ULCase = UCase(left(str,1)) & LCase(mid(str,2))
> > End function
>
> Das geht dann aber halt auch nur, wenn nur ein Wort in str
> steht oder nur
> der erste Buchstabe eines Satzes gro� sein soll.
>
Oh.. Eine Herausforderung...
Function ULCase2(str)
dim a, i
a = split(str, " ")
for i = 0 to ubound(a)
a(i) = UCase(left(a(i),1)) & LCase(mid(a(i),2))
next
ULCase2 = join(a," ")
End function
Claudius
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
