帮忙取字符串，谢谢！

Question

([{'aa':'-1','bb':'-1','cc':'2010110375787248$20.1','dd':'30分钟'}])上面这个字符串怎么才能得到 ：2010110375787248$20.1$30;
或 分别得到每个值：
2010110375787248
20.1
30
谢谢！

Answer 1

这是一个JSON字符串。到二楼提供的网站上去看看有没有delphi包啊。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  str,s:string;
  ss:TStringList;
  i:integer;
begin
  ss:=TStringlist.Create;
  ss.LoadFromFile('f:\1.txt');//1.txt中存放着你的字符串
  ss.Delimiter:=':';
  ss.DelimitedText:=ss.Text;
  str:=ss[3];
  delete(str,1,1);
  i:=pos(#39,str);
  str:=copy(str,1,i-1);
  //showmessage(str);
  s:=ss[4];
  delete(s,1,1);
  i:=pos('分钟',s);
  s:=copy(s,1,i-1);
  showmessage(str+'$'+s);
  ss.Free;
end;