Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Proper() function
Message
De
11/07/2003 02:19:57
Samir Chheda
Remittag Software Pvt. Ltd.
Mumbai, Inde
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00808359
Message ID:
00809113
Vues:
28
Thanx Sergey

I am sorry for replying late.

Actully, the snippet which you gave me, would make only the first Alphabet of the string Capital.

I have written a small loop which searches for a dot(.) in the string and changes the case to UPPER for the next character after the dot.

Anyways, Thanx again.

Local lcNewText
lcNewText = ""
tcText = Ltrim(tcText)
For iLen = 1 To Getwordcount(tcText,'.')
cTmp = lcNewText
lcNewText = Lower(Substr(tcText,Len(lcNewText)+1,Iif(Atc('.',Right(tcText,Len(tcText)-Len(lcNewText)+1))=0,Len(tcText)-Len(lcNewText),Atc('.',Right(tcText,Len(tcText)-Len(lcNewText)+1)))))
lcNewText = Space(1) + Upper(Left(Alltrim(lcNewText),1)) + Substr(lcNewText,2)
lcNewText = cTmp + lcNewText
Endfor

Return Ltrim(lcNewText)



Regards,
Samir
Attitude Determines Altitude
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform