---

Hola zusammen.

Ich lese eine CSV Datei in ein ME10 Makro ein und suche nun verzweifelt einen Befehl mit dem ich den String an dem ; teilen kann an um zwei Variablen zu füllen.
SUBSTR bringt mir nichts denn die Felder sind nicht immer gleichlang aber immer durch einen ; getrennt.

 

------------------
Viele Grüsse aus dem Schwabenländle

Massimo Castell

------------------
DIE inoffizielle Hilfeseite zum OneSpace Designer
http://osd.cad.de

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

---

LET L_str (SUBSTR String 1 ((POS String ";")-1))
LET R_str (SUBSTR String  ((POS String ";")+1) ((LEN String)-(POS String ";")))

------------------
meine LISP-Makros sind auf Heikos Hilfeseite
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

hallo,
";" ist doch ein hervorragendes Trennungszeichen.

LET ZEILE ("1234;abcde;56")
LET N (POS ZEILE ";")  (* =5 *)
LET TEIL (SUBSTR ZEILE 1 (N-1))   (* = "1234" *)
LET ZEILE (SUBSTR ZEILE (N+1) 10000)   (* ="abcde;56" *)

Das Ganze jetzt natürlich in einer LOOP-Schleife und fertig.
War jetzt freihändig ohne Test.

EDIT: Walter war wieder mal schneller!

------------------
Grüsse aus dem Schwarzwald  
www.Andreas-Baumgartner.de

[Diese Nachricht wurde von baumgartner am 03. Nov. 2004 editiert.]

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

---

WOW !!

Ich bin erstaunt.

Das das ; ein tolles Trennzeichen ist, dass weiß ich, sonst hätte ich es nicht für dei CSV benützt. Nur wußte ich nicht wie weitermachen.

Vielen Dank an beide.

------------------
Viele Grüsse aus dem Schwabenländle

Massimo Castell

------------------
DIE inoffizielle Hilfeseite zum OneSpace Designer
http://osd.cad.de

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

---

Zitat:

---

Original erstellt von baumgartner:
EDIT: Walter war wieder mal schneller!

---

HiHiHi 

------------------
meine LISP-Makros sind auf Heikos Hilfeseite
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

Hallo, ich hatte da irgendwo mal eine Funktion gefunden, die das macht was du willst und per Parameterübergabe sehr variabel einsetzbar ist.

Funktion <kompletter string> <trennzeichen> <Position des Teilstrings>
Spalte_str 'Willi;Butz' ';' 0
Die Rückmeldung enthält den Teilstring zwischen den Trennzeichen
0 ist Willi, 1 ergibt Butz

Anwendungsbeispiel bei zeilenweisen einlesen einer CSV-Datei und befüllen einer logischen Tabelle.
    READ_FILE 1 Zeile
    EXIT_IF (Zeile='END-OF-FILE')
    WRITE_LTAB 'x_ltab' i 1 (STR(Spalte_str Zeile ';' 0))
    WRITE_LTAB 'x_ltab' i 2 (STR(Spalte_str Zeile ';' 1))
    WRITE_LTAB 'x_ltab' i 3 (STR(Spalte_str Zeile ';' 2))
   
Und hier das Makro
DEFINE Spalte_str
    PARAMETER String1
    PARAMETER Trenn_str
    PARAMETER Spalte
    IF (SPALTE > 0)
      (Spalte_str (STR_AB (String1+Trenn_str) ( (POS String1 Trenn_str)+1))
                  (Trenn_str) (Spalte-1))
    ELSE
      IF ( (POS String1 Trenn_str) >0 )
      (SUBSTR String1 1 ((POS String1 Trenn_str)-1) )
      ELSE
      (String1)
      END_IF
    END_IF
END_DEFINE

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

---

Hallo Dittrich,

"STR_AB" kenn ich nicht. Welche Version ME10 verwendest du denn?

------------------
Gruß Wilfried 

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

---

Sorry, str_ab ist eine weitere Funktion. Das ist halt der Nachteil von Modularisierung.

DEFINE Str_ab
    PARAMETER String
    PARAMETER Beginn
    IF (Beginn <= LEN (STR String))
      (SUBSTR (STR String)  Beginn (LEN (STR String) - Beginn + 1 ))
    ELSE
      ('')
    END_IF
END_DEFINE

Wenn man die beiden Bausteine an den Anfang der Datei packt, in der das Makro enthalten ist, das diese Funktionen verwenden soll, funktioniert es nach dem Input.

[Diese Nachricht wurde von Dittrich am 05. Nov. 2004 editiert.]

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

---

Hallo Dittrich,

toll!! 10U's für dich.

------------------
Gruß Wilfried 

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

---

Hola.

Wie es der Teufel will. Wenn man etwas fertig hat, dann kommen schon die Erweiterungen. Und schon wird die CSV-Datei 4 spaltig.

Danke Dittrich für deine Lösung.

Und Danke nochmals allen hier.

------------------
Viele Grüsse aus dem Schwabenländle

Massimo Castell

------------------
DIE inoffizielle Hilfeseite zum OneSpace Designer
http://osd.cad.de

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