---

Hallo zusammen,

ich möchte einen mehrzeiliger Text aus den eine Datenbankabfrage liefert, in einem Text-Control anzeigen.
Der Text wird aus einer logischen Tabekke ausgelesen und enthält bei jedem Zeilenumbruch folgende Zeichen: "#J" und wird genauso im Text-Control (leider ohne die Zeilen tatsächlich umzubrechen) angezeigt.

Textbeispiel:
St 37-2"#J"Charakteristik  : Baustahl"#J#J"Verwendung      : Einfache Maschinenbauteile"#J#J"Zusammensetzung : C 0.2, Si 0.35, Mn 0.6, P 0.04, S 0.04"#J"Zerspanbarkeit  : Gut"#J"Schweissbarkeit : Gut

Nun habe ich versucht, die " und #J durch ein #\Newline zu ersetzen:

Code:

---

(sd-set-text-control-value "TEXTCONTROL-TX"
  :text (sd-string-replace
          (sd-string-replace
            (sd-read-logical-table-cell "WERKSTOFF-INFO-LTAB"
              :row 0 :column :TEXT1)
            "\"" "")
          "#J" (make-string 1 :initial-element #\Newline)))

---

Gibt es eine einfachere Möglichkeit, das zu bewerkstelligen?
Speziell das make-string gefällt mir überhaupt nicht.

------------------
Gruß aus dem Salzkammergut

Thomas Hollerweger

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

---

Einen Hauch kuerzer als make-string, aber nicht unbedingt besser:

Code:

---

(format nil "~%")

---

------------------
CoCreate OneSpace Modeling FAQ: http://www.clausbrod.de/OneSpaceModeling/

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