'00000000000000000001&00000000000000000001&0'#9'00000000000000000002&00000000000000000002&0'#9'00000000000000000003&00000000000000000003&0'#9'00000000000000000004&00000000000000000004&0'#9'00000000000000000005&vs90-04&1'#9'00000000000000000006&00000000000000000006&0'#9'00000000000000000007&00000000000000000007&0'#9'00000000000000000008&00000000000000000008&0'#9'00000000000000000009&00000000000000000009&0'#9'00000000000000000010&00000000000000000010&0'#9'00000000000000000011&00000000000000000011&0'#9'00000000000000000012&00000000000000000012&0'#9'00000000000000000013&00000000000000000013&0'#9'00000000000000000014&00000000000000000014&0'#9'00000000000000000015&00000000000000000015&0'#9'00000000000000000016&00000000000000000016&0'#9'00000000000000000017&00000000000000000017&0'#9'00000000000000000018&00000000000000000018&0'#9'00000000000000000019&00000000000000000019&0'#9'00000000000000000020&00000000000000000020&0'#9'00000000000000000021&00000000000000000021&0'#9'00000000000000000022&00000000000000000022&0'#9'00000000000000000023&00000000000000000023&0'#9'00000000000000000024&00000000000000000024&0'#9'00000000000000000025&00000000000000000025&0'#9'00000000000000000026&00000000000000000026&0'#9'00000000000000000027&00000000000000000027&0'#9'00000000000000000028&00000000000000000028&0'#9'00000000000000000029&00000000000000000029&0'#9'00000000000000000030&00000000000000000030&0'#9'00000000000000000031&00000000000000000031&0'#9'00000000000000000032&00000000000000000032&0'#9这是从SDK取到一个字符串,要把他一个一个拆出来,如:00000000000000000001,00000000000000000002以此类推,希望那位高手能帮我实现,谢谢!
&vs90-04&1'#9' 这一串数据的出现是偶然的话,也可以直接去除掉
s:string;
s1:TStrings;
i:Integer;
begin
s1:=TStringList.Create;
s:=StringReplace(Memo1.Text,'#9',#13,[rfReplaceAll]);
s1.Text:=StringReplace(s,'''','',[rfReplaceAll]);
Memo1.Lines.Clear;
for i:= 0 to s1.Count-1 do
begin
Memo1.Lines.Add(Copy(s1[i],0,Pos('&',s1[i])-1));
end;
end;
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
s1:TStrings;
i:Integer;
begin
s1:=TStringList.Create;
s:=StringReplace(Memo1.Text,'#9',#13,[rfReplaceAll]); //Memo1.Text为楼主的字符串
s1.Text:=StringReplace(s,'''','',[rfReplaceAll]);
Memo1.Lines.Clear;
for i:= 0 to s1.Count-1 do
begin
Memo1.Lines.Add(Copy(s1[i],0,Pos('&',s1[i])-1));//Memo1为最后结果
end;end;end.
s:=StringReplace(Memo1.Text,#9,#13,[rfReplaceAll]); //Memo1.Text为楼主的字符串
然后再试验下