| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Textdatei ab bestimmter Zeile einlesen (1472 mal gelesen)
|
jklisp Mitglied
Beiträge: 24 Registriert: 17.05.2005 Windows XP SP2 Civild3d 2008
|
erstellt am: 31. Jan. 2008 10:28 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich habe eine Frage zu eingelesenen Textdatei (Laserscanndaten). Diese Datei besteht aus unzähligen Zeilen und Spalten (z. B.: jeweils 1000), die mittels Leerzeichen getrennt sind. Ich möchte nun die Daten ab einer bestimmten Zeile (z=253) auslesen. Meine bisherige Vorgangsweise, um zur gewünschten Zeile zu gelangen, ging über (repeat 253 (readline offenedatei)). Danach begann die eigentliche Einlesearbeit. Meine Frage: Kennt jemand eine Möglichkeit schneller zur gewünschten Zeile zu gelangen? repeat kann bei einer Datei mit mehreren 100000 Zeilen(!!) sehr lange dauern.....! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 31. Jan. 2008 10:33 <-- editieren / zitieren --> Unities abgeben: Nur für jklisp
.. das ist der Nachteil bei sequentiellen Dateien.. da kannst du dich nur von Anfang an durcharbeiten ... wie beim Tonband, da mußtest du auch spulen. Deswegen sind Datenbanken ja auch anders aufgebaut.. Früher gab es da Indexdateien usw. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jklisp Mitglied
Beiträge: 24 Registriert: 17.05.2005 Windows XP SP2 Civild3d 2008
|
erstellt am: 31. Jan. 2008 11:02 <-- editieren / zitieren --> Unities abgeben:
|
Peter2 Ehrenmitglied V.I.P. h.c.
Beiträge: 3849 Registriert: 15.10.2003
|
erstellt am: 01. Feb. 2008 19:30 <-- editieren / zitieren --> Unities abgeben: Nur für jklisp
Ich kenne auch nur "repeat x read-line", aber das ist meiner Ansicht nach ohnehin so höllisch schnell, dass es hoffentlich kein Problem macht. Peter ------------------ Für jedes Problem gibt es eine einfache Lösung. Die ist aber meistens falsch. ;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 01. Feb. 2008 20:29 <-- editieren / zitieren --> Unities abgeben: Nur für jklisp
Hallo jklisp, ich habe da noch eine Idee: mache doch aus der Textdatei eine Liste. Einfach in Excel öffnen, eine Spalte mit einer öffnenden Klammer vorsetzen und eine Zeile mit Zeilennummer und eine Spalte mit einer schließenden Klammer am Ende erstellen. Wenn das dann als Textdatei gespeichert ist muß in der ersten Zeile ein "'(" eingefügt werden und in der letzten Zeile die Schließende Klammer. mit folgendem Code könntest Du dann genau bestimmen, welche Zeilen Du nach dem Laden brauchtst:
Code:
(defun c:test ( / ) (setq koord (vl-remove-if-not '(lambda(A) (and (>= (car A)19000) (<= (car A)19500))) (load "c:\\koord.lsp"))))
PS: ich habe die Bespielkoordinatendatei mit ca. 20000 Zeilen mal angehängt, die Zeit für die Auswertung ist ein Witz, Du kannst es dann ja mal mit Deinen 100000sendern ausprobieren. ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 02. Feb. 2008 22:25 <-- editieren / zitieren --> Unities abgeben: Nur für jklisp
Hallo Frau oder Herr ..., Hier ist eine Beispiel: ;;--------------------------------------------- (setq FILENAME_I (findfile "SW_PGC.INI")) (if FILENAME_I (progn (setq INI_DAT (open FILENAME_I "r")) (repeat 253 (read-line INI_DAT)) (setq NC_VERZ (read-line INI_DAT)) (setq NC_DAT (read-line INI_DAT) ABS_REL (strcase (read-line INI_DAT)) ) (close INI_DAT) ) ) ;;-------------------------------------------- Du kannst es noch für Deine Arbeit anpassen. Gruß Theodor Schönwald
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 03. Feb. 2008 00:08 <-- editieren / zitieren --> Unities abgeben: Nur für jklisp
@Theodor, Zitat: Original erstellt von jklisp: ..Meine bisherige Vorgangsweise, um zur gewünschten Zeile zu gelangen, ging über (repeat 253 (readline offenedatei)).....!
Das ist doch auch deine Vorgehensweise - wes wird ja nun ein SEEK für Lisp o. ä. gesucht, um das zeilenweise Lesen einer Textdatei zu vermeiden. Da könnte man Lisp evt. mit einer kleinen ARX Routine nachrüsten. ------------------ Mit freundlichem Gruß Udo Hübner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 03. Feb. 2008 08:53 <-- editieren / zitieren --> Unities abgeben: Nur für jklisp
Textdateien sind Zeilenweise aufgebaut, da gibt es keine Speicherstelle ab Anfang, zu der man springen könnte, selbst wenn das im Dateiheader wie als Inhaltsverzeichnis vereinbart würde - dann wäre es aber schon keine Textdatei mehr. Und deshalb geht bloß das durchhangeln und Mitzählen ... ob man da nun in einer seek-Funktion (arx, dll ,keine Ahnung)verschwinden läßt, oder nicht. Der Zeitaufwand ist der gleiche. Übrigens (nth) macht intern bei Listen auch nichst anderes. Was Gescheindigkeitsvorteile bringt, ist, wenn man auf mehrere "Datensätze" zugreifen muß , die ganze Datei mit einmal einzulesen und als Liste nachzubilden. (setq NR 0) (while (setq ZEILE(readline FILE)) (setq LISTE(cons (setq NR(1+ NR)) ZEILE) ) und dann Zugriff mit (cdr (assoc 123 LISTE)) ... bei nur einem Zugriff ist das aber wieder langsamer, da die gesamte Datei eingelesen wird ... ist auch alles abhängig davon, welche Zeile(n)? man aus einer wie langen? Datei haben möchte.. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jklisp Mitglied
Beiträge: 24 Registriert: 17.05.2005 Windows XP SP2 Civild3d 2008
|
erstellt am: 03. Feb. 2008 13:23 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, Ich möchte mich zuerst für die guten Ratschläge bedanken. Der Hinweis, dass repeat mit read-line recht flott arbeitet, hat mich veranlaßt, mein Programm nochmals genauer zu beobachten. Nun das Problem liegt leider bei mir selbst, ich habe nämlich im Modellbereich eine Polylinie erstellt, welche die Außengrenze für die Suche im Textfile darstellt. Nun habe ich die Polylinie innerhalb des Programms in lauter Dreiecke geteilt und dummerweise!! für jedes Dreieck die Textdatei neu von Anfang an durchsucht. Je mehr Dreiecke desto längere Wartezeiten! Danke trotzdem an alle!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |