MISE EN FORME D'UN CHAMP TEXT (DE TYPE PRÉNOM)

<form method="post" action="test.cfm">
<input class=champ type="text" name="prenom"> <input class=champ type="submit" name="Submit" value="Transforme">
</form>


<cfif isdefined("form.submit")>
<cfoutput>
Avant: #prenom#<br><br>
</cfoutput>

<!-- Transformation -->
<cfset liste = "">
<cfset liste = listappend(liste, Ucase(mid(prenom, 1, 1)))>
<cfloop index=i from=2 to=#Len(prenom)#>
<cfset caractere = #mid(prenom, i-1, 1)#>
<cfif (caractere is "-") OR (caractere is " ")>
<cfset liste = listappend(liste, Ucase(mid(prenom, i, 1)))>
<cfelse>
<cfset liste = listappend(liste, Lcase(mid(prenom, i, 1)))>
</cfif>
</cfloop>

<cfset prenom = Trim(Replace(liste, ",", "","ALL"))>
<!-- / Fin Transformation -->

<cfoutput>
Après: #prenom#
</cfoutput>
</cfif>