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