将CSV转换为组织模式

Question

我尝试使用John Kitchin提供的代码 https：//stackoverflow.com/a/a/27240183/11376268 转换我的CSV文件到组织模式，但我会收到以下错误消息：

Debugger entered--Lisp error: (void-function loop)
  (loop for line in (cdr lines) do (setq values (split-string line ",")) (loop for property in properties for value in values do (org-entry-put (point) property value)))
  (let ((lines (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents "data.csv") (split-string (buffer-string) "\n")) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (properties) (values)) (setq properties (split-string (car lines) ",")) (loop for line in (cdr lines) do (setq values (split-string line ",")) (loop for property in properties for value in values do (org-entry-put (point) property value))))
  (progn (let ((lines (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents "data.csv") (split-string (buffer-string) "\n")) (and (buffer-name temp-buffer) ...))))) (properties) (values)) (setq properties (split-string (car lines) ",")) (loop for line in (cdr lines) do (setq values (split-string line ",")) (loop for property in properties for value in values do (org-entry-put (point) property value)))))
  elisp--eval-last-sexp(nil)
  eval-last-sexp(nil)
  funcall-interactively(eval-last-sexp nil)
  command-execute(eval-last-sexp)

我使用GNU EMACS 28.1（构建2，X86_64-W64-MINGW32）。

我做错了什么？

data.csv看起来像这样：

Name,Tel,Mobile,Fax
John,11111,22222,33333

我使用的代码：

(let ((lines (with-temp-buffer
               (insert-file-contents "data.csv")
               (split-string (buffer-string) "\n")))
      (properties)
      (values))

  (setq properties (split-string (car lines) ","))

  (loop for line in (cdr lines)
        do
        (setq values (split-string line ","))
        (loop for property in properties
              for value in values
              do
              (org-entry-put (point) property value))))

Answer 1

按原样插入普通的CSV文件，在缓冲区中标记该区域，并致电MX org-table-convert-region ret。