搜索字符串在流中的位置

(*//
标题:搜索字符串在流中的位置
说明:适用于文件搜索等
设计:Zswang
支持:wjhu111@21cn.com
日期:2004-03-21
//*)

(*//============================================================================
设计思路:
从流中将数据取到缓冲中
再逐一对缓冲进行搜索
============================================================================//*)

function ScanStream(mStream: TStream; mStr: string): Integer;
const
  cBufferSize = $8000;
var
  S: string;
  T: string;
  I: Integer;
  L: Integer;
begin
  Result := -1;
  if not Assigned(mStream) then Exit;
  if mStr = '' then Exit;
  L := Length(mStr);
  mStream.Position := 0;
  SetLength(S, cBufferSize);
  T := '';
  for I := 1 to mStream.Size div cBufferSize do begin
    mStream.Read(S[1], cBufferSize);
    Result := Pos(mStr, T + S) - 1; //保留上次搜索的尾部字符~~
    T := Copy(S, cBufferSize - L, MaxInt);
    if Result >= 0 then begin
      Result := Result + Pred(I) * cBufferSize - Length(T);
      Exit;
    end;
  end;
  I := mStream.Size mod cBufferSize;
  SetLength(S, I);
  if I > 0 then begin
    mStream.Read(S[1], I);
    Result := Pos(mStr, T + S) - 1;
    if Result >= 0 then begin
      Result := Result + mStream.Size - I - Length(T);
      Exit;
    end;
  end;
end; { ScanStream }

//Example
procedure TForm1.Button1Click(Sender: TObject);
var
  vFileStream: TFileStream;
begin
  vFileStream := TFileStream.Create('C:/temp/temp.exe', fmShareDenyNone);
  try
    Label1.Caption := IntToStr(ScanStream(vFileStream, Edit1.Text));
  finally
    vFileStream.Free;
  end;
end;
  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

zswangII

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值