把数字显示为字符型的值转换为数值型：
if ifc(prxmatch('/^-?\d*\.?\d+\s*$/',Chardata),'Num','Char') = 'Num' then Numdata= input(Chardata, best.) ;