正则表达式2

//字符串分割: Split
var
 reg: TPerlRegEx;
 List: TStrings;
begin
 List := TStringList.Create;
 reg := TPerlRegEx.Create(nil);

 reg.Subject := 'aaa,bbb,ccc,ddd';
 reg.RegEx  := ','; {这里可是运行相当复杂的分割符啊}

 reg.Split(List,MaxInt); {第一个参数读入的是 Subject; 第二个参数是分成多少份}
 { 输入一个最大整数,表示能分多少就分多少}

 ShowMessage(List.Text);
 {返回:
  aaa
  bbb
  ccc
  ddd
 }

 FreeAndNil(reg);
 List.Free;
end;

正则表达式学习连接

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!