Emacs: nhập CSV vào chế độ org

Question

Emacs có phần mở rộng rất đẹp bằng tên của chế độ org.

Tôi muốn có thể dễ dàng tải các tệp CSV vào chế độ tổ chức mà không gây đau buồn đáng kể. Tất cả những gì tôi có thể tìm thấy là nhập bảng hoặc chụp bảng, mà chỉ cần đặt, không hoạt động tốt.

Lưu ý rằng một phần vấn đề của tôi là chuỗi văn bản có dấu phẩy bên trong chúng. 1,2,3,4 khác với 1,2, "3,4".

Có một chức năng ngoài đó hoặc tập lệnh perl mà người ta có thể chạy để chuyển đổi tệp csv thành định dạng chế độ org không?

Cảm ơn!

Answer 1

Tôi giả sử bạn muốn chuyển đổi CSV của mình thành chế độ org bảng. Nếu đó không phải là trường hợp, bạn có thể muốn rõ ràng hơn về định dạng đầu ra trong câu hỏi của bạn.

Something như thế này nên làm điều đó, hoặc ít nhất giúp bạn có được một điểm khởi đầu bạn có thể hack vào lúc:

#!/usr/bin/perl 

    use strict; 
    use warnings; 

    use Text::CSV; 

    my $csv = Text::CSV->new(); 

    while (my $line = <DATA>) { 
    if ($csv->parse($line)) { 
     my $str = join '|' , $csv->fields(); 
     print "|$str|\n"; 
    } 
    } 


    __DATA__ 
    1,2,3,4 
    1,2,"3,4" 

Answer 2

Từ hướng dẫn org-mode:

C-c | Chuyển vùng hoạt động sang bảng. Nếu mỗi dòng chứa ít nhất một ký tự TAB, hàm giả định rằng tài liệu là tab cách nhau . Nếu mỗi dòng chứa một dấu phẩy , các giá trị được phân cách bằng dấu phẩy (CSV) được giả định. Nếu không, các dòng được phân tách tại khoảng trắng vào các trường. Bạn có thể sử dụng một đối số tiền tố để buộc một cụ separator: lực lượng C-u CSV, C-u C-u lực lượng TAB, và một cuộc tranh luận số N chỉ ra rằng ít nhất N liên tiếp không gian, hoặc cách khác một TAB sẽ tách. Nếu không có vùng hoạt động , lệnh này sẽ tạo một bảng rỗng .

Vì vậy, chỉ cần dán dữ liệu vào tệp tổ chức, chọn dữ liệu đó và thực hiện C-u C-c |.

Answer 3

Hãy thử điều này:

;; Insert a file and convert it to an org table 
(defun aleblanc/insert-file-as-org-table (filename) 
    "Insert a file into the current buffer at point, and convert it to an org table." 
    (interactive (list (ido-read-file-name "csv file: "))) 
    (let* ((start (point)) 
    (end (+ start (nth 1 (insert-file-contents filename))))) 
    (org-table-convert-region start end) 
    )) 

Answer 4

Đây là một chút của một hack-công việc, nhưng nó hoạt động.

khi bạn xuất tệp CSV, buộc báo giá xung quanh mỗi mục nhập, sau đó thay thế tất cả "," làm thanh dọc.

Cuối cùng, tôi thực hiện một macro mà làm điều gì đó như thế này:

C-a ; Beginning-of-line 
|  ; Self-insert-char 
C-e ; end-of-line 
|  ; Self-insert-char 
<down> ; Down one line 

(Tôi không chắc chắn 100% nếu | là một self-insert-char hay không, vì vậy hết sức mình để ghi vĩ mô của riêng bạn)

Tab truy cập ở đâu đó ở giữa bảng và chế độ org định dạng đúng cách. Tôi thấy việc này dễ dàng hơn trong một khu vực bị thu hẹp.

Lưu ý: Nếu bạn có thanh dọc trong đầu vào của mình .. có thể nó sẽ không hoạt động hoàn toàn đúng.Các tình huống như vậy sẽ dễ dàng phát hiện và dễ sửa chữa.

Nói chung, khi nhập khẩu một cái gì đó giống như văn bản vào org-mode, tôi đã tìm thấy một sự kết hợp của một số văn bản vĩ mô thông minh, và tìm kiếm thay thế là cách dễ nhất

Tôi hy vọng rằng sẽ giúp.

Answer 5

Có một cái nhìn tại địa chỉ:

C-h f org-table-convert-region

Tôi luôn chuyển đổi csv vì vậy tôi thêm này để emacs của tôi.

(defun org-convert-csv-table (beg end) 
    (interactive (list (mark) (point))) 
    (org-table-convert-region beg end ",") 
) 

(add-hook 'org-mode-hook 
     (lambda() 
    (define-key org-mode-map (kbd "<f6>") 'org-convert-csv-table))) 

cập nhật

Dưới đây là một chức năng mà xem xét dấu phẩy trích dẫn cũng như:

a,"12,12",b --> a | 12,12 |b 

cảm thấy tự do để cải thiện nó :-).

(defun org-convert-csv-table (beg end) 
    ; convert csv to org-table considering "12,12" 
    (interactive (list (point) (mark))) 
    (replace-regexp "\\(^\\)\\|\\(\".*?\"\\)\\|," (quote (replace-eval-replacement 
          replace-quote (cond ((equal "^" (match-string 1)) "|") 
                ((equal "," (match-string 0)) "|") 
                ((match-string 2))))) nil beg end)