---

Hallo und guten Tag,
versuche seit Tagen neben der Arbeit diesen Konstrukt auf
die Reihe zu bringen.
Habe aber wohl einen kräftigen Denkfehler darin.

(setq Liste1 (list "Datei1.tab"  "Datei2.tab"  "Datei3.tab" "Datei4.tab"))
 
(setq LISTE2 nil) 
(setq ZEILE 1)
(while (/= ZEILE1 nil)
(setq ZEILE1 (read  LISTE1 ))
(if (/= ZEILE1 nil)
(setq LISTE2 (append LISTE2 (list  (str-subst ZEILE1 "" ".tab")))) 
));ende if while

;Ergebnis sollte sein '("Datei1" "Datei2" "Datei3" "Datei4")

Würde mich über eine Hilfe freuen.

Gruss Jörg

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

---

Hallo Jörg,

Du hast einige syntaktische Fehler drin (und auch ein paar nicht erforderliche Abfragen, (while (/= liste 1 nil) ... ) ist das gleiche wie (while liste1 ... )  ).

Versuch es mal hiermit:

Code:

---

(setq Liste1 (list "Datei1.tab"  "Datei2.tab"  "Datei3.tab" "Datei4.tab"))
(setq Liste2 nil)
(while liste1
  (setq Liste2 (cons (vl-string-trim ".tab" (car liste1)) liste2)  liste1 (cdr Liste1))
)

---

Gruß
Thomas

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

---

warum nicht mapcar?

(setq LISTE2(mapcar '(lambda(X)(vl-string-trim ".tab" X)) LISTE1))

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

---

-auch wenn hier bereits andere geantwortet haben (mitlerweile)-

abgesehen davon das ich das sowieso ganz anders lösen würde !?
zB. (mapcar'(lambda(x)(cadr(fnsplitl x)))Liste1)

und das ich glücklicherweise erraten habe was deine Funktion "str-subst" macht !?
(denke du meinst das Beispiel aus dem Kochbuch ?)

(defun str-subst(str neu alt / i la str2)
  (setq i 1)
  (setq la(strlen alt))
  (setq str2 "")
  (while(<= i(strlen str))
    (if
      (=(substr str i la)alt)
      (progn
        (setq str2(strcat str2 neu))
        (setq i(+ i la))
      )
      (progn
        (setq str2(strcat str2(substr str i 1)))
        (setq i(1+ i))
      )
    )
  )
  str2
)

Dann ist das so:
(while (/= ZEILE1 nil)...==> ist bei dir NIL weil du ja "Zeile1" garkeinen Wert zugewisen hast !
(schau mal genau hin..)

Es geht mit den Fehlern auch danach aber auch noch weiter.
(read Liste1)...==> READ hätte aber gerne einen STRING, du gibst aber eine LISTE weiter..
Zumal: READ benötigst du hier garnicht.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

[Diese Nachricht wurde von cadffm am 17. Apr. 2008 editiert.]

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

---

Hallo und vielen Dank!
Mit einer soo schnellen Info hätte ich nicht gerechnet.
Ich erkläre jetzt nicht erst was ich mir gedacht habe.
Denke ihr habt eh erkannt,dass ich mich nur in den
Niederungen des Lisplelns bewege.
Trotzdem auf mapcar hätte ich schon kommen sollen.
"vl-string-trim" gab es für mich bisher nicht
und "fnsplitl" finde ich nicht einmal in der Hilfe.
Ja, "read" war wirklich mein Brett vor dem Kopf.
Nochmals ein Dankeschön, ihr habt sehr geholfen.

Gruss Jörg

@Thomas (spider_dd) - bekomme bei deiner Variante nur nil

 

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

---

Zitat:

---

@Thomas (spider_dd) - bekomme bei deiner Variante nur nil 

---

Hallo Jörg,

als Rückgabewert kommt nil, aber in liste2 ist ("Datei4" "Datei3" "Datei2" "Datei1") (zumindest bei mir).

Gruß
Thomas

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

---

@JörgSausO

Also "fnsplitl" muß man tatsächlich nicht kennen / weil undokumentiert,
aber die Hilfe müßte es dennoch kennen (steht 1x in der Hilfe drin)

Alternativ dazu gibt es (dokumentiert) "vl-filename-base" , das entspricht
dann meinem (cadr(fnsplitl file))

-

Wegen dem Code von "spider_dd":
Zunächst wird die Liste erstellt (Liste1)
Dann sichergestellt das "Liste2" = Nil ist
Dann mit while die Schleife eingeleitet welche solange wiederholt werden soll wie Liste1 True ist

Innerhalb der Schleife wird "Liste1" und auch "Liste2" neudefiniert:

(cons (vl-string-trim ".tab" (car liste1))liste2)

(car liste1)                            1.Element der "Liste1" ["Datei1.tab"]
(vl-string-trim ".tab" "Datei1.tab")    Entferne Stringpart ".tab" ["Datei1"]
(setq Liste2 (cons "Datei1" liste2)    "Datei1" zur Liste2 hinzufügen ['("Datei1")]

(setq Liste1 (cdr Liste1))              Liste1 neudefinieren,
                                        man entfernt praktisch das derzeit 1.Element ['("Datei2.tab" "Datei3.tab"...)]

Die Ergebnisliste "Liste2" wird also immer länger und "Liste1" wird immer um das bearbeitete
(erste) Element gekürzt. Wenn die Schleife fertig durchlaufen ist (alle Elemente aus der Liste1
abgearbeitet und entfernt) ist also die "Liste1"=Nil und die Ergebnisliste "Liste2" ist voll.

Fazit: Tippe mal "danach" in die Befehlszeile ein: !Liste2
da hast du dein Ergebnis..

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Hallo Thomas , hallo CADFFM (finde ich keinen Namen zu , egal)
danke euch beiden: Ihr habt super erklärende Anworten gebracht
und ich werde mich ausführlich damit beschäftigen.

Gruss Jörg

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