From 1deaa2e36101321bed3ca84bc32bd262ced05c60 Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Fri, 8 May 2026 13:35:33 +0200 Subject: [PATCH] Fix beim laden der json files --- Lisp/OmniModulInsert.lsp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Lisp/OmniModulInsert.lsp b/Lisp/OmniModulInsert.lsp index 8378d99..f4d09f8 100644 --- a/Lisp/OmniModulInsert.lsp +++ b/Lisp/OmniModulInsert.lsp @@ -77,12 +77,14 @@ (if (and (> (strlen zeile) 0) (= (substr zeile 1 1) "\"")) (progn ;; Key extrahieren: zweites Anfuehrungszeichen finden + ;; vl-string-search ist 0-basiert, substr ist 1-basiert (setq pos (vl-string-search "\"" zeile 1)) (if pos (progn - (setq key (substr zeile 2 pos)) - ;; Nach dem ":" den Wert extrahieren - (setq rest (substr zeile (+ pos 3))) + (setq key (substr zeile 2 (1- pos))) + ;; Rest nach dem schliessenden " extrahieren + (setq rest (substr zeile (+ pos 2))) + ;; ":" im Rest finden (setq pos (vl-string-search ":" rest)) (if pos (progn