---

Hallo,

aus einer externen Datei lese ich folgenden String:
001 "Specify point:" "Bitte Punkt angeben:".

Wie kann man am einfachsten die Texte innerhalb der Anführungszeichen heraus filtern?

------------------
Gruß

Steffen

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

---

Hi,
Du arbeitest an einer Sprach-Parameterdatei für Dein Programm?
Also in etwa: "Meldung 001 Englisch Deutsch"?
Ist das Parameterformat vorgegeben oder kannst Du das selbst festlegen?
Wenn Du es selbst festlegen kannst würde ich anders vorgehen:
1. Datei z.B. so aufbauen:
'(
("001" ("Specify point:" "Bitte Punkt angeben:"))
("002" ("What do you want?" "Was willst Du?"))
)

2. Datei importieren über z.B.
(setq yy (load "C:\\TEST.TXT"))
...wenn Parameterdatei wie oben aufgebaut ist und in Datei "C:\Test.txt" liegt

3. Mit z.B. (setq message (assoc "002" yy)) erhälst Du dann die Liste:
("002" ("What do you want?" "Was willst Du?"))

4. Mit (car (cadr message)) erhälst Du Englisch,
mit (cadr (cadr message)) Deutsch

Du könntest die Liste natürlich auch vereinfachen, z.B.:
'(
("001" "Specify point:" "Bitte Punkt angeben:")
("002" "What do you want?" "Was willst Du?")
)

Damit würdest Du dann via assoc und dann "nth" auf die entsprechenden Werte zugreifen...
Ciao,
Marc

------------------
Ciao,
Marc

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

---

vielleicht hiermit

(defun DT:STRS-BEETWEEN(STRING SEPARATOR / POS OFFSET LISTE)
  (if(and(=(type STRING) 'STR)(=(type SEPARATOR) 'STR))
    (progn
      (setq POS    (vl-string-search SEPARATOR STRING))
      (setq OFFSET (1+(strlen SEPARATOR)))
      (while POS
        (setq STRING (substr string (+ POS OFFSET)))
        (setq POS    (vl-string-search SEPARATOR STRING))             
        (if POS
          (progn
            (setq LISTE  (cons (substr STRING 1 POS  ) LISTE))
            (setq STRING (substr string (+ POS OFFSET)))
            (setq POS    (vl-string-search SEPARATOR STRING))
          )
        )
      )
      (reverse LISTE)
    )
  )
)

Aufrufbeispiel:
(DT:STRS-BEETWEEN "001 \"Specify point:\" \"Bitte Punkt angeben:\"."  "\"")
oder
(DT:STRS-BEETWEEN "Kennung: **Specify point:**  **Bitte Punkt angeben:** ;Kommentar **Rest**" "**")

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

Ich würde das mit einer INI-Datei machen. In etwa so:
[CURRENT]
SPRACHE=D
[SPRACHEN]
DEUTSCH=D
ENGLISCH=E
SPANISCH=S
[PUNKT]
D=Punkt wählen
E=Select Point
S=KEINE Ahnung wie die Spanier sagen
[OBJECT]
D=Objekt wählen
E=Select Object
S=KEINE Ahnung wie die Spanier sagen
...

Diese Datei kann man ohne große Probleme um viele Sprachen erweitern, ohne, dass am Programmcode auch nur eine Zeile geändert werden müsste.
Durch [CURRENT]SPRACHE=D wird festgelegt in welchem Modus die Programme laufen, weshalb durch einfaches ändern des Strings die Spraxche geändert werden könnte.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

aus einer externen Datei lese ich folgenden String:
001 "Specify point:" "Bitte Punkt angeben:"

Zunächst mal: Ich sehe da nicht den _einen_ String. Das hier?
"001 \"Specify point:\" \"Bitte Punkt angeben:\""
Das wäre eine String.

Unter diesem Link findest du die Funktion (str-tok ...) die genau das macht, was du brauchst: http://www.autolisp.mapcar.net/strtok.html

(str-tok "001 \"Specify point:\" \"Bitte Punkt angeben:\"" " ")

=> ("001" "Specify point:" "Bitte Punkt angeben:")

Mit (car), (cadr) usw. kannst du dann auf die einzelnen Strings zugreifen. Voraussetzung ist allerdings das Vorhandensein der Leerstellen zwischen den Strings.

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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