如何从字符串中提取数值

最新推荐文章于 2023-12-14 15:15:08 发布

原创最新推荐文章于 2023-12-14 15:15:08 发布 · 331 阅读

0 ·

CC 4.0 BY-SA版权

技术杂绘专栏收录该内容

16 篇文章

订阅专栏

本文介绍了一种从包含非数值字符的字符串中提取数值的算法，并提供了多种实现方式，包括使用Pascal语言的Val函数、字符串操作等方法。文章详细解释了每种方法的原理和使用场景，旨在帮助开发者高效地处理字符串解析任务。

　　如何从字符串中提取数值，比如从'-10(16Mn)'中提取10这个数值，当然在字符串中'-'后面
　　的数值长度不定，而( )中的字符串长度也不定。
　　来个循环比较看看，条件是：IN(0..9)
　　str := 'abc056'
　　s:='';
　　for i:=1 to length(str) do
　　begin
　　if str[i] in ['0'..'9'] then
　　s:=s+str[i];
　　end;
　　http://zhidao.baidu.com/question/210744264.html
　　pos 加for应该可以提取出来
　　var s1:string;
　　i:integer;
　　begin
　　s1:='-10(16Mn)';
　　i:=pos('-',s1);
　　s1:=copy(s1,i+1,length(s1)-i);
　　i:=pos('(',s1);
　　s1:=copy(s1,1,i-1);//这时s1中就是'10'这个字符串了
　　end;
　　terry_lzs的方法思路是对的,不过不必过滤负号.
　　Result := StrToInt(Copy(S, 1, Pos('(', S) - 1);
　　如果不知道是用'('分隔的话会麻烦些:
　　b := True;
　　while b do
　　try
　　X := StrToInt(S);
　　b := False;
　　except
　　S := Copy(S, 1, Length(S) - 1);
　　end;
　　第二个算法有点问题,改一下:
　　b := True;
　　while b do
　　try
　　X := StrToInt(S);
　　b := False;
　　except
　　if Length(S) = 0 then Break
　　else
　　S := Copy(S, 1, Length(S) - 1);
　　end;
　　var
　　ss:string;
　　i:integer;
　　begin
　　i:=pos('10','-10(16Mn)');
　　label1.Caption:=copy('-10(16Mn)',i,2);
　　end;
　　上面各位的方法都可以，但我想大家可能都忽视了一个从Pascal继承下来，但现在很少用
　　的函数Val，请看下面的程序
　　var
　　s: String;
　　Code: Integer;
　　Value: Real;
　　begin
　　s := 'ABc-10.22E2(a';
　　repeat
　　Val(s, Value, Code);
　　case Code of
　　0: //转换成功
　　ShowMessage(FloatToStr(Value));
　　1: //开头有非法字符
　　Delete(s, 1, 1);
　　else //末尾有非法字符
　　Delete(s, Code, Length(s));
　　end;
　　until (Code = 0) or (Length(s) = 0);
　　end;
　　这段程序的优点在于，它不但对于检测整数有效，检测浮点数同样有效。
　　http://www.itdelphi.com/delphibbs/doc/2001/524238. htm
　　多谢各位帮助