Delphi分割字符串的函数--ExtractStrings

Delphi分割字符串的函数--ExtractStrings
Unit Classes
Syntax
ExtractStrings (Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings): Integer;


WhiteSpace 参数指定每个子串开头被忽略的字符s。Content 参数就是被分割的“源”串了。Strings 参数用于接收分割后的各个子串。它的原有内容不会被清空。别忘了对Strings进行Create哦。另外，EctractStrings不会把空串放入Strings中去。
举个例子吧：
如果我想分割以下字符串：     ABC|...  DEF|#### GHI|"中华网URL|# www.china.com"
希望得到下面四个字符串：     1、ABC     2、DEF     3、GHI     4、中华网URL|# www.china.com 那么可以用下面的代码：uses  Classes;var  ASource: PChar;  AStr: String;  ACount: Integer;  AStrings: TStringList;begin  ASource := 'ABC|...  DEF|#### GHI|"中华网URL|# www.china.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.

        
        



        







        
          
            
            评论这张
          
        


          
            
              
            
            转发至微博