字符串分割扩展 SplitEx,字符串分割扩展 SplitEx
【 tulaoshi.com - Delphi 】
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;
来源:http://www.tulaoshi.com/n/20160129/1492398.html
看过《字符串分割扩展 SplitEx》的人还看了以下文章 更多>>
