如何分割出数字。。

[jaypure]

1、纸币压入,100元 （有的时候是压入20元，5元)包括下面：
类似：
2、纸币压入，5元
3纸币压入，20元

分割出数字，100，5，20；


用户13985387567交了100元成功
用户13985387567交了20元成功
用户13985387567交了5元成功

提取出上面的电话号码[phone]，缴费金额，以及”成功“

[无条件为你]

问题比较简单，但操作起来还是有些繁琐。只给10分，太小气了。

[jaypure]

不好意思 我给不了分数，最高分只有这么一点。。

[shaoyiping]

function getsAB(s,s1,s2:string):string;
  var i1,i2,i3:Integer;
begin
    i1:=Pos(s1,s);
    i2:=Pos(s2,s);
    i3:=i2-i1;
    result:=Copy(s,i1+length(s1),i3-length(s1));
end;

[随行的太阳]

用函数分割出“了”到“元”之间的内容。


10分？

[阿三]

考虑用正规表达式

[suuuu]

你把‘100元’这个字符串传到一个变量中，然后写个函数直接取数字
以下也是在网上看见的某个高人写的函数：参考一下吧：

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

[Seamour]

这代码也能叫高人……

[Harryfin]

正则表达式不二选择

[lhy]

如果格式固定，找对应位置很简单，如果固定位置更简单。

[hjkto]

帮顶

[liangpei2008]

通常情况下，个子很高的人我们称之为“高人”

[日立奔腾浪潮微软松下联想]

下载这个东西：http://cc.embarcadero.com/Item/24258

然后：

uses uscan;

var
phonecode: double; // 这个过程转换int64有问题，所以只好用double了
amount: cardinal;
confirm: string;

scan(这里写上读取的串, '用户%f交了%d元%s', [@phonecode, @amount, @confirm]);
writeln(phonecode:11:0); // 测试
writeln(amount); // 测试
writeln(confirm); // 测试

[wangxinqn]

[Quote=引用 7 楼 seamour 的回复:]
这代码也能叫高人……

[/Quote]
你写个高人代码瞧瞧，光说不练