您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

Delphi分割字符串的函数ExtractStrings

时间:2011/9/3 15:36:09 点击:

  核心提示:Separators 参数指定一组分割符,所有的子串都是用它们分割的。但是成对的引号内的分割符会被忽略(参看下面的例子)。WhiteSpace 参数指定每个子串开头被忽略的字符s。Content 参数...
Separators 参数指定一组分割符,所有的子串都是用它们分割的。但是成对的引号内的分割符会被忽略(参看下面的例子)。
WhiteSpace 参数指定每个子串开头被忽略的字符s。
Content 参数就是被分割的“源”串了。
Strings 参数用于接收分割后的各个子串。它的原有内容不会被清空。别忘了Create哦。
另外,EctractStrings不会把(忽略WhiteSpaces后的)空串加入到Strings中。

写个例子吧:
比如
ABC|...   DEF|#### GHI|"不会被分开|# www.52delphi.com"
要得到
ABC
DEF
GHI
不会被分开|# www.52delphi.com
四个子串可以用下面的代码:

uses
   Classes;
var
   ASource: PChar;
   AStr: String;
   ACount: Integer;
   AStrings: TStringList;
begin
   ASource := 'ABC|...   DEF|#### GHI|"不会被分开|# www.52delphi.com"';
   AStrings := TStringList.Create;
   try
     ACount := ExtractStrings(['|'], [' ', '#', '.'], ASource, AStrings);
     {do any further processing}
     /for AStr in AStrings do
     //   Writeln(AStr);
   finally
     AStrings.Free;
   end;

   Readln;
end.

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2024 版权所有 All Rights Reserved.
  • 沪ICP备05001939号