Crystal Report公式-从字母数字字符获取数字

Question

I need a way to extract a numeric value from an alphanumeric one, for example :

3 MS 15 SEC 

Desired:

3.15

Answer 1

Try:

Local NumberVar i;
Local StringVar k;


for i:=1 to Count (Split("3 MS 15 SEC"," ")) do
(
  if NumericText (Split("3 MS 15 SEC "," ")[i]) then (
    k:=k+Split("3 MS 15 SEC "," ")[i]+".";
  )
);

if k<>"" then 
  k[1 to length(k)-1] 
else 
  k //drop final "."

Answer 2

Try:

// {@extract}
Local Stringvar Array tokens:=Split(x);
Local Stringvar Array values;
Local Numbervar i;

for i := 1 to uBound(tokens) do (

  if isNumeric(tokens[i]) then (
    redim preserve values[ubound(values)+1];
    values[ubound(values)]:=tokens[i];
  )

);

ToNumber( Join(values,".") );