delphi - TStringList.IndexOf : wildcard within indexof?

Question

我想检索字符串列表中的行号(从文件加载)。Indexof 似乎完全匹配。有没有办法检索带有通配符版本的 Indexof 的行？类似于 SL.Indexof('?sometext')?

谢谢!

Answer 1

如果您想匹配字符串的某些部分，而不需要任何花哨的通配符，正如您在另一个答案的评论中指出的那样，那么您可以使用如下简单的函数:

function FindMatchStr(Strings: TStrings; const SubStr: string): Integer;
begin    
  for Result := 0 to Strings.Count-1 do
    if ContainsStr(Strings[Result], SubStr) then
      exit;
  Result := -1;
end;

如果你想要不区分大小写的匹配，那么你可以使用这个:

function FindMatchText(Strings: TStrings; const SubStr: string): Integer;
begin    
  for Result := 0 to Strings.Count-1 do
    if ContainsText(Strings[Result], SubStr) then
      exit;
  Result := -1;
end;

ContainsStr 和 ContainsText 在 StrUtils RTL 单元中定义，并遵循 Str 的标准约定来指示区分大小写的比较，以及指示不区分大小写的 Text。