形如这样的字符串怎么分割?RMB39.00,$134.00,￥16.00等,在线等

Question

这样的字符串怎么分割:
RMB39.00
$134.00
￥16.00
价格前面的字符带有不确定性.
我要将后面的价格取出来,如:39.00, 134.00,  16.00
请问如何操作?

Answer 1

那就用pos函数取出小数点的位置，然后往前逐个字符查找，如果不是数字，则记住其位置，然后就可以了。

Answer 2

edit1.text:=copy('rmb39.00',4,length('rmb39.00')-3);
edit2.text:=copy('$134.00',2,length('rmb39.00')-1);
edit3.text:=copy('￥16.00',2,length('￥16.00')-1);

Answer 3

var
tls:TStringList;
i:Integer;tls:=TStringList.Create;
try   tls.Text:=StringReplace('RMB39.00,$134.00,￥16.00',',',#13#10);
   for i:=0 to tls.Count-1 do
   begin
      //tls.Strings[i];
      //RMB39.00
      //$134.00
      //￥16.00
      //拉下来就可以去掉关导非数字字符了
   end;
finally
   tls.Free;
end;

Answer 4

1、既然都是处理价格，那么价格的标志就是那么几个RMB、$、￥，判断第一个字符就可以知道用的什么表示方法了，然后再分别处理就行了
2、用TryStrToInt可以判断出是否数字，知道了这个也就好处理了
3、如果金额都是整数的话（小数点后没有金额），用 fengzhengren(风筝)的方法也是一个不错的选择
//////////////////////////////
以上三种方法搂住任选

Answer 5

var
   i:Integer;
   s:String;
begin;
   s:='$12356.0123';
   i:=1;
   while not (s[i] in ['0'..'9']) do inc(i);
   s:=copy(s,i,Length(s)-i);

Answer 6

在这里楼主好象并没有把RMB、$、￥当做是币别符号来处理，而当做前导字符，在这种情况下由于币别种类繁多，那么用第一个字母判断就实在有点儿难度，需要把所有币别列出来。

Answer 7

如何找到第一个数字的位置啊?找到第一个数字的位置就可以
/////////////////////////
方法2加上一个循环就可以
///////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
var temp:string;
    I,J,position:integer;
begin
    temp:='RMB39.00';
    for I:=1 to length(temp) do
    begin
        if TryStrToInt(temp[I],J) then
        begin
            position:=I;
            break;
        end;
    end;
    showmessage(rightstr(temp,length(temp)-position+1));
end;

Answer 8

给你两个随便用！呵呵！
先用flag := ',' 分割
if 是美圆 then 
edit1.text:=copy('rmb39.00',4,length('rmb39.00')-3);
if 是英镑 then
edit2.text:=copy('$134.00',2,length('rmb39.00')-1);
if 是人民币 then
edit3.text:=copy('￥16.00',2,length('￥16.00')-1);
//从source中截取一flag为分隔符的字串
function SplitStringA(const source, flag: string): Tstringlist;
var
  ts: Tstringlist;
begin
  if Trim(source) <> '' then begin
    ts := Tstringlist.create;
    ts.Delimiter := flag[1];
    ts.DelimitedText := source;
    Result := ts;
  end;
end;function SplitString(const source, flag: string): Tstringlist;
var
  temp: string;
  i: integer;
begin
  if Trim(source) <> '' then begin
    Result := Tstringlist.create;
    temp := source;
    i := pos(flag, source);
    while i > 0 do begin
      Result.Add(copy(temp, 0, i - 1));
      delete(temp, 1, i);
      i := pos(flag, temp);
    end;
    Result.Add(temp);
  end
  else
    Result.Add('');
end;

Answer 9

例如:unit Unit1;'Powered by Jadeluo, 2005/05/30interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  public
    procedure SplitValue(sMoney: String;  var sKind, sValue: String);
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.SplitValue(sMoney: String;  var sKind, sValue: String);
var
  iLoop : Integer;
begin
  sKind := sMoney;
  sValue := '';
  for iLoop := 1 to length(sMoney) do
  begin
    if (copy(sMoney, iLoop, 1) >= '0') and (copy(sMoney, iLoop, 1) <= '9') then
    begin
      sKind := copy(sMoney, 1, iLoop - 1);
      sValue := copy(sMoney, iLoop, length(sMoney) - iLoop + 1);
      break;
    end;
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
var
  sKind, sValue : String;
begin
  SplitValue ('RMB39.00', sKind, sValue);
  ShowMessage (sKind + '    ' + sValue);  SplitValue ('$134.00', sKind, sValue);
  ShowMessage (sKind + '    ' + sValue);  SplitValue ('￥16.00', sKind, sValue);
  ShowMessage (sKind + '    ' + sValue);
end;end.

Answer 10

var s,t:string;
i:integer;
begin
for i:=1 to length(s) do
begin
    if s[i] in ['0'..'9','.'] then t:=t+s[i];
end;
showmessage(t);
end;

Answer 11

var s,t:string;
i:integer;
begin
for i:=1 to length(s) do
begin
    if s[i] in ['0'..'9','.'] then t:=t+s[i];
end;
showmessage(t);
end;
我也同意楼上的看法