字符串分割

最新推荐文章于 2026-03-26 04:23:04 发布

原创最新推荐文章于 2026-03-26 04:23:04 发布 · 2.3k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#list #string

语言与基础算法专栏收录该内容

18 篇文章

订阅专栏

本文介绍了使用正则表达式和内置函数实现字符串分割的方法。通过Delphi示例代码展示了三种不同的分割方式：利用Perl正则表达式库、内置ExtractStrings函数及SplitColumns函数。这些方法能够帮助开发者灵活地处理各种字符串分割任务。

在正则满天下的今天，直接做字符串截取来实现字符串分割似乎有点土，所以先用正则来实现一下字符串分割。

uses PerlRegEx; var reg:TPerlRegEx ; List:TStrings; begin List:=TStringList.Create; reg:=TPerlRegEx.Create(nil); try reg.Subject:='abc de,sdffds,中国,sss '; reg.RegEx:='[,]'; reg.Split(List,MaxInt); ShowMessage(List.Text); finally reg.Free; end; end;

当然，也可以用普通函数来实现！

下述例程实现了对有分割符的字符串进行Split2

方法1： //分割字符串 ExtractStrings var s: String; List: TStringList; begin s := 'about: #delphi; #pascal, programming'; List := TStringList.Create; ExtractStrings([';',',',':'],['#',' '],PChar(s),List); //第一个参数是分隔符; 第二个参数是开头被忽略的字符 ShowMessage(List.Text); //about //delphi //pascal //programming List.Free; end; 方法2： TStringList; lst.Delimiter:='|'; lst.DelimitedText:='aaa|bbb|ccc'; Showmessage(lst[0]);可显示出aaa,当有空格时就会将空格做为分隔符方法3： SplitColumns是IdStrings.pas里的函数，它修正了TStrings.DelimitedText和TStrings.Delimiter将空格也作为分隔符的问题 SplitColumns uses IdStrings; var s : string; sl : TStringList; i : Integer; begin s := 'asd 3243|435 456346|4364654'; sl :=TStringList.Create; SplitColumns(s,sl,'|'); for i:=0 to sl.Count-1 do ShowMessage(sl.Strings[i]); sl.Free; end;