string kommt in datei vor?

[Pseudemys Nelsoni]

hoi,

wenn ich per

f: file;
...
assignfile(f, pfad)


eine datei in die variable lade, wie kann ich prüfen ob da eine bestimmte zeichenkette drin ist mit pos?

f ist ja kein string

[MikeS]

Stimmt f nicht aber ...

... F: Textfile;
test: string;


du solltest die Textdatei mit reset(F) öffnen dann
mit

...Readln(f, test);

auslesen!

"test" ist ein string!

[Brüggendiek]

Hallo!

Da sehe ich 2 Möglichkeiten - die klassische Methode und das Windows-kompatible Verfahren.

Bei der klassischen Methode wird die Datei zeilenweise mit Readln eingelesen und das Ergebnis mit Pos durchsucht, bis entweder der Suchstring gefunden wurde oder die Datei zu Ende ist.
Dieses Verfahren entspricht allerdings nicht der Windows-Norm - allerdings geht Dein Ansatz (AssignFile) bereits in diese Richtung.

Nach Windows-Norm muß die Datei komplett in den Speicher eingelesen werden (wenn der knapp wird, beginnt Windows dann das Ganze wieder auf die Platte auszulagern - fröhliches Warten allerseits ). Dazu sollte die Datei z.B. mit LoadFromFile in eine Stringlist eingelesen werden.

Wenn ich so etwas zu programmieren habe, bevorzuge ich auch eindeutig die Nicht-Windows-Methode! Wird aber bei .NET wohl nicht mehr gehen.

Kein Wunder, daß die Hauptspeicheranforderungen der Programme immer größer werden. Bei 2GB Hauptspeicher ist dann (XP) Ende der Fahnenstange. Wieviel Hauptspeicher unterstützt eigentlich Longhorn?

Gruß

Dietmar Brüggendiek

Edit: Mist - zu langsam. Ich sollte nicht so viel zu Windoof schreiben

[mirage228]

Zitat von Brüggendiek:

Hallo!
Kein Wunder, daß die Hauptspeicheranforderungen der Programme immer größer werden. Bei 2GB Hauptspeicher ist dann (XP) Ende der Fahnenstange. Wieviel Hauptspeicher unterstützt eigentlich Longhorn?

Das kommt auf den Prozessor an. Ein 32-bit Prozessor kan 4GB adressieren. Ein 64-bit (Ich weiss jetzt nicht, in wie fern Longhorn solche unterstützen wird) dementsprechend mehr.

mfG
mirage228

[Yan]

Eine 64-Bit CPU kann theorethitsch ca. 16.800.000.000 Gigabyte adressieren.
Das macht dann ungefähr 16 Exabyte.

Frage: Wer braucht sowas?

[Pseudemys Nelsoni]

hm es handelt sich um eine DLL, wenn ich sie in eine stringlist lade ist da nur ein item mit 2 zeichen....

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  sl: tstringlist;
  i: integer;
begin
  sl := tstringlist.create;
  sl.LoadFromFile(pfad);   <<< DLL Pfad
  for i := 0 to sl.count-1 do
  begin
    if pos(ww, sl.Strings[i]) > 0 then
    begin
      StatusBar1.Panels[0].Text := 'Current server: Westwood';
      exit;
    end
    else
    begin
      if pos(wu, sl.Strings[i]) > 0 then
      begin
        StatusBar1.Panels[0].Text := 'Current server: CNCR';
        exit;
      end;
    end;
  end;
  sl.Free;
end;

eine der beiden if abfragen stimmt 100% zu...da ich aber nur 1 item erhalte... die DLL selber hat mehr als 100

[Jens Schumann]

Hallo Pseudemys Nelsoni,
mit TStringList kann es auch nicht funktionieren, da binäre Dateien Steuerzeichen usw. enthalten.

Du kannst die DLL mit einem TFilestrema öffnen.
Dafür habe ich dir ein rudimentäres Beispiel gebastelt.
Das Programm kommt mit jedem Dateiformat klar.

Der Suchalgorithmus ist natürlich lausig (funktioniert aber). Hier kannst Du dann
noch einiges optimieren

[Pseudemys Nelsoni]

hallo jens 8)

funzt, leider habe ich noch nie mit zeigern gearbeitet und versteh den code nicht so recht

ich dachte man kann einfach eine datei in einen string laden mit mit pos prüfen ob ein string enthalten ist, alles nicht so leicht

[Pseudemys Nelsoni]

hm, ich bekomme es einfach nicht hin, ich bekomme es nichtmal hin eine mesage anzuzeigen ob der string nun vorkam oder nicht, ich weiss ehrlich gesagt nichmal wo ich anfangen soll. das beispiel von jens ist super, aber von dem code den ich da gelesen hab versteh ich nicht wirklich viel :\.

Wie könnt ich das z.b machen, ich möchte in einer DLL prüfen ob "hallo" vorkommt, wenn ja, dann Showmessage('ja'); sonst Showmessage('nein'); leider weiss ich nicht wie ich jetzt anfangen soll

[Luckie]

Delphi-Quellcode:

function TForm1.SearchForStringInDLL(const DLLFilename, aText: String): Integer;
{Quick and Dirty SuchAlgo für Zeichenketten in einer binären Datei
 D.h. es muss nicht unbedingt eine DLL sein. Es funktioniert mit jedem
 Dateiformat.
 Wenn der SuchText nicht gefunden wurde, gibt die Funktion -1 zurück.}
var
  Filestream : TFilestream;
  HelpStr    : String;
  ReadLen    : Integer;
  TextLen    : Integer;
begin
  Result:=-1; // Default Ergebnis
  ReadLen:=Length(aText); // Wieviel Bytes sollen aus dem Stream gelesen werden
  SetLength(HelpStr,ReadLen); // Hilfsvariable auf die Länge des Suchtextes setzen
  TextLen:=ReadLen; // Länge des Suchtextes merken
  Filestream:=TFilestream.Create(DLLFilename,fmOpenRead); // Stream öffnen
  Try
    Filestream.Seek(0,soFromBeginning); // Position sicherheitshalber auf den Anfang setzen
    While Filestream.Position<Filestream.Size do
      begin
      Filestream.Read(Pointer(HelpStr)^,ReadLen); // ReadLen Zeichen aus dem Stream lesen
      ListBox1.Items.Add(HelpStr); // Für Testzwecke
      Label5.Caption:=IntToStr(Filestream.Position);
      Application.ProcessMessages; // Für Testzwecke
      {ReadLen enthält nach Filestream.Read die Anzahl der gelesen Zeichen.
       Wenn am Ende nicht TextLen Zeichen gelesen wurden wurde das Dateiende
       erreicht und der gesuchte String kann nicht enthalten sein}
      If Readlen=TextLen then
        begin
        If HelpStr=aText then  // SuchText gefunden
          begin
          {Von der aktuellen Position, die jetzt ein Zeichen hinter dem
           SuchText steht wird jetzt die Länge des SuchTextes abgezogen.
           Dann steht in Result die Position des ersten Zeichenes des
           SuchTextes}
          Result:=Filestream.Position-TextLen;
          Exit;
          end
            else
              {Nicht gefunden. D.h. Position auf das nächste Zeichen setzen.
               Da die aktuelle Position ein Zeichen hinter den gelesenen
               Zeichen ist, muss (TextLen-1) Zeichen im Strema nach "links"
               gegangen werden, damit die neue Position für Filestream.Read
               ein Zeichen hinter der letzten Position ist. Aber nur, wenn
               noch TextLen Zeichen gelesen werden können.}
              If (Filestream.Position+TextLen)<Filestream.Size then
                Filestream.Seek(-(TextLen-1),soFromCurrent);
        end;
      end;
  Finally
    Filestream.Free;
    end;
end;

Das ist doch schon alles. Wenn du dein 'Hallo' in der DLL blablub.dll finden willst:

Delphi-Quellcode:

if SearchForStringInDLL('blablub.dll', 'Hallo') > -1 then
  ShowMessage('Gefunden.')
else
  ShowMessage('Verdammt, wieder nichts.');