AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Datei durchsuchen

Offene Frage von "Techcrawler"
Ein Thema von Techcrawler · begonnen am 5. Mär 2009 · letzter Beitrag vom 5. Mär 2009
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#11

Re: Datei durchsuchen

  Alt 5. Mär 2009, 11:49
Also ich hab das ganze mal testweise in c umgesetzt und glaub das ganze eleganter gelöst zu haben (ohne mit seek zurück zu springen und damit dem erneuten lesen aus Datei).
Leider hab ich grad kein Pascal zur Hand um das ganze nach Pascal zu übersetzen und dann auch zu probieren ob es dann noch funktioniert.

Edit: hier mal mein c-Testcode (sicher noch Verbesserungswürdig)
Code:
static uint32_t fill_buffer(uint32_t *file_pos, char *buffer, uint32_t buf_size, uint32_t keep_len)
{
   char file_data[] = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz hgfedcba";
   uint32_t i;
   uint32_t result = 0;

   for (i = 0; i < keep_len; i++) {
      buffer[i] = buffer[buf_size - keep_len + i];
   }

   for (i = keep_len; (i < buf_size) && file_data[*file_pos]; i++) {
      buffer[i] = file_data[(*file_pos)++];
      result++;
   }

   printf("got bytes from file: %d\r\n", result);
   return result;
}

static void func_search_in_file()
{
   uint32_t file_pos = 0;
   uint32_t i = 0;
   uint32_t j;
   char *search = "fe";
   uint32_t search_len = 2;
   char buffer[search_len * 2 + 5];
   char *data = &buffer[0];
   uint32_t data_len;

   data_len = fill_buffer(&file_pos, buffer, sizeof(buffer), 0);
   while (1) {
      j = 0;
      while ((j < search_len) && (data[j] == search[j])) {
         j++;
      }
      if (j == search_len) {
         printf("found at: %d\r\n", i);
         return;
      }

      i++;
      if (i + search_len > data_len) {
         data_len += fill_buffer(&file_pos, buffer, sizeof(buffer), search_len);
         data = &buffer[0];
         if (i + search_len > data_len) {
            printf("not found\r\n");
            return;
         }
      } else {
         data = (char*)((uint32_t)data + 1);
      }
   }
}
[Edit]Ich hab das ganze jetzt mal nach Delphi übersetzt und hoffe dabei nix verhauen zu haben:
[Edit]einige Fehler im Delphi-Quelltext beseitigt
Delphi-Quellcode:
function search_in_file(filename: String; to_find: String): Int64;
var
  lStream: TFileStream;
  data_len: Cardinal;
  search_len: Cardinal;
  i: Cardinal;
  j: Cardinal;
  search: PChar;
  data: PChar;
  buffer: Array of char;

  function fill_buffer(buffer: PChar; buf_size: Cardinal; keep_len: Cardinal): Cardinal;
  begin
    j := 0;
    while (j < keep_len) do
    begin
      buffer[j] := buffer[buf_size - keep_len + j];
      inc(j);
    end;

    result := lStream.Read(buffer[keep_len], buf_size - keep_len);
  end;
begin
  lStream := TFileStream.Create(filename, fmOpenRead);
  try
    i := 0;
    search_len := length(to_find);
    search := @to_find[1];
    SetLength(buffer, search_len * 2 + 1024); //if you have enough memory change the 1024 up to a higher value
    data := @buffer[0];
    result := -1;

    data_len := fill_buffer(@buffer[0], Length(buffer), 0);
    while (data_len > 0) do
    begin
      j := 0;
      while ((j < search_len) and (data[j] = search[j])) do
      begin
        inc(j);
      end;

      if (j = search_len) then
      begin
        result := i;
        data_len := 0;
      end;

      inc(i);
      if (i + search_len > data_len) then
      begin
        data_len := data_len + fill_buffer(@buffer[0], Length(buffer), search_len);
        data := @buffer[0];
        if (i + search_len > data_len) then
          data_len := 0;
      end
      else
        data := PChar(Cardinal(data) + 1);
    end;
  finally
    lStream.Free;
  end;
end;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz