---

Guten Tag,
ich möchte gerne Zeilen aus eine TXT Datei lesen und in einer LISP Datei weiterverwerten. Die TXT Datei beinhaltet z.B.

30
105

Die LISP Datei würde z.B so aussehen.

(setq mydata (open "c:/CAD_tools/Vorlagen/gettxt.txt" "r"))

(setq ww (read-line mydata ))
(setq ww (atoi ww))
(command "_line" "0,0" (list 0 ww) "")

(setq wd (read-line mydata ))
(setq wd (atoi wd))
(command "_line" "10,0" (list 10 wd) "")

(close mydata)

Nun sollte das TXT Datei aber z.B. so aussehen.

ww 30
wd 105

damit man die Zeilen identifizieren kann. Bitte um Hilfestellung.

Danke
Richy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von richycad:
Bitte um Hilfestellung.

---

Wobei ???

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Hallo Richy,

wie es Cadmiums Frage schon treffend formuliert, gibst Du uns zu wenig Infos zu Deinem Probelm (sieh Dir mal Cadmiums Signaturzeile an :-) )
Also, was soll passieren, wenn in der zeile ww steht, was, wenn dort wd steht, gibt es noch mehr Möglichkeiten.

Vielleicht hilft Dir ja schon der Befehl  (substr ...) weiter.

Gruß
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

ich möchte nicht nur Werte in den Zeilen sehen

30
105

sondern auch nachvollziehen können was die Zeile im TXT Datei für eine Aufgabe hat.

wd 30
ww 105

Und das bekomme ich nicht hin.

Danke und Gruß
Richy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich sollte erstmal durchlesen bevor ich abschicke :-)

Die TXT Datei die ich verwenden möchte sieht so aus.

ww 105
wd 30

Es sind nur die Zahlen 105 und 30 die ich verwenden will.
Richy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
und wenn du deine Text Datei so schreibst.
ww
105
wd
30
Anscheinend hast du Probleme einen String aufzudröseln.

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ich spendier dir mal ne Funktion:

(defun DT:STR-DIV(STRING SEPARATOR / POS OFFSET LISTE)
  (if(and(=(type STRING) 'STR)(=(type SEPARATOR) 'STR))
    (progn
      (setq OFFSET (1+(strlen SEPARATOR)))
      (if(setq POS (vl-string-search SEPARATOR STRING))
        (list (substr STRING 1 POS)(substr string (+ POS OFFSET)))
        (list STRING)
      )
    )
  )
)

macht z.B (DT:STR-DIV "WW 105" " ")  -> ("WW" "105")

für dich dann der Aufruf
(setq ZEILE(read-line mydata))
(setq ZEILE(DT:STR-DIV ZEILE " ")
(set (read(car Zeile))(distof (cadr Zeile)))

letzte Zeile bewirkt, wenn deine Zeile
WW 105
lautet, dass die Variable WW mit dem Wert 105 belegt wird

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Danke Thomas,

es hat geklappt.

Richy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

klar hat es geklappt 

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP