>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
Danke, dass du gleich den Code geschrieben hast. Gruss Christoph | [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
