盒子论坛 v2.1

如何实现全文检索？？请教高手

我现在有个题目，要求搜索一些文件，比如最简单的txt文件，通过输入一些关键字就可以知道这些文件中有哪些是包含这些内容的？？(不需要打开这些文件)
另外，如果要进行扩展，比如是doc,zip,rar文件，如何实现？？
请给出具体方案，我是个菜鸟
我的email:wonder80@eyou.com
欢迎高手
----------------------------------------------
-

作者：

amer (amer)	★☆☆☆☆	-
	盒子活跃会员

2004/5/2 11:23:21

1楼：

你可以改改就能满足你的要求了。

function TMainForm.GetDirectoryName(Dir: String): String;
begin
  if Dir[Length(Dir)]<> '\' then
    Result := Dir+'\'
  else
    Result := Dir;
end;

procedure TMainForm.FindFiles(APath: String);
var
  FSearchRec,
  DSearchRec: TSearchRec;
  FindResult: integer;

  function IsDirNotation(ADirName: String): Boolean;
  begin
    Result := (ADirName = '.') or (ADirName = '..');
  end;

begin
  APath := GetDirectoryName(APath);
  FindResult := FindFirst(APath+FFileName,faAnyFile+faHidden+
                          faSysFile+faReadOnly,FSearchRec);
  try
    while FindResult = 0 do
    begin
      FlatListBox1.Items.Add(LowerCase({APath+}FSearchRec.Name));
        FindResult := FindNext(FSearchRec);
    end;
    FindResult := FindFirst(APath+'*.*', faDirectory, DSearchRec);

    if FlatCheckBox1.Checked=True then
    begin
      while FindResult = 0 do
      begin
        if ((DSearchRec.Attr and faDirectory) = faDirectory) and not
          IsDirNotation(DSearchRec.Name) then
          FindFiles(APath+DSearchRec.Name);
          FindResult := FindNext(DSearchRec);
      end;
    end;
  finally
    FindClose(FSearchRec);
  end;
end;
----------------------------------------------
-

信息

登陆以后才能回复