Funzione ProperCase
Esempio di funzione Visual Basic per convertire in maiuscolo la lettera iniziale di ogni parola della frase
VBScript
Function ProperCase(str)
Dim p, i, sOut
p = 1
sOut = ""
Do While InStr(p, str, " ", 1) <> 0
i = InStr(p, str, " ", 1)
sOut = sOut & UCase(Mid(str, p, 1)) & _
LCase(Mid(str, p + 1, i - p))
p = i + 1
Loop
ProperCase = sOut & UCase(Mid(str, p, 1)) & _
LCase(Mid(str, p + 1))
End Function