Seite 1 von 3
Fehler beim Reinschreiben in eine Textdatei
Verfasst: 23.07.2008 21:21
von HemSA
Hallole Ihr,
ich lese von einer Exceldatei Werte aus und schreibe sie in eine Textdatei. Das klappt mit dieser Version auch gut.
Hier der gekürtzte Teil vom Programm:
Code: Alles auswählen
For i=2 To 1500 ; in Excelseite mit 2. Zeile beginnen mit auslesen
bla
bla
bla
If OpenFile(1,"C:\GAS.TAB")
While Eof(1) = 0
If gastabs.s=gastabelles.s
FileSeek(1,(zeilel.l-1)*247+20)
WriteString(1, gasflowmaxs.s)
jahrs.s=FormatDate("%yyyy",Date())
monats.s=FormatDate("%mm",Date())
tags.s=FormatDate("%dd",Date())
stundens.s=FormatDate("%hh",Date())
minutens.s=FormatDate("%ii",Date())
sekundens.s=FormatDate("%ss",Date())
textgesamtgastabs.s = gastabelles.s+" "+tags.s+"."+monats.s+"."+jahrs.s+" "+stundens.s+":"+minutens.s+":"+sekundens.s+" "+gasflowmaxs.s+" "+gasflowmins.s+" "+testgasviscositys.s+" "+testgasdensitys.s
If OpenFile(2,"C:\Gas.log")
laengel.l= Lof(2)
FileSeek(2,laengel.l)
WriteStringN(2,textgesamtgastabs.s)
CloseFile(2)
EndIf
EndIf
Wend
Else
MessageRequester("Uyarı","Gas tablosu acamadı!")
EndIf
CloseFile(1)
Next i
Nun haben sich die Datensätze auf ca. 1000 erhöht. Und da dachte ich, dass es nicht so nett ist 2 Dateien 1500 mal zu öffnen und wieder zu schliessen.
Das Ergebnis war folgendes. Ich habe die OPENFILE und CLOSEFILE ausserhalb von der FOR NEXT Schleife gelegt.
Code: Alles auswählen
If OpenFile(1,"C:\GAS.TAB")
If OpenFile(2,"C:\Gas.log")
For i=2 To 1500 ; in Excelseite mit 2. Zeile beginnen mit auslesen
bla
bla
While Eof(1) = 0
If gastabs.s=gastabelles.s
FileSeek(1,(zeilel.l-1)*247+20)
WriteString(1, gasflowmins.s)
jahrs.s=FormatDate("%yyyy",Date())
monats.s=FormatDate("%mm",Date())
tags.s=FormatDate("%dd",Date())
stundens.s=FormatDate("%hh",Date())
minutens.s=FormatDate("%ii",Date())
sekundens.s=FormatDate("%ss",Date())
textgesamtgastabs.s = gastabelles.s+" "+tags.s+"."+monats.s+"."+jahrs.s+" "+stundens.s+":"+minutens.s+":"+sekundens.s+" "+gasflowmaxs.s+" "+gasflowmins.s+" "+testgasviscositys.s+" "+testgasdensitys.s
laengel.l= Lof(2)
FileSeek(2,laengel.l)
WriteStringN(2,textgesamtgastabs.s)
EndIf
Wend
Next i
Else
MessageRequester("Uyarı","Exel-WINTED-Gas.log dosyası acamadı!")
EndIf
Else
MessageRequester("Uyarı","Gas tablosu acamadı!")
EndIf
CloseFile(2)
CloseFile(1)
Jetzt wird allerdings nur der erste Wert von der Exceldatei in die Textdateien reingeschrieben.
Hat da einer eine Idee woran das Liegt ( EOF kommt ja normalerweise direkt nach dem OPENFILE - ist es das? )
Verfasst: 23.07.2008 21:31
von STARGÅTE
wenn du die datei wo du rein schreibst offen lässt kannst du dir :
FileSeek(2,laengel.l)
sparen, da er ja automatisch imme,r am ende ist
denn Lof(2) gibt meiner Meinung nach immer die Länge der "geöffneten" Datei zurück, und nciht wenn sie gerade verändert wird
Verfasst: 23.07.2008 22:00
von HemSA
Hallo STARGÅTE,
Danke erst mal,
ich bin eben der Meinung, das LOF(Dateinummer) im Moment des Aufrufes berechnet wird. Aber vielleicht liege ich da auch daneben.
Auch wird nur die erste Zeile von der Exceldatei reingeschrieben - nicht die letzte.
Von der Laufzeit ( mit Fehler ) hat sich auch kein grosser Unterschied zwischen den beiden Programmen ergeben.
30 Sekunden mit 1500 maligem öffnen und schliessen der beiden Dateien,
20 Sekunden ohne 1500 maligem öffnen und schliessen der Dateien.
Reist wohl nicht viel raus was die Geschwindigkeit angeht ( mir kommt es da auch nicht auf Sekunden an ).
Von der Mechanik aus gesehen weiss ich es natürlich nicht ( geht die Platte schneller kaputt? )
Verfasst: 23.07.2008 22:11
von Kaeru Gaman
es wäre einfach falsch, die Datei 1500 mal zu öffnen und zu schließen.
außerdem ist es ebenfalls falsch, das FileSeek an der Stelle zu benutzen.
das würde ich erstmal eliminieren, bevor ich irgendwelche anderen fehler suche.
...
ein fehler, der mir auffällt:
du hast auch auf File01 ein WriteString drin, kein Read-irgendwas.
wenn du nirgens was liest, woher willst du was zum reinschreiben haben?
Verfasst: 23.07.2008 22:28
von HemSA
Hallo Kaeru Gaman,
das mit dem Öffnen der Dateien 1500 mal will ich auch nicht.
In der Hilfe ist dieses angeben. Und ich will ja den Zeiger an das Ende der Datei stellen für einen neuen Eintrag. In meinen anderen Programmen klappt das ja auch gut ( siehe 1. Programm )
Code: Alles auswählen
If ReadFile(0, file$)
length = Lof(0) ; ermitteln der Dateilänge
FileSeek(0, length - 10) ; setzen des Zeigers auf 10 Zeichen vor Ende der Datei
außerdem ist es ebenfalls falsch, das FileSeek an der Stelle zu benutzen.
das würde ich erstmal eliminieren, bevor ich irgendwelche anderen fehler suche.
Ohne ein FileSeek, wie soll das dann funktionieren etwas ans Ende der Textdatei hinzuzufügen? Was soll da nach der Hilfe falsch sein.?
Wie gesagt, es ist nur ein Auszug von dem ganzen Programm.
Verfasst: 23.07.2008 22:45
von Little John
Du willst also etwas an eine bestehende Datei anhängen? Ich denke dann brauchst Du schon FileSeek(), aber nur am Anfang des Programms außerhalb der Schleife! Nicht den Dateizeiger innerhalb der Schleife immer wieder zurücksetzen!
Du kannst auch 'mal das Ganze mit 2 kleinen Dateien ausprobieren, die lesbaren Text enthalten und dann ggf. einige Dinge im Programm verändern. So kannst Du zu 100% nachvollziehen, wie sich die Änderungen im Programm auswirken.
Gruß, Little John
Verfasst: 23.07.2008 22:52
von Kaeru Gaman
wenn du eine datei öffnest, um sie komplett zu schreiben,
und erst dann wieder schließt, dann brauchst du zwischendrin kein Fileseek.
Code: Alles auswählen
CreateFile(0, "Test.dat")
For n=0 To 99
WriteStringN(0,"Zeile Nr. "+Str(n))
Next
CloseFile(0)
die Fileseek-Variante aus der Help ist dazu da,
um an eine vorher schon bestehende Datei etwas anzuhängen.
Code: Alles auswählen
OpenFile(0, "Test.dat")
FileSeek(0, Lof(0))
For n=100 To 199
WriteStringN(0,"Zeile Nr. "+Str(n))
Next
CloseFile(0)
Verfasst: 24.07.2008 00:05
von Falko
All dieses über FileSeek steht schön beschrieben in der PB-Hilfe
unter OpenFile()
PB-Hilfe zu OpenFile() hat geschrieben:Wenn eine existierende Datei mittels OpenFile() geöffnet wird, dann wird der Dateizeiger an den Anfang der Datei gesetzt.
...
Wenn Daten zu einer existierenden Datei hinzugefügt werden sollen, muss der Dateizeiger zuerst auf das Ende der Datei gesetzt werden. Hierfür werden nach OpenFile() die Befehle FileSeek() und Lof() verwendet
Eigentlich könnte Fred zum OpenFile() Parameter wie #PB_Append o.a.
mit einbauen. So machen das eben andere Programmiersprachen und
erspart einige Programmzeilen für das Fileseek() und Lof() beim öffnen der File.
Wenn also kein Parameter angegeben wird, würde der Zeiger wie bisher
beim erneuten Öffnen am Anfang stehe.
Sobald dieser kleine winzige Parameter vorhanden ist, würde der Datenzeiger ans Ende gesetzt.
Alle weiteren Angaben erledigt, dann FileSeek(), wenn man bestimmte
Stellen überschreiben will.
War nur mal so ein Gedanke nebenbei
Gruß, Falko
Verfasst: 24.07.2008 09:12
von Sebastian
Hej Falko! Das ist eine sehr sinnvolle Idee! Teil das doch mal dem PB-Team mit! Ich denke, dass sie für diesen Vorschlag sehr aufgeschlossen sein werden, schließlich dürfte die Umsetzung nicht sonderlich mühevoll sein.
Verfasst: 24.07.2008 09:17
von ts-soft
> schließlich dürfte die Umsetzung nicht sonderlich mühevoll sein
Das dafür erforderliche Macro zu schreiben erfordert ca. 20 - 40 Sek.
Lieber ein Macro schreiben statt ewig zu warten, für so einen PillePalle Kram,
dafür haben wir die ja.