RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

Delphi搜索字符串在流中的位置

作者:admin 来源: 日期:2014/8/13 23:35:12 人气: 标签:

(*// 
标题:搜索字符串在流中的位置 
说明:适用于文件搜索等 
设计: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
0
0
0
0
0
本文网址: