UCase & LCase

[Tony H]

Om ni tänker er en person som är glad att hålla caps-lock inne när man skriver en titel till en nyhet, det är inte speciellt fint och varierar man ganska friskt också så är det ännu sämre. Därför så behövs en åtgärd i form av funktion som styr Ucase & Lcase i titel fältet.

 

Någon som har ett förslag till funktion hur man styr att första bokstaven blir stor och resten små. Men om flera ord finns i titlen så blir den första bokstaven i dessa ord också stora MEN endast om de redan är stora.

 

Typ:

Hurtbulle soM Jag äR

Blir:

Hurtbulle som Jag är

 

Hoppas ni förstår vad jag menar.

 

 

 

[NoiseKiller]

strTitel = "din långa titel"
arrTitel = split(strTitel," ")
for each item in arrTitel
  strNyTitel = strNyTitel & left(arrTitel,1) & lcase(right(arrTitel,len(arrTitel)-1))
next

strNyTitel = ucase(left(strNyTitel,1)) & right(strNyTitel,len(strNyTitel)-1)

response.write(strNyTitel)

Blev det för tungt?

 

[Tony H]

Det blir fel på rad 5

Type mismatch: 'arrTitel'

 

<%

strTitel = "din långa titel"

arrTitel = split(strTitel," ")

for each item in arrTitel

strNyTitel = strNyTitel & left(arrTitel,1) & lcase(right(arrTitel,len(arrTitel)-1))

next

strNyTitel = ucase(left(strNyTitel,1)) & right(strNyTitel,len(strNyTitel)-1)

 

response.write(strNyTitel)

%>

 

Har jag missförstått dig och är vilsen?

 

[NoiseKiller]

Oj, flåt.. Jag sitter å sover juh.

for each item in arrTitel

strNyTitel = strNyTitel & left(arrTitel,1) & lcase(right(arrTitel,len(arrTitel)-1))

next

 

bör nog istället vara

for each i in arrTitel
strNyTitel = strNyTitel & left(i,1) & lcase(right(i,len(i)-1))
next

Testa om det funkar bättre..

 

\\eForum\NoiseKiller

 

[Tony H]

Fungerar mycket bra nu, dock tar den bort " " space i slutresultatet.

 

Det blir:

Dinlångatitel

 

[NoiseKiller]

dock tar den bort " " space i slutresultatet.

Förstår att jag inte får några poäng..

Det bör ju naturligtvis stå:

for each i in arrTitel
strNyTitel = strNyTitel & " " & left(i,1) & lcase(right(i,len(i)-1))
next

strNyTitel = trim(ucase(left(strNyTitel,1)) & right(strNyTitel,len(strNyTitel)-1))

 

 

[Tony H]

Du behöver inte tigga efter poäng för du har redan förtjänat några stycken. Men nu är det enbart den första bokstaven som strejkar, om den är en liten bokstav så förblir den detta.

 

din Långa tiTel

blir:

din Långa titel

borde vara:

Din Långa titel

 

Jag vill att den första bokstaven i titel texten alltid skall vara stor, och de andra som du gjort. Om de är stora så förblir de stora och är de små så förblir de små.

 

Poäng kommer som på posten.

 

[inlägget ändrat 2003-04-03 14:03:19 av TH]

[NoiseKiller]

Jepp, jag blåste mig själv när jag la till mellanrummet.. Det är nämligen det som blir stort och sedan trimmas bort. *fniss*

strNyTitel = trim(ucase(left(strNyTitel,1)) & right(strNyTitel,len(strNyTitel)-1))

ska du nog ändra till

strNyTitel = trim(strNyTitel)
strNyTitel = ucase(left(strNyTitel,1)) & right(strNyTitel,len(strNyTitel)-1)

 

Fattar du hur jobbigt det är att koda när man är slarvig som mig.

Tack för poängen förresten.

 

\\eForum\NoiseKiller

 

[Tony H]

Jag får be och tacka så mycket för din tid och bugar än en gång för en exellent funktion.