Ahhh, the creeping requirement...
I could rework, but just use:
whileprintingrecords;
stringvarMyField:={table.field};
Stringvar Output;
numbervar x;
for x:= 1 to len(MyField) do(
if not(isnumeric(mid(MyField,x,1)))
and
not(mid(MyField,x,1) in [".",","])
then
Output:=Output & mid(MyField,x,1)
);
trim(Output)
Add whatever you need to in [".",","]
-k