Jak przekonwertować tabelę trybu org na oryginalny format z zakładkami?

Question

Konwertuję region na tabelę za pomocą C-c |.

Czy istnieje sposób, aby odwrócić proces, powiedz po konwersji do edycji i wrócić do oryginalnego formatu (czy wartości rozdzielane tabulatorami)?

Wiem, że mogę to zrobić przez org-table-export, ale to zbyt uciążliwe.

Answer 1

1. Zaznacz region.
2. Łańcuch zastępczy M-x
3. |
4. C-q TAB RET

Jeśli chcesz je dostosować, należy replace-regex.

Answer 2

Wypróbuj orgtbl-to-tsv dla wartości rozdzielanych tabulatorami.

Istnieje również orgtbl-to-csv dla wartości rozdzielanych przecinkami.

Na przykład

* Some heading 

    #+name: foo 
    | a | b | c | 
    |---+---+---| 
    | 1 | 2 | 3 | 
    | 4 | 5 | 6 | 

    #+BEGIN_SRC elisp :var x=foo 
    (orgtbl-to-csv x nil) 
    #+END_SRC 

    #+RESULTS: 
    : 1,2,3 
    : 4,5,6 

Answer 3

Oto etapy korzystania eksportu tabeli jako wartości zakładki lub oddzielony przecinkami:

1. pomocą polecenia org stołem-eksport. M-x org-table-export
2. Wprowadź nazwę pliku do zapisu (lub naciśnij klawisz Enter dla tego samego pliku).
3. Wybierz format (tutaj możesz ustawić orgtbl-to-tsv lub dowolny inny format).

Są to jedne z formatów, które mogą być stosowane:

• orgtbl do CSV
• orgtbl-do-generic
• orgtbl do html
• orgtbl-do -latex
• orgtbl do orgtbl
• orgtbl do Texinfo
• orgtbl do TSV

Answer 4

Musiałem to też i po prostu pisał na podstawie org-table-eksport:

(defun org-table-transform-in-place() 
    "Just like `ORG-TABLE-EXPORT', but instead of exporting to a 
    file, replace table with data formatted according to user's 
    choice, where the format choices are the same as 
    org-table-export." 
    (interactive) 
    (unless (org-at-table-p) (user-error "No table at point")) 
    (org-table-align) 
    (let* ((format 
     (completing-read "Transform table function: " 
       '("orgtbl-to-tsv" "orgtbl-to-csv" "orgtbl-to-latex" 
       "orgtbl-to-html" "orgtbl-to-generic" 
       "orgtbl-to-texinfo" "orgtbl-to-orgtbl" 
       "orgtbl-to-unicode"))) 
    (curr-point (point))) 
    (if (string-match "\\([^ \t\r\n]+\\)\\(+.*\\)?" format) 
    (let ((transform (intern (match-string 1 format))) 
      (params (and (match-end 2) 
       (read (concat "(" (match-string 2 format) ")")))) 
      (table (org-table-to-lisp 
       (buffer-substring-no-properties 
       (org-table-begin) (org-table-end))))) 
     (unless (fboundp transform) 
     (user-error "No such transformation function %s" transform)) 
     (save-restriction 
     (with-output-to-string 
      (delete-region (org-table-begin) (org-table-end)) 
      (insert (funcall transform table params) "\n"))) 
     (goto-char curr-point) 
     (beginning-of-line) 
     (message "Tranformation done.")) 
     (user-error "Table export format invalid")))) 

(define-key org-mode-map (kbd "\C-x |") 'org-table-transform-in-place) 

Byłoby wspaniale, gdyby ten został dodany do org-tryb prawidłowego jak myślę, wielu by to wykorzystało.