Schoenenberger_Systeme_GmbH/dxfmakros
3
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Fix beim laden der json files

Browse Source
This commit is contained in:
Michael Stangl
2026-05-08 13:35:33 +02:00
parent cf17e92056
commit 1deaa2e361
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/OmniModulInsert.lsp
+5 -3
View File
@@ -77,12 +77,14 @@
(if (and (> (strlen zeile) 0) (= (substr zeile 1 1) "\"")) (if (and (> (strlen zeile) 0) (= (substr zeile 1 1) "\""))
(progn (progn
;; Key extrahieren: zweites Anfuehrungszeichen finden ;; Key extrahieren: zweites Anfuehrungszeichen finden
;; vl-string-search ist 0-basiert, substr ist 1-basiert
(setq pos (vl-string-search "\"" zeile 1)) (setq pos (vl-string-search "\"" zeile 1))
(if pos (if pos
(progn (progn
(setq key (substr zeile 2 pos)) (setq key (substr zeile 2 (1- pos)))
;; Nach dem ":" den Wert extrahieren ;; Rest nach dem schliessenden " extrahieren
(setq rest (substr zeile (+ pos 3))) (setq rest (substr zeile (+ pos 2)))
;; ":" im Rest finden
(setq pos (vl-string-search ":" rest)) (setq pos (vl-string-search ":" rest))
(if pos (if pos
(progn (progn