Function PutSpaces Lparameters tcStr local lcNumber lcNumber = Chrtran(tcStr,Chrtran(tcStr,'0123456789',''),'') return Stuff(tcStr, At(lcNumber, tcStr), Len(lcNumber), ' '+lcNumber+' ')Or a oneliner to use in a replace (with 1000 recs only no need to check for performance IMHO).ie :
replace all myfield with ; Stuff(myField, ; At(Chrtran(myField,Chrtran(myField,'0123456789',''),''), myField), ; Len(Chrtran(myField,Chrtran(myField,'0123456789',''),'')), ; ' '+Chrtran(myField,Chrtran(myField,'0123456789',''),'')+' ')Cetin