En liten användbar funktion till att göra första bokstaven till
versal i varje ord och de resterande bokstäverna till gemener
("hejsan hoppsan" blir därmed "Hejsan Hoppsan"). Kan vara användbart i
t.ex. titlar och dylikt (och mellan <TITLE> som inte stylesheets klarar)!
[r]Klarar nu även bindestreck!!
bengt-göran >> Bengt-Göran.[/r]
Så här använder du funktionen:
variabel = Capitalize("text som ska översättas...")
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666">
Function Capitalize(strText)
strText = UCase(Left(strText, 1)) & LCase(Mid(strText, 2))
For currChar = 1 To Len(strText)
If (Mid(strText, currChar, 1) = Chr(32)) OR (Mid(strText, currChar, 1) = "-") Then
newChar = UCase(Mid(strText, (currChar + 1), 1))
strText = Mid(strText, 1, currChar) & newChar & Mid(strText, currChar + 2)
End If
Next
Capitalize = strText
End Function
Fel och dylikt kan diskuteras i denna
tråden.
------------------
Peter D
[Redigerat av Pace den 20 jul 2001]