Fix beim laden der json files

2026-05-08 13:35:33 +02:00
parent cf17e92056
commit 1deaa2e361
1 changed files with 5 additions and 3 deletions
@@ -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