修剪具有特定字符集的字符串

Question

Delphi中的函数是否等同于Cocoa的stringByTrimmingCharactersInSet ？

我需要的是消除在字符串的开头或结尾找到的字符集中包含的所有字符。 可以没有，一个或多个开始或结束字符串......

在Delphi中最有效的方法是什么？

Answer 1

据我所知，目前还没有这样的RTL功能。 但是您可以检查JCL项目的JclStrings单元部分，其中包括StrTrimCharsLeft和StrTrimCharsRight函数。

function StrTrimCharsLeft(const S: string; const Chars: TCharValidator): string; overload;
function StrTrimCharsLeft(const S: string; const Chars: array of Char): string; overload;
function StrTrimCharRight(const S: string; C: Char): string;
function StrTrimCharsRight(const S: string; const Chars: TCharValidator): string; overload;
function StrTrimCharsRight(const S: string; const Chars: array of Char): string; overload;

Answer 2

据我所知，RTL不包括这样的功能。 您可以使用正则表达式填补空白：

function MyTrim(const Input: string; const TrimChars: string): string;
begin
  Result := TRegEx.Replace(Input, Format('^[%s]*', [TrimChars]), '');
  Result := TRegEx.Replace(Result, Format('[%s]*$', [TrimChars]), '');
end;

我很确定这不是性能最佳的解决方案，但很难找到更简单的东西。