Something like this should work:
?iAcronym("Chief Probation Officer")
Procedure iAcronym
Lparameter pcString
pcString=alltr(Proper(pcString))
Local ia, retval
retval =left(pcString,1)
for ia=1 to occurs(" ",pcString)
retval=retval+substr(pcString, at(" ",pcString,ia)+1,1)
endfor
return retval
>I am trying to pick out first character in a string for example:
>
>Chief Probation Officer
>
>I need to return
>
>CPO
>
>
>I there a quick way of doing this, I will need to perform this operation on hundreds of strings. If there is no straight forward way of doing this then do I put each character in an array and search the array ?
>
>Thanks
>Nick Patel