upper/lower

[Silvio.Falconi]

exist a function to change the first letter Upper and the other lower of a string ?
sample I have ---> PALMA I wish ---> Palma

[ukoenig]

Silvio,

StrCapFirst( <cString> ) --> cCnvString

This function capitalize the first character and transform the other charaters to lowercase.

Sample:

local cString := "text TO CONVERT" cString := StrCapFirst( cString ) ? cString --> "Text to convert"

regards
Uwe

[karinha]

https://wiki.fivetechsoft.com/doku.php?id=fivewin_functions_alphabetically_ordered

[Rick Lipkin]

Silvo

I wrote this function that automatically puts the very first letter as caps .. then searches for a space in the string then +1 capitalizes the next letter .. and so on thru the string.

Rick Lipkin

Code: Select all  Expand view

//------------------
Func _UpperLower( cText )

Local nLen,i,cField

nLen  := len( cText )

For i = 1 to Len(cText)

   If i = 1
      cField := upper(substr(cText,i,1))
      Loop
   Endif

   // check for multiple words
   // use space as the delimeter

   If substr(cText,i,1) = space(1) // found a space in between words
      i++
      cField := cField+" "+upper(substr(cText,i,1))
      loop
   Else
      cField := cField+lower(substr(cText,i,1))
   Endif

Next

cText := cField

Return(cText)

 

[Silvio.Falconi]

thanks to all