Text File Einlesen und als Datenbank Datei ausgeben

[Andidreas]

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:

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??? :wall:

ich hoffe mir kann jemand helfen

[Klaus01]

Delphi-Quellcode:

ReadLn(File_ZPDM,Row_S,261);

hat keine 3 Parameter

ReadLn(fileName,string)
also in Deinem Fall

Delphi-Quellcode:

Readln(File_ZPDM,Row_S);

und vielleicht den FileType

Delphi-Quellcode:

File_ZPDM : File of Text;

ändern.

was willst denn Du damit bezwecken?

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

[Andidreas]

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

[Klaus01]

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

[Andidreas]

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

[Klaus01]

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

Grüße
Klaus

[mquadrat]

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

[marabu]

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

Grüße vom marabu

[Andidreas]

Zitat:

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 :)

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

[Klaus01]

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

[Andidreas]

Zitat:

Zitat von mquadrat

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

hmm mit TSTringList hab ich noch nicht gearbeitet, so lang programmier ich noch nicht in delphi...

ich hab halt von meinem kollegen halt den tipp bekommen es mit nem record zu machen, weil ich ein strukturierts txt file hab also wo ein wert immer an der gleichen stelle steht...

kann ich des mit ner TStringList auch machen???

[Klaus01]

jo,

Du mußt dann halt nur die Zeilen auch zerlegen
wie Du es jetzt auch machst.

Delphi-Quellcode:

var
  sl: TStringList;
  i: Integer;

begin
  sl := TstringList.create;
 
 if FileExists('fileName') then
     sl.loadfromFile('fileName');

  for i:=0 to sl.count -1 do
    begin
       //tu etwas mit sl.strings[i]
    end;
  sl.free;  // [edit]freigeben vergessen
end;

[edit = Ergänzung]

Ein record ist in der Regel ein Datensatz
wie hier zum Beispiel

test = record
zahl: Integer;
name: String[20]
end;
Solch eine Recordstruktur kann mit einer Stringlist nicht eingelesen werden.

Ein TextFile mit einer SatzStruktur
wie hier

1 name1
2 name2
3 name3

kann mit einer Stringlist eingelesen werden, allerdings auch nur in Zeilen.
Die Zeilen müssen dann zerlegt werden um in Datenfelder getrennt zu werden.

Grüße
Klaus

[Andidreas]

hmm da hab ich aber mit meinem record weniger aufwand???

denn muss ich ja nur einmal angeben, und später wenn ich die felder meiner db-datei füll, kann ich die felder vom record direkt in die db-datei übergeben....
also ungefähr so:

Feld1DB := Record.Feld1;


ich hab jetzt lediglich nur das problem wie ich meinen string in denn record bekommen :oops:

[Klaus01]

wenn die Zeile/String immer gleich unterteilt ist
sprich so

z1 data11 data12 data13
z2 data21 data22 data23
z3 ..

dann kannst Du eigentlich mit copy (siehe Delphi Hilfe)
sehr gut den String auseinander nehmen und in
Deine Recordstruktur oder gleich in de dbpacken.

Grüße
Klaus

[mquadrat]

Welches Verfahren das bessere für dich ist, hängt halt davon ab wie deine Eingabedatei ausschaut

[Andidreas]

Zitat:

Zitat von Klaus01

dann kannst Du eigentlich mit copy (siehe Delphi Hilfe)

danke für denn tip :thumb: werds heut mal ausprobieren...

[Andidreas]

also des mit dem copy hab ich nicht hinbekommen...
ist aber auch egal...

werd jetzt meine string aus der .txt datei so auflösen...

dazu hätte ich aber eine frage:

ich komme ja von der as/400 programmierung (programmiersprache ile/rpg)
im ile/rpg steht mir folgende möglichkeit zur verfügung einen string aufzuteilen

Code:

Eval Feld1 = %Subst(Feld2,1,5);

wenn jetzt in Feld2 "hallo du" stehen würde, dann würde ich im Feld1 also "hallo" als wert reingestellt bekommen...

nun zu meiner frage, gibt es so eine ähnliche möglichkeit auch in delphi??? bzw. gibt es hier auch
eine substring methode???

bis jetzt hab ich mein problem wie folgt gelöst:

Delphi-Quellcode:

procedure TMain_Form.AddDBRecord(Parm : String);

var
Feld1 : String;
Feld2 : String;


begin

  Feld1 := Parm;

  Feld2 := copy(Feld1,1,18);
  ShowMessage(Feld2);

end;

finde diese methode allerdings etwas unellegant :oops:
mir wäre lieber wenn ich des mit substring machen könnte, falls es das gibt

[Klaus01]

ich sehe da im Moment keinen Unterschied zwischen SubStr und copy.
Vielleicht bin ich ja auch auf dem Auge blind.

Aus der Hilfe

Zitat:

Returns a substring of a string or a segment of a dynamic array.

Unit

System

Category

string handling routines

function Copy(S; Index, Count: Integer): string;
function Copy(S; Index, Count: Integer): array;

Description

S is an expression of a string or dynamic-array type. Index and Count are integer-type expressions. Copy returns a substring or sub array containing Count characters or elements starting at S[Index].

Grüße
Klaus

[Andidreas]

ja in der funktionalität besteht wirklich kein unterschied...

mich hätte nur interessiert ob es für delphi auch ein funktion gibt die sich substring nennt...
^^ werd einfach ne funktion selber schreiben die Substring heißt ;) dann hab ichs auch...