(Source Code) Foxpro - Input Manoj Kumar Rai and print M. K. Rai

Foxpro/VFP Source Codes

Foxpro - Input Manoj Kumar Rai and print M. K. Rai


clear

accept "enter name" to nm

 

nm = alltrim(nm)

 

cntSPace= occurs(" ",nm)

 

res=""

a=0

for i=1 to cntSPace

            res=res + substr(nm,a+1,1) + ". "

            a = at(" ",nm,i)

            ?"a",a

endfor

res=res + substr(nm,a)

?"result is : " + res