怎样用一个字符串提取数字?

Question

比如:AB01-CD30
-------->
0130
另:
取一个字符串的第N个字符的函数是那个啦?

Answer 1

取一个字符串的第N个字符的函数是那个啦?
用copy();

Answer 2

回复人： faysky2() ( ) 信誉：100  2005-05-23 14:12:00  得分: 0  
 
 
   取一个字符串的第N个字符的函数是那个啦?
用copy();
  
 
RE;好像是有一个用下标取的吧

Answer 3

主要看你的字符串是否为定格式，如果都是象你举的例子就用copy(),否则一个一个字符判断。

Answer 4

var s:String;
    i:integer;
s:='AB01-CD30';
for i:=1 to Length(s) do
if Ord(s[i]) in [Ord('0')..ord('9')] then 
...

Answer 5

var s:String;
    i:integer;
s:='AB01-CD30';
for i:=1 to Length(s) do
if Ord(s[i]) in [Ord('0')..ord('9')] then 
...

Answer 6

function GetNumberFromStr(aStr: String): String;
var
  i: integer;
begin
  Result := '';
  for i:=1 to Length(aStr) do
    if Ord(aStr[i]) in [Ord('0')..ord('9')] then
    Result := Result + aStr[i];
end;

Answer 7

显然东北人的方法就是很好
因为你用pos，copy这些也是需要去遍历字符串