From: pjb@informatimago.com (Pascal J. Bourguignon)
To: help-gnu-emacs@gnu.org
Subject: Re: printing columns into a file
Date: Mon, 28 Dec 2009 12:49:05 +0100 [thread overview]
Message-ID: <871vif1fpq.fsf@hubble.informatimago.com> (raw)
In-Reply-To: 3e9fd39f-2c27-49a5-9f33-51020c58cba2@u7g2000yqm.googlegroups.com
Jin <kyeunjin@gmail.com> writes:
> Hi,
>
> I will really appreciate any help on this!
>
> I have a file looking like the following
>
> date month year
>
> 12 5 1982
> 30 6 1982
> 3 1982
> 28 1877
> 30 2 1888
>
> As you can see, my file has blanks in a column, but I like to keep it
> that way.
> When I tried to use awk to print each column into a separate file
> (date.txt, month.txt, and year.txt),
> it doesn't retain the blank information on emacs but moves the value
> below upward to cover the blank. So, it'd be like
>
> date.txt
> 12
> 30
> 28
> 30
>
> month.txt
> 5
> 6
> 3
> 2
>
> How can I keep the blank as it is in the original fiile?
So this is an awk question? man awk
Otherwise you could do it in emacs:
(require 'cl)
(defmacro* dolines (start-end &body body)
"Executes the body with start-var and end-var bound to the start and the end of each lines of the current buffer in turn."
(let ((vline (gensym)))
(destructuring-bind (start-var end-var) start-end
`(let ((sm (make-marker))
(em (make-marker)))
(unwind-protect
(progn
(goto-char (point-min))
(while (< (point) (point-max))
(let ((,vline (point)))
(set-marker sm (point))
(set-marker em (progn (end-of-line) (point)))
(let ((,start-var (marker-position sm))
(,end-var (marker-position em)))
,@body)
(goto-char ,vline)
(forward-line 1))))
(set-marker sm nil)
(set-marker em nil))
nil))))
(dolines (start end)
(goto-char start)
(when (re-search-forward "^\\( *?[0-9]*\\)\\( *?[0-9]*\\)\\( *[0-9]*\\)$" end t)
(let ((day (match-string 1))
(month (match-string 2))
(year (match-string 3)))
(with-current-buffer (get-buffer-create "day.txt")
(insert day "\n"))
(with-current-buffer (get-buffer-create "month.txt")
(insert month "\n"))
(with-current-buffer (get-buffer-create "year.txt")
(insert year "\n")))))
--
__Pascal Bourguignon__ http://www.informatimago.com/
next prev parent reply other threads:[~2009-12-28 11:49 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-12-28 2:45 printing columns into a file Jin
2009-12-28 11:49 ` Pascal J. Bourguignon [this message]
2009-12-30 9:39 ` Arnaldo Mandel
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=871vif1fpq.fsf@hubble.informatimago.com \
--to=pjb@informatimago.com \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.