$PBExportHeader$f_majuscule1erlettre.srf
global type f_majuscule1erlettre from function_object
end type

forward prototypes
global function string f_majuscule1erlettre (string as_mot)
end prototypes

global function string f_majuscule1erlettre (string as_mot);/**********************************************************************************************/
/* Nom    : f_majuscule1erlettre                                          */
/* But    : met en majuscule la 1ere lettre de chaque mot                         */
/* Arguments:                                                        */
/* Appel    :                                                         */
/* Remarques:                                                         */
/* Histo    :   SKA - juin 2006                                            */
/**********************************************************************************************/
string    ls_mot1, ls_mot2, ls_mot3
long      ll_pos, ll_i
datastore   lds_temp
string     ls_err
string     ls_dsdef = 'release 6; datawindow() table(column=(type=char(255) name=a dbname="a") )'
string    ls_mot[]

lds_temp   = CREATE datastore
lds_temp.Create(ls_dsdef, ls_err)
lds_temp.InsertRow(0)

IF Len(ls_err) > 0 THEN
   MessageBox("Creation de la datastore", ls_err)
  return ls_mot3
END IF  

ls_mot1  = as_mot
ls_mot2  = lds_temp.Describe ( "Evaluate('WordCap(~"" + ls_mot1 + "~")',0)")
ls_mot3  = ls_mot2

ls_mot[1]  = '-'
ls_mot[2]  = '.'
ls_mot[3]  = ','
ls_mot[4]  = '!'
ls_mot[5]  = '?'
ls_mot[6]  = ':'
ls_mot[7]  = ';'

for ll_i = 1 to upperbound(ls_mot)
  ll_pos = Pos(ls_mot3, ls_mot[ll_i])
  do while ll_pos > 0 
    ls_mot3 = Replace(ls_mot3, ll_pos + 1, 1, Upper(mid(ls_mot3,ll_pos + 1,1)))
    ll_pos = Pos(ls_mot3, ls_mot[ll_i],ll_pos + 1)
  loop
next

return ls_mot3
end function

string  ls_mot1
string  ls_mot2


ls_mot1 = 'mr pick ouic,toujours partant pour le maxi-best of ?'
ls_mot2 = f_majuscule1erlettre(ls_mot1)

messagebox(ls_mot1, ls_mot2)