怎么将8.02 x 10^4 变成 80200 的数值型

怎么将图片中带有“x”的改为可以计算的数值型，比如将8.02 x 10^4 变成 80200 的数值型

data test;
input hbvdna $20.;
cards;
8.02×10^4
1.82×10^5
<500
;

data _null_;
  set test end=last;
  hbvdna=tranwrd(hbvdna,"×","*");
  hbvdna=tranwrd(hbvdna,"^","**");
  if _n_=1 then call execute("data wanted;");
  if index(hbvdna,"*") then call execute("hbvdna="||quote(strip(hbvdna))||';num_hbvdna='||strip(hbvdna)||';output;');
  else call execute("hbvdna="||quote(strip(hbvdna))||';num_hbvdna=.;output;');
  if last then call execute("run;");
run;

wwang111 发表于 2017-3-26 19:30
data test;
input hbvdna $20.;
cards;

厉害

data a;
input x $20.;
cards;
8.02×10^4
1.82×10^5
<500

1.8232×10^7
;
run;

data b;
set a;
if index(x,'×') and index(x,'^') then do;
   a=input(scan(x,1,'×'),best.);
   b=10**input(scan(x,2,'^'),best.);
   c=a*b;
end;
run;

lovexialulu 发表于 2017-3-27 16:59
data a;
input x $20.;
cards;

你这个更简便