一个全字匹配的另类算法

如果要从一个字符串中匹配某个指定字符串（即查找指定字符串是否在某个字符串中），那么除了按字符逐个搜索外，还有一个另类通俗的算法。下面请跟我来。

代码如下（仅给出DELPHI的实现）：

function searchStr(beStr, subStr: string): Integer;
var
  oldLength: integer;
  tempStr: string;
begin
  oldLength := Length(beStr);
  tempStr := StringReplace(beStr, subStr, '|', [rfReplaceAll]);
  if Length(tempStr) <oldLength then
  begin
      Result := Pos('|', tempStr);
  end
  else
  begin
      Result := -1;
  end;
end;

首先，取得要被搜索的字符串（这里为beStr）的长度

接着，使用StringReplace函数将需要搜索的字符串beStr中指定字符串（这里为subStr）替换为特殊的表示符（这里使用了“|”

最后，判断替换后的字符串是否发生了变化，如果变化说明存在相关匹配，可以使用pos函数来定位此匹配。

这个算法避免了繁杂的字符搜索和位置计算。