Entwickler-Ecke

Dateizugriff - Dateinamen von Memo in Datei suchen und zurückspringen


Biarchiv - So 01.05.05 17:00
Titel: Dateinamen von Memo in Datei suchen und zurückspringen
Hallo,

folgendes Problem.
Ich habe bis jetzt leider noch keine Lösung gefunden.

Folgendes soll passieren. Ich will einen Filemodifiezierer schreiben
der folgendes macht. Er sucht nach Dateinamen die in einer Memo1 unter-
einander eingegeben werden müssen.
Nun soll nach diesen Namen in einer Datei gesucht werden allerdings muss
dazwischen überall ein #00 rein. Da es so gespeichert ist.
Er soll 24 und Dateinamenlänge x2 zurück gehen und dort 3 Bytes ändern und
zur nächsten Memo1 zeile. Zuletzt speichern.



Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
 
var filer, stelle : String;
    x : widestring;
    f : file;
    u : array[0..65535] of char;
    i, i1, iRead, iWrite, found : integer;
begin
found := 2;
filer := EmptyStr;

  {$I-}
  AssignFile(f, Form1.Edit1.Text);
  Reset(f,1);
  filer := '';
  for i := 0 to (Memo1.lines.count -1) do
    begin
    stelle := Memo1.lines[i];
//x := Memo1.lines[i];
    for i1 := 0 to (Length(Memo1.lines[i])) do
      begin
      if not (i1 = 0) then
        begin
        filer := filer + stelle[i1] + #0;
        end;
      end;
      repeat
     BlockRead(f , u, sizeof(u), iRead);
      if (iRead = Length(filer)) then
        begin
       If (Length(filer) = Length(u)) and CompareMem(PChar(filer), @u, Length(filer)) Then found := 1;
       If (Length(filer) = Length(u)) and CompareMem(@filer, @u, Length(filer)) Then found := 1;
       If (Length(filer) <> Length(u)) or not CompareMem(PChar(filer), @u, Length(filer)) Then found := 0;
       If (Length(filer) <> Length(u)) or not CompareMem(@filer, @u, Length(filer)) Then found := 0;
        if (found = 0) then
         begin
         Seek(f, FilePos(F) - Length(filer) - 24);
         showmessage(IntToStr(FilePos(f)));
         fillchar(u,sizeof(u),$ff);
         BlockWrite(f,u,3,iWrite);
         Seek(f, FilePos(f) + Length(filer) + 25);
        end;
       end;
     until(iRead = 0);
    end;
  CloseFile(f);
  {$S+}


Beispiel: setup.exe wird gesucht.

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
 
0000c080h: AF 01 00 00 00 00 01 AF B5 B7 0F 00 00 0F B7 B5 ; ¯......¯µ·....·µ
0000c090h: 69 02 0C 14 27 37 04 00 00 00 01 00 00 01 1C 00 ; i...'7..........
0000c0a0h: 73 00 65 00 74 00 75 00 70 00 2E 00 65 00 78 00 ; s.e.t.u.p...e.x.
0000c0b0h: 65 00 20 00 20 00 20 00 3B 00 31 00 3E 00 A6 03 ; e. . . .;.1.>.¦.
0000c0c0h: 00 00 00 00 03 A6 15 15 02 00 00 02 15 15 68 0C ; .....¦........h.
0000c0d0h: 1F 0E 38 0C 04 00 00 00 01 00 00 01 1C 00 78 00 ; ..8...........x.
0000c0e0h: 78 00 78 00 78 00 78 00 78 00 78 00 78 00 2E 00 ; x.x.x.x.x.x.x...
0000c0f0h: 65 00 78 00 65 00 3B 00 31 00 42 00 E9 03 00 00 ; e.x.e.;.1.B.é...
0000c100h: 00 00 03 E9 46 01 04 00 00 04 01 46 68 09 0C 08 ; ...éF......Fh...
0000c110h: 19 1C 04 00 00 00 01 00 00 01 20 00 78 00 78 00 ; .......... .x.x.
0000c120h: 78 00 78 00 78 00 78 00 78 00 78 00 78 00 78 00 ; x.x.x.x.x.x.x.x.
0000c130h: 2E 00 65 00 78 00 65 00 3B 00 31 00 44 00 6A 04 ; ..e.x.e.;.1.D.j.
0000c140h: 00 00 00 00 04 6A 00 FA 01 00 00 01 FA 00 68 0B ; .....j.ú....ú.h.
0000c150h: 1A 13 00 0C 04 00 00 00 01 00 00 01 22 00 78 00 ; ............".x.
0000c160h: 78 00 78 00 78 00 78 00 78 00 78 00 78 00 78 00 ; x.x.x.x.x.x.x.x.
0000c170h: 69 00 74 00 2E 00 65 00 78 00 65 00 3B 00 31 00 ; i.t...e.x.e.;.1.
0000c180h: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ; ................
0000c190h: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ; ................
0000c1a0h: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ; ................
0000c1b0h: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ; ...............

Es soll nach setup.exe gesucht und in der ersten Zeile
AF B5 B7 in FF FF FF geändert werden.

Moderiert von user profile iconChristian S.: Code- durch Delphi-Tags ersetzt.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!