---

Hallo,

versuche mal wieder im Demoshop ein Replacement zu rezeugen.
Dazu müsste ich aus einem Text bestimmte textbausteine auslesen.
Hat dazu jemand einen Tipp wie ich da im Drafting vorgehen muss:

der Text lautet z.B.:

SD_FORMER_ID: 126;5567532
SHA_TOOL_KEY: (:SHOPNAME "LSCA_Germany_[Arnold]" :TABNAME "arnold" :ROWKEY ( :TOOL_ID "13039700" :STAMP_DIR "AUF"))
SHA_REPLACEMENT_INFO: sha_arnold_replacement 'Rastwarze 4mm'
SD_FORMER_ID: 127;4416690
SD_FORMER_ID: 126;5567578
SD_FORMER_ID: 131;3657808
SHA_TOOL_INFO: 13039700
SD_FORMER_ID: 131;3662595
SD_FORMER_ID: 126;5567535
SHA STAMP #7
SD_FORMER_ID: 127;4416733
SD_FORMER_ID: 131;3053924
SD_FROM_3D
SD_FORMER_ID: 131;3657811
SD_FORMER_ID: 128;7914745
SHA_TOOL_ANGLE: 7.300000
SHA_SIDE: :UPSIDE
SD_FORMER_ID: 132;174971
SD_FORMER_ID: 128;7914533
SD_FORMER_ID: 129;4954954
SD_FORMER_ID: 128;7914748
SD_FORMER_ID: 132;174918
SD_FORMER_ID: 130;11545075
SD_ID: 1;5432589
SD_FORMER_ID: 127;4416693
SHA_PROCESS: :STAMP-PROCESSES "präg_7"
SD_V: 125;47832368:-1046.179787:-11.327119:17.700000:Abwicklung1
RC: not eq-2

Was ich jetzt bräuchte wäre der Wert hinter SHA_TOOL_ANGLE: (also in dem Fall 7.300000
Und als 2.Wert wäre dann aus:
SD_V: 125;47832368:-1046.179787:-11.327119:17.700000:Abwicklung1
Der Wert zwischen den beiden letzten ":" also in dem Fall 17.700000

Wenn da jemand mir einen Tipp geben könnte, wäre ich dankbar.

------------------
Gruß Peter

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

---

Hallo Peter,

wenn sich sonst keiner erbarmt 
Gehe mal davon aus, dass sich dein Text in einer Datei befindet.

Code:

---

DEFINE Fk_dummyleser
  LOCAL Textstr
  LOCAL Dateiname
  LOCAL Sha_tool_angle
  LOCAL Sd_v
  READ STRING 'Pfad\Dateiname eingeben bitte' DEFAULT 'C:\temp\dummy-demo.txt' Dateiname
  OPEN_INFILE 1 Dateiname
  LOOP
    READ_FILE 1 Textstr
    IF (POS Textstr 'SHA_TOOL_ANGLE:')
      Fk_spalter ':' 2 Textstr
      LET Sha_tool_angle (TRIM Gv_spalten_text)
    END_IF
    IF (POS Textstr 'SD_V:')
      Fk_spalter ':' 5 Textstr
      LET Sd_v (TRIM Gv_spalten_text)
    END_IF
  EXIT_IF (Textstr='END-OF-FILE')
  END_LOOP
  DISPLAY Sha_tool_angle
  DISPLAY Sd_v
END_DEFINE

DEFINE fk_spalter
PARAMETER Tz { Trennzeichen }
PARAMETER Nr { Spaltennummer }
PARAMETER Te { Uebergebener Text }
{ Globale Variabl Gv_spalten_text }
LOCAL Zael { Zaehler }
LOCAL Res  { Resultat }
LET Zael 1
IF ((SUBSTR Te 1 1) = Tz)
  LET Te ( SUBSTR Te 2 ((LEN Te) -1)) 
END_IF
LOOP
LET Res (SUBSTR Te 1 ((POS Te Tz) -1))
LET Te (SUBSTR Te ((POS Te Tz) +1) ((LEN Te) - (POS Te Tz)))
IF (Zael = Nr)
  LET Gv_spalten_text Res
END_IF
EXIT_IF (Zael = Nr)
LET Zael(Zael + 1)
END_LOOP
DISPLAY Gv_spalten_text { Diese Linie kannst du auch ausklammern }
END_DEFINE

---

------------------
Gruss Friedhelm

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