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;

厉害

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;

你这个更简便