检查字符串是否包含单词但仅在特定位置?

前端之家收集整理的这篇文章主要介绍了检查字符串是否包含单词但仅在特定位置?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
如何检查字符串是否包含子字符串,但仅限于特定位置?

示例字符串:

What is your favorite color? my [favorite] color is blue

如果我想检查字符串是否包含特定单词,我通常会这样做:

  1. var
  2. S: string;
  3. begin
  4. S := 'What is your favorite color? my [favorite] color is blue';
  5. if (Pos('favorite',S) > 0) then
  6. begin
  7. //
  8. end;
  9. end;

我需要的是确定字符串中是否存在单词favourite,忽略它是否出现在[]符号中,上面的代码示例显然没有.

因此,如果我们将代码放入布尔函数中,一些示例结果将如下所示:

TRUE: What is your favorite color? my [my favorite] color is blue

TRUE: What is your favorite color? my [blah blah] color is blue

FALSE: What is your blah blah color? my [some favorite] color is blue

上面的前两个样本都是真的,因为在[]符号之外找到了收藏词,无论它是否在其中.

第三个样本是假的,因为即使有喜欢这个词,它只出现在[]符号内 – 我们应该只检查它是否存在于符号之外.

所以我需要一个函数来确定一个单词(在这个例子中是最喜欢的)是否出现在一个字符串中,但忽略了这个单词被包含在[]符号中的事实.

解决方法

我喜欢 Sertac's idea关于删除括号括起来的字符串并在此之后搜索字符串.以下是通过搜索整个单词和区分大小写扩展的代码示例:
  1. function ContainsWord(const AText,AWord: string; AWholeWord: Boolean = True;
  2. ACaseSensitive: Boolean = False): Boolean;
  3. var
  4. S: string;
  5. BracketEnd: Integer;
  6. BracketStart: Integer;
  7. SearchOptions: TStringSearchOptions;
  8. begin
  9. S := AText;
  10. BracketEnd := Pos(']',S);
  11. BracketStart := Pos('[',S);
  12. while (BracketStart > 0) and (BracketEnd > 0) do
  13. begin
  14. Delete(S,BracketStart,BracketEnd - BracketStart + 1);
  15. BracketEnd := Pos(']',S);
  16. BracketStart := Pos('[',S);
  17. end;
  18. SearchOptions := [soDown];
  19. if AWholeWord then
  20. Include(SearchOptions,soWholeWord);
  21. if ACaseSensitive then
  22. Include(SearchOptions,soMatchCase);
  23. Result := Assigned(SearchBuf(PChar(S),StrLen(PChar(S)),AWord,SearchOptions));
  24. end;

这是函数的优化版本,它使用指针字符迭代而不进行字符串操作.与以前的版本相比,当你有一个缺少结束括号的字符串时就会处理这种情况,例如My [最喜欢的颜色是.由于缺少括号,这样的字符串被评估为True.

原则是通过char遍历整个字符串char,当你找到开括号时,查看该括号是否有自己的结束对.如果是,则检查存储位置的子字符串是否包含搜索的单词.如果是,请退出功能.如果不是,请将存储的位置移动到右括号.如果左括号没有自己的闭合对,则从存储位置搜索单词到整个字符串的末尾并退出函数.

对于此代码follow this link的注释版本.

  1. function ContainsWord(const AText,AWord: string; AWholeWord: Boolean = True;
  2. ACaseSensitive: Boolean = False): Boolean;
  3. var
  4. CurrChr: PChar;
  5. TokenChr: PChar;
  6. TokenLen: Integer;
  7. SubstrChr: PChar;
  8. SubstrLen: Integer;
  9. SearchOptions: TStringSearchOptions;
  10. begin
  11. Result := False;
  12. if (Length(AText) = 0) or (Length(AWord) = 0) then
  13. Exit;
  14. SearchOptions := [soDown];
  15. if AWholeWord then
  16. Include(SearchOptions,soMatchCase);
  17. CurrChr := PChar(AText);
  18. SubstrChr := CurrChr;
  19. SubstrLen := 0;
  20. while CurrChr^ <> #0 do
  21. begin
  22. if CurrChr^ = '[' then
  23. begin
  24. TokenChr := CurrChr;
  25. TokenLen := 0;
  26. while (TokenChr^ <> #0) and (TokenChr^ <> ']') do
  27. begin
  28. Inc(TokenChr);
  29. Inc(TokenLen);
  30. end;
  31. if TokenChr^ = #0 then
  32. SubstrLen := SubstrLen + TokenLen;
  33. Result := Assigned(SearchBuf(SubstrChr,SubstrLen,SearchOptions));
  34. if Result or (TokenChr^ = #0) then
  35. Exit;
  36. CurrChr := TokenChr;
  37. SubstrChr := CurrChr;
  38. SubstrLen := 0;
  39. end
  40. else
  41. begin
  42. Inc(CurrChr);
  43. Inc(SubstrLen);
  44. end;
  45. end;
  46. Result := Assigned(SearchBuf(SubstrChr,SearchOptions));
  47. end;

猜你在找的Delphi相关文章