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

Question

我需要一种从字母数字中提取数值的方法，例如：

3 MS 15 SEC 

所需：

3.15

Answer 1

尝试：

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

尝试：

// {@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,".") );