Delphi统计一字符串在另一字符串中出现的次数

  • 文章来源:LG工作室
  • 发布时间:2019-01-18 02:30:16
  • 责任编辑:lg2lg5
导读:Delphi统计一字符串在另一字符串中出现的次数,函数名:GetSubStrCount,函数说明:统计一字符串在另一字符串中出现的次数,参数:sSource:源字符串,sSubStr:需分割的字符,返回值:子字符串在源字符串出现的次数。
{
函数名   : GetSubStrCount
函数说明 : 统计一字符串在另一字符串中出现的次数
参数     :
              sSource: 源字符串
              sSubStr: 需分割的字符
返回值   : 子字符串在源字符串出现的次数
}
function GetSubStrCount(sSource, sSubStr: WideString): Integer;
var
  iPlace,iCount: Integer;
begin
  //转换为小写
  sSource := LowerCase(sSource);
  sSubStr := LowerCase(sSubStr);
  iCount := 0;
  repeat
    iPlace := Pos(sSubStr, sSource);  //子字符串第一次出现的位置
    if iPlace > 0 then
    begin
      Inc(iCount);  //次数累加
      sSource := Copy(sSource, iPlace+Length(sSubStr), Length(sSource));  //截取剩余部分
    end;
  until iPlace = 0;
  Result := iCount;
end;
建站套餐
联系我们
客户案例