我要投稿
  • 您当前的位置:57365.com -> 技术教程 -> 软件开发教程 -> Delphi教程 -> 教程内容
  • [ 收藏本页教程 ]
  • 字符串分割扩展 SplitExDelphi教程

    教程作者:佚名    教程来源:不详   教程栏目:Delphi教程    收藏本页
     
    该示例演示了一个字符串扩展splitex例子,文章内含源代码。



      function SplitEx(const Str {需要拆分的文章}, Delimiters {拆分关键字,回车.?!等}: string): TStringList;
      var
      ss: WideString;
      i, St: integer;
      function IsDelimiter(const Delimiters, c: string): Boolean;
      begin //判断是否为拆分关键字
      result := StrScan(PChar(Delimiters), c[1]) <> nil;
      end;
      begin
      Result := TStringList.Create;
      with Result do
      begin
      Clear; Sorted := True; Duplicates := dupIgnore;
      end;
      if Length(Str) < 1 then exit;
      ss := Str; //双字符支持,纯英文可以去掉
      St := -1;
      for i := 1 to Length(ss) do
      if IsDelimiter(Delimiters, ss[i]) then
      if St <> -1 then
      begin
      Result.Add(Trim(Copy(ss, St, i - St)));
      St := -1;
      end
      else
      if St = -1 then St := i;
      if St <> -1 then Result.Add(Copy(ss, St, Length(Str)));
      end;

      //操作演示
      with SplitEx(Memo1.Text, ',,. ?! ' + #13#10) do
      try
      SaveToFile('c:\temp_demo.txt');
      finally
      Free;
      end;


     
    我要投稿   -   广告合作   -   关于本站   -   友情连接   -   网站地图   -   联系我们   -   版权声明   -   设为首页   -   加入收藏   -   网站留言
    Copyright © 2009 - 20012 www.www.hxswjs.com All Rights Reserved.57365.com 版权所有