我目前有一些資料以文字檔資料存在一資料夾中 如何能利用delphi輸入字串後開啟資料庫並查詢各檔案內容 列出含此字串之所有檔案並連結 或將現有文字檔內容分類後轉入資料庫再作查詢 即以文字檔作查詢系統 急需....煩請各位高手幫忙 因目前文字檔內容,大致統一為 @主旨 ............ @說明 ............ @日期 ............ ps.本人為初學者,能否記錄完整程式及說明供參考,萬分感謝

引言: 我目前有一些資料以文字檔資料存在一資料夾中 如何能利用delphi輸入字串後開啟資料庫並查詢各檔案內容 列出含此字串之所有檔案並連結 或將現有文字檔內容分類後轉入資料庫再作查詢 即以文字檔作查詢系統 急需....煩請各位高手幫忙 因目前文字檔內容,大致統一為 @主旨 ............ @說明 ............ @日期 ............ ps.本人為初學者,能否記錄完整程式及說明供參考,萬分感謝

實在有點看不懂您的問題, 可否舉一個例子說明如何來回存取於資料庫? ～～～Delphi K.Top討論區站長～～～

kirby88你好: 首先你要做資料分類才能設計資料庫!!! 你要做km嗎???

------
======================
昏睡~
不昏睡~
不由昏睡~

kirby88 兄，真是佩服~站長大人都聽不懂你的意思< > 我再重新描述一次，看看是不是合你的意思 你想寫一個程式，輸入一字串後，能搜尋目錄內有此字串的檔案，並能在程式裡查看。(你是想以文字檔做為資料庫)? 或是能將這些文字檔轉入資料庫，以利查詢 是此意思嗎??< > 你要的是"多檔搜尋"嗎? 另外若要將你的文字檔內容import 至資料庫，會很麻煩 因為，照此看來，此文字檔的格式並不工整， 例: "主旨","說明","日期" "Test","這是一個測試","2002/12/05" 並非一筆記錄一行，要轉入資料庫，須額外的處理，無法以ODBC的Microsoft Text Driver 來當成資料庫處理 先想清楚，有完整的構思後，再拿出來大家討論，加油~~~~ --【

ddy兄: 您真是深得我心ㄚ,我的意思就是要在單一資料夾做"多檔查詢"的動作 原因為: 我有一堆資料,皆以文字檔記錄,每一文字檔中的記錄方式如原述 各檔所含之主題皆相同,每一主題前皆以"@"作分隔 但因資料過多 希望建立查詢機制 當然最好能利用現有資料夾,即能作好查詢,即"多檔查詢" 但又擔心"多檔查詢"的機制會很慢 故詢問是否能利用各檔中各主題間皆以"@"做分隔的特性 轉各主題及其內容入資料庫,再做查詢 sorry....不知這樣敘述是否清楚一些,麻煩各位高手幫幫忙

Hello kirby88兄 試試這一段:

procedure TForm1.MFindFile( InPath, SearchString : String);
var SearchRec: TSearchRec;
begin
   if FindFirst(InPath '\*.*',faAnyFile, SearchRec) <> 0 then exit;
   while FindNext(SearchRec) = 0 do begin
         if (SearchRec.Name = '.') or (SearchRec.Name = '..') then continue;
         if ((SearchRec.Attr and faDirectory) = faDirectory) then
            MFindFile(InPath   '\'   SearchRec.Name, SearchString);
         if Pos('.txt',SearchRec.Name) > 0 then begin
            FindMyData( InPath '\' SearchRec.Name, SearchString );
         end;
   end;
   FindClose(SearchRec);
end;        procedure TForm1.FindMyData( FileName, SearchString : String );
var strs : TStringList;
    i : integer;
    First : Boolean;
begin
   strs := TStringList.Create;
   strs.LoadFromFile( FileName );
   i := 0;
   First := False;
   while i <> strs.Count do begin
        if (pos(SearchString,strs.Strings[i]) <> 0) then begin
           if not First then begin
              Memo1.Lines.Add('[' FileName ']');
              First := True;
           end;
           Memo1.Lines.Add( strs.Strings[i] );
        end;
        Inc( i );
   end;
   strs.Free;
end;

MFindFile('c:\','成功'); 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

引言: ddy兄: 您真是深得我心ㄚ,我的意思就是要在單一資料夾做"多檔查詢"的動作 原因為: 我有一堆資料,皆以文字檔記錄,每一文字檔中的記錄方式如原述 各檔所含之主題皆相同,每一主題前皆以"@"作分隔 但因資料過多 希望建立查詢機制 當然最好能利用現有資料夾,即能作好查詢,即"多檔查詢" 但又擔心"多檔查詢"的機制會很慢 故詢問是否能利用各檔中各主題間皆以"@"做分隔的特性 轉各主題及其內容入資料庫,再做查詢 sorry....不知這樣敘述是否清楚一些,麻煩各位高手幫幫忙

這個並不難!!!! 讓我用幾個程序來解決吧!! 1.點選'開始'鍵 2.將滑鼠移致'搜尋' 3.輸入你要找的條件... 4.選擇要搜尋的資料夾或檔案 5.完成等待資訊