字符串分割问题

[jdbca]

1111111111112354611111111111654841111111111111111

>>>>>

111111111111
23546
11111111111
65484
1111111111111111

怎样把第一排的数据分成下面样式的段

[喝口水]

你的字符串是不是都是以1分割的

[lhy]

那就识别连续的1和其他数字。

[shao113112]

循环读取字符

[taoran12]

循环读取字符，碰到不是一的字符就分割开来就行了

[bdmh]

var
  i:Integer;
  list: TStringList;
  s,sp:string;
begin
  list := TStringList.Create;
  sp := ',';
  s := '1111111111112354611111111111654841111111111111111';
  for i := Length(s) downto 1  do
  begin
    if i = 1 then Break;
    if ((s[i] = '1') and (s[i-1] <> '1')) or ((s[i] <> '1') and (s[i-1] = '1')) then
    begin
      Insert(sp,s,i);
    end;
  end;
  list.CommaText := s;
  ShowMessage(list.Text);
  list.Free;
end;

[shao113112]

[Quote=引用 5 楼 bdmh 的回复:]

Delphi(Pascal) code

var
i:Integer;
list: TStringList;
s,sp:string;
begin
list := TStringList.Create;
sp := ',';
s := '1111111111112354611111111111654841111111111111111';
for i := Leng……
[/Quote]


+1

[lght]

[Quote=引用 5 楼 bdmh 的回复:]
Delphi(Pascal) code

var
i:Integer;
list: TStringList;
s,sp:string;
begin
list := TStringList.Create;
sp := ',';
s := '1111111111112354611111111111654841111111111111111';
for i……
[/Quote]

循环一次，直接切出来了。