Probleme beim String einlesen und übergeben

[agm65]

Nabend Leute,

ich kämpfe verzweifelt mit einen string problem (habe natürlich schon im forum gesucht):
also ich habe eine text datei die ich in einen string einlade und zwar so:

Code:

AssignFile(f,Filepath);
      Reset(f);
      while not EOF(f) do
      begin
      readln(f,s);
// jetzt hier ein fehler beim übergeben des strings an einen weiteren string
      NewString := s;  //<---der string wird nicht übergeben wenn ich ihn danach abrufen will,
      end;             //----ist er leer
      CloseFile(f);

Fehler NR2:
der string hat mehrere zeilen und ich möchte nur die erste zeile des string an den 2ten string (newstring) übergeben ...


bitte bitte helft mir !


thx cu agm65

[Tanadirian]

Wie kommst du darauf das 's' mehrere Zeilen hat? Du liest die Datei doch mit

Delphi-Quellcode:

readln(f,s);

zeilenweise ein. Vielleicht steht in 's' nix drin? Ansonsten wüsste ich auch nicht weiter.

[Luckie]

Wird NewString auch irgendwo verwendet? Ansonsten optimiert dir Delphi weg.

[agm65]

ja wird verwendet

[Luckie]

Geht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  F: Textfile;
  s, NewString: String;
begin
  AssignFile(F, 'c:\boot.ini');
{$I-}
  Reset(F);
{$I+}
  if IOResult = 0 then
  begin
    while not EOF(F) do
    begin
      ReadLn(F, s);
      NewString := s;
      ShowMessage(NewString);
    end;
    CloseFile(F);
  end
  else
    RaiseLastOSError();
end;

Irgendwo musst du noch was falch machen.

[agm65]

luckie, wie schneide ich denn von diesem string die erste zeile aus `? und übergebe nur die erste zeile des eingelesenen strings ?

[Luckie]

Readln liest nur eine Zeile aus einer Textdatei. Die Borländer haben sich dabei schon was gedacht die Prozedur readline zu nennen.

[agm65]

nein macht es nicht , also ich hab das bei ner conole anwendung !

wenn ich dann

Code:

writeln(newstring)

mache, gibt er mir die ganze text datei wieder ... ?

[Luckie]

Machst du eventeull sowas wie:

Delphi-Quellcode:

NewString := NewString + s;

Glaub mir mein Code, so wie er da steht gibt mir für jede Zeile eine Messagebox aus. probier es auch. Button auf eine Form un den Code reinkopiert, nur noch den Pfad zur Datei anpassen und kucken und staunen. :roll:

[agm65]

nein mache ich nicht .....ich kann dir mal den source schicken wenn du willst.....schreib mir ne icq message...das kenn echt nicht sein...

[Luckie]

Häng es mal im Posting an.

[agm65]

das würde ich nur sehr ungerne machen ....komm jetzt gib dir nen ruck....was soll ist nur eine handbewegung für dich ... bitte !

[Luckie]

Dann als Anhang an eine PN. Und hör endlich auf hier öffentlich weghen ICQ zu nerven, ich hatte meine Gründe. Punkt.

[Luckie]

Delphi-Quellcode:

    while not EOF(F) do
    begin
      ReadLn(F, s);
      CoD := s;
      writeln(s)  // <--- was ist das?!?!?
    end;
    CloseFile(F);
    writeln(cod);  // <-- und was ist das?!?!

Mach mal die Augen auf und kuck dir die Ausgabe mal genau.

[agm65]

das beides war nur für mich zum sehen was er ausgibt !


setz mal beides auf //...dann siehst du das es file not found ist und nicht cod + outro....
verstehst du ?

[Luckie]

Delphi-Quellcode:

procedure GetKeys;
var
  s: string;
  Outro: string;
  f: textfile;
  CoD: string; // 21
begin
  try
    s := 'c:\boot.ini'; GetValueFromReg(HKLM,
      'SOFTWARE\Activision\Call of Duty\', 'InstallPath');
    if s <> '' then
    begin
      KeyPath := s; // + '\main\codkey';
      AssignFile(F, KeyPath);
      Reset(F);
      while not EOF(F) do
      begin
        ReadLn(F, s);
        CoD := s;
     // writeln(s)
      end;
      CloseFile(F);
      //writeln(cod);
    end;

    Outro := 'Harvester Server v0.4 (c) AGM65 Maverick - [url]www.rnsys.de[/url] -';

    ALLGAMES := CoD;
    if allgames <> '' then ALLGAMES := CoD + Outro;
    if allgames = '' then
      ALLGAMES :=
        'No CD Keys found! Harvester Server v0.4 (c) AGM65 Maverick - [url]www.rnsys.de[/url] -';
    writeln(ALLGAMES); // Text ausgeben
    readln; // noch ne zeile lesen, damit das fenster nicht sofort wieder zugeht!
  except
  //showmessage('mach nix')
  end;
end;

So zeigt er mir nur die letzte zeile in der Datei an mit deinem Outro, wie es aich sein soll.

[agm65]

also wenn der source so ist:

Code:

 s := GetValueFromReg(HKLM,'SOFTWARE\Activision\Call of Duty\', 'InstallPath');
    if s <> '' then
    begin
      KeyPath := s + '\main\codkey';
      AssignFile(F, KeyPath);
      Reset(F);
      while not EOF(F) do
      begin
        ReadLn(F, s);
        CoD := s;
      //writeln(s)
      end;
      CloseFile(F);
      //writeln(cod);
    end;

dann öffnet er die ganze key file und übergibt nicht den string( erste zeile aus der key file) an den string "cod"...

[Luckie]

Ich habe irgendeine Textdatei genommen, welche ist doch egal.

[agm65]

ja komisch mit deine text datei (also der bootlog geht es wunderbar ..wieso mit der codkey nicht? villeicht wegrn der endung ?


luckie, du hast recht ...verdammte scheiße es lag an der text file....NEIN ICH DREH AB !! ALL DIE STUNDEN ....danke für deine zeit......man man man jetzt geht alles wunderbar so wies soll !

hab dank !

[agm65]

nein es geht wieder nicht argh .. er macht alles aus der text file mit rein :( !

nicht alles .....nur ab der 2ten zeile...ich könnte heulen !

[Sharky]

Hai agm65,

nur mal zwei Fragen:

a) Hat die Datei denn auch mehrere "Zeilen!!!".
b) Gibt es in der Datei womöglich Steuercodes?.

[agm65]

ja die datei hat sicher mehrere zeilen ! und steuercodes ??? kein plan !!!