hi,

ich brauch mal wieder eure hilfe...

über ein Windows Script hol ich mir von einem ftp Server ein .txt file runter...
diese .txt file muss ich anschließend als eine datenbankt datei ausgeben...

ich hab jetzt leier ein paar probleme beim einlesen des text files, vielleicht kann mir hierbei jemand helfen...

hier wäre mal die komplette procedure:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMain_Form.bitbtn_createClick(Sender: TObject);

var

File_ZPDM : File;
Row_S : String;
Row_R : TZPDM_Record;
i : integer;

begin

  ListBox_Msg.Items.Add('DB-Datei wird erstellt...');
  bitbtn_exit.Enabled := False;

  i := 2;

  {$I-}
  AssignFile(File_ZPDM,'..\TXT_File\Datei.TXT');
  Reset(File_ZPDM,i);
  SetLength(Row_S,261);
  ReadLn(File_ZPDM,Row_S,261);
    If IOResult <> 0 Then
      ShowMessage('Einlesen der Textzeile ist Fehlgeschlagen')
    Else
      AddDBFile();
  CloseFile(File_ZPDM);
  {$I+}

end;

bei meinem readln bekomm ich immer einen fehler, weiss vielleicht jemand warum??? bzw. geht das überhaupt mit readln eine einzelne zeile meines .txt files einzulesen???

ich hoffe mir kann jemand helfen

ReadLn(File_ZPDM,Row_S,261); hat keine 3 Parameter

ReadLn(fileName,string)
also in Deinem Fall

Readln(File_ZPDM,Row_S); und vielleicht den FileType
File_ZPDM : File of Text; ändern.

was willst denn Du damit bezwecken?

markieren

Delphi-Quellcode:

 i := 2;
  Reset(File_ZPDM,i);

Das FIle File_ZPM ist ein Textfile und besizt keine Recordstruktur, daher
ist es auch nicht notwendig im Reset eine RecordSize zu übergeben.




Grüße
Klaus

[edit] Ergänzungen

hmm also wenn meine File Variable nicht als File of Text angegeben ist,
krieg ich beim kompilieren folgende fehlermeldung:

Inkompatible Typen: 'procedure, untyped poniter or untyped parameter' und 'string'


aber meine File Variable kann ich nicht als File of Text angeben...
da krieg ich au ne Fehlermeldung:

Konstante oder Typenbezeichner erwartet

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMain_Form.bitbtn_createClick(Sender: TObject);

var

File_ZPDM : TextFile; // geändert :o(
Row_S : String;
Row_R : TZPDM_Record;
i : integer;

begin

  ListBox_Msg.Items.Add('DB-Datei wird erstellt...');
  bitbtn_exit.Enabled := False;

  i := 2;

  {$I-} 
  AssignFile(File_ZPDM,'..\TXT_File\Datei.TXT');

  //Reset(File_ZPDM,i);

  Reset(File_ZPDM);

  //SetLength(Row_S,261);
  //ReadLn(File_ZPDM,Row_S,261);

    while not eof(File_ZPDM) DO
      begin
        ReadLn(File_ZPDM,Row_S);

        If IOResult <> 0 Then
          ShowMessage('Einlesen der Textzeile ist Fehlgeschlagen')
        Else
          AddDBFile(); // vielleicht ist ja auch hier der Fehler?
     end;

  CloseFile(File_ZPDM);
  {$I+} 

end;

und da ist ein Fehler drin?

Grüße
Klaus

ja, leider, es kommen die beiden fehler die ich in meinem letzten beitrag aufgelistet hab...

für welche Zeile kommen denn die Fehlermeldungen?
Bitte nicht die Zeilennummer, sondern die Zeile angeben.

Grüße
Klaus

Wieso nimmst du eigentlich keine TStringlist? Fänd ich jetzt einfacher.

Ein kleiner Fehler: der Dateityp sollte TextFile oder Text sein, nicht file of Text.

Grüße vom marabu

Zitat von marabu:

Ein kleiner Fehler: der Dateityp sollte TextFile oder Text sein, nicht file of Text.

Grüße vom marabu

danke das wars, mit dem dateityp textfile gehts

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMain_Form.bitbtn_createClick(Sender: TObject);

var

File_ZPDM : TextFile;
Row_S : String;
Row_R : TZPDM_Record;
i : integer;

begin

  ListBox_Msg.Items.Add('LOGPFL wird erstellt...');
  bitbtn_exit.Enabled := False;

  i := 2;

  {$I-}
  AssignFile(File_ZPDM,'..\SAP_File\ZPDMMCIDL_DEY1_20060130.TXT');
  //Reset(File_ZPDM,i);
  SetLength(Row_S,261);
  ReadLn(File_ZPDM,Row_S);
      If IOResult <> 0 Then
      ShowMessage('Einlesen der Textzeile ist Fehlgeschlagen')
    Else
      AddLOGPFL();
  CloseFile(File_ZPDM);
  {$I+}

end;

@klaus01
die fehlermeldungen kamen bei
File_ZPDM : File of Text;
und
ReadLn(File_ZPDM,Row_S);

aber jetzt wenn
File_ZPDM : TextFile;
kommt kein Fehler mehr

aehm,

Du solltest das File vielleicht noch zum Lesen öffnen,

Dein Reset(..) ist auskommentiert.
Den anderen Fehler habe ich oben korregiert.

@marabu, danke, da hatte ich wohl ein Brett vor dem Kopf.
es steht ja schon in der Überschrift "Text File"


Grüße
Klaus