a function for string splitting

a function for string splitting

[Luis O. Silva]

Dear Emacs community,

I'm writing a function for translating dates in the form of a
string into Spanish and Russian. For example, you have:

"Thu, 21 Nov 2002 16:05:50 -0600 (CST)"

Within my function I used a `let' expression of the form:

(let ((day (substring "Thu, 21 Nov 2002 16:05:50 -0600 (CST)" 0 3))
       (month (substring "Thu, 21 Nov 2002 16:05:50 -0600 (CST)" 8 11)))
       ...)

All works fine provided that there isn't any date with
one-digit day, i. e., "Fri, 8 Nov 2002 11:56:37 -0500 (CST)"

My question is what function I could use for correctly
splitting the string.

Please be indulgent with me since

1. I'm not a programmer
2. I don't have access to the elisp manual even on-line (my
connection is very slow, only sufficient to download my
e-mail).

Thank you very much in advance
luis



-- 
Luis Octavio Silva P.
St. Petersburg State University.
66/3 Botanicheskaya St., Apt.119/2
Stary Peterhof
St. Petersburg, Russia.

Re: a function for string splitting

[Greg Hill]

At 5:16 PM +0300 11/26/02, Luis O. Silva wrote:
>Dear Emacs community,
>
>I'm writing a function for translating dates in the form of a
>string into Spanish and Russian. For example, you have:
>
>"Thu, 21 Nov 2002 16:05:50 -0600 (CST)"
>
>Within my function I used a `let' expression of the form:
>
>(let ((day (substring "Thu, 21 Nov 2002 16:05:50 -0600 (CST)" 0 3))
>        (month (substring "Thu, 21 Nov 2002 16:05:50 -0600 (CST)" 8 11)))
>        ...)
>
>All works fine provided that there isn't any date with
>one-digit day, i. e., "Fri, 8 Nov 2002 11:56:37 -0500 (CST)"
>
>My question is what function I could use for correctly
>splitting the string.

Luis,

Give something like this a try:

(let*
  ((split-date (split-string "Thu, 21 Nov 2002 16:05:50 -0600 (CST)" " "))
  ((day-of-week (elt split-date 0))
  ((day-of-month (elt split-date 1))
  ((month (elt split-date 2))
  ...)

Be sure to use let* instead of let, since let does not guarentee the 
order of evaluation, and you always want split-date to be evaluated 
first.

--Greg

Re: a function for string splitting

[Lee Sau Dan]

>>>>> "Luis" == Luis O Silva <silva@paloma.spbu.ru> writes:

    Luis> Dear Emacs community, I'm writing a function for translating
    Luis> dates in the form of a string into Spanish and Russian. For
    Luis> example, you have:

    Luis> "Thu, 21 Nov 2002 16:05:50 -0600 (CST)"

    Luis> Within my function I used a `let' expression of the form:

    Luis> (let ((day (substring "Thu, 21 Nov 2002 16:05:50 -0600
    Luis> (CST)" 0 3)) (month (substring "Thu, 21 Nov 2002 16:05:50
    Luis> -0600 (CST)" 8 11))) ...)

    Luis> All works fine provided that there isn't any date with
    Luis> one-digit day, i. e., "Fri, 8 Nov 2002 11:56:37 -0500 (CST)"

    Luis> My question is what function I could use for correctly
    Luis> splitting the string.

    Luis> Please be indulgent with me since

    Luis> 1. I'm not a programmer 2. I don't have access to the elisp
    Luis> manual even on-line (my connection is very slow, only
    Luis> sufficient to download my e-mail).

Consider learning "regular expressions",  which are not only useful in
Emacs,  but also useful  throughout the  unix environment  (e.g. grep,
sed, awk, vi, ...).

Try:

(let ((date-string "Thu, 21 Nov 2002 16:05:50 -0600")
      (regex-fragment-1 "\\([A-Z][a-z]*\\), ")
      (regex-fragment-2 "\\([0-9]+\\) \\([A-Z][a-z]*\\) \\([0-9]+\\) ")
      (regex-fragment-3 "\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) ")
      (regex-fragment-4 "\\([+-][0-9]*\\)" ))
  (if (string-match (concat regex-fragment-1
			    regex-fragment-2
			    regex-fragment-3
			    regex-fragment-4)
		    date-string)
    (let ((day-of-week (match-string 1 date-string))
	  (day (match-string 2 date-string))
	  (month-name (match-string 3 date-string))
	  (year (match-string 4 date-string))
	  (hour (match-string 5 date-string))
	  (minute (match-string 6 date-string))
	  (second (match-string 7 date-string))
	  (tz-spec (match-string 8 date-string)))

    (list day month-name year hour minute second tz-spec))))



Note that I've broken up the  regex into 4 fragments to make it usenet
friendly,  rejoining  them with  (concat  ...).   This  is not  really
necessary.


-- 
Lee Sau Dan                     李守敦(Big5)                    ~{@nJX6X~}(HZ) 

E-mail: danlee@informatik.uni-freiburg.de
Home page: http://www.informatik.uni-freiburg.de/~danlee

Re: a function for string splitting

[Luis O. Silva]

Dear Lee,

On 26 Nov 2002 15:49:00 +0100, Lee Sau Dan writes:

   Luis> My question is what function I could use for
   Luis> correctly splitting the string.

   Luis> Please be indulgent with me since

   Luis> 1. I'm not a programmer 2. I don't have access to the
   Luis> elisp manual even on-line (my connection is very
   Luis> slow, only sufficient to download my e-mail).

   Lee> Consider learning "regular expressions", which are not
   Lee> only useful in Emacs, but also useful throughout the
   Lee> unix environment (e.g. grep, sed, awk, vi, ...).

   Lee> Try:

   Lee> (let ((date-string "Thu, 21 Nov 2002 16:05:50 -0600")
   Lee>       (regex-fragment-1 "\\([A-Z][a-z]*\\), ")
   Lee>       (regex-fragment-2 "\\([0-9]+\\)\\([A-Z][a-z]*\\)\\([0-9]+\\) ")
   Lee>       (regex-fragment-3 "\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) ")
   Lee>       (regex-fragment-4 "\\([+-][0-9]*\\)" ))
   Lee>   (if (string-match (concat regex-fragment-1
   Lee>                             regex-fragment-2
   Lee>                             regex-fragment-3
   Lee>                             regex-fragment-4)
   Lee>                     date-string)
   Lee>     (let ((day-of-week (match-string 1 date-string))
   Lee>           (day (match-string 2 date-string))
   Lee>           (month-name (match-string 3 date-string))
   Lee>           (year (match-string 4 date-string))
   Lee>           (hour (match-string 5 date-string))
   Lee>           (minute (match-string 6 date-string))
   Lee>           (second (match-string 7 date-string))
   Lee>           (tz-spec (match-string 8 date-string)))

   Lee>     (list day month-name year hour minute second tz-spec))))

Thank you very much. This is just what I needed. I have an
incipient notion of regular expressions and I had used them to
do search in buffers. I didn't know of the existence of the
function `string-match'.

   Lee> Note that I've broken up the regex into 4 fragments to
   Lee> make it usenet friendly, rejoining them with (concat
   Lee> ...).  This is not really necessary.

Yes, it is not necessary but this nicety will also be useful
for me. Thanks a lot.

Regards,
luis

-- 
Luis Octavio Silva P.
St. Petersburg State University.
66/3 Botanicheskaya St., Apt.119/2
Stary Peterhof
St. Petersburg, Russia.

Re: a function for string splitting

[Daniel Jensen]

"Luis O. Silva" <silva@paloma.spbu.ru> writes:

> I'm writing a function for translating dates in the form of a
> string into Spanish and Russian. For example, you have:
>
> "Thu, 21 Nov 2002 16:05:50 -0600 (CST)"

You might want to use format-time-string instead. To get the above
date form but with localized month and day names, you would use:

(format-time-string "%a, %e %b %Y %H:%M:%S %z (%Z)")

> Within my function I used a `let' expression of the form:
>
> (let ((day (substring "Thu, 21 Nov 2002 16:05:50 -0600 (CST)" 0 3))
>        (month (substring "Thu, 21 Nov 2002 16:05:50 -0600 (CST)" 8 11)))
>        ...)
>
> All works fine provided that there isn't any date with
> one-digit day, i. e., "Fri, 8 Nov 2002 11:56:37 -0500 (CST)"
>
> My question is what function I could use for correctly
> splitting the string.

There is actually a split-string function.

-- 
Daniel Jensen
> (format (concat "mailto:" "%s@%s.%s") "daniel" "bigwalter" "net")

Re: a function for string splitting

[Luis O. Silva]

Dear Daniel,

On Tue, 26 Nov 2002 16:56:36 +0100, Daniel Jensen writes:

   Daniel> "Luis O. Silva" <silva@paloma.spbu.ru> writes:
   >> I'm writing a function for translating dates in the form
   >> of a string into Spanish and Russian. For example, you
   >> have:
   >> "Thu, 21 Nov 2002 16:05:50 -0600 (CST)"

   Daniel> You might want to use format-time-string
   Daniel> instead. To get the above date form but with
   Daniel> localized month and day names, you would use:

   Daniel> (format-time-string "%a, %e %b %Y %H:%M:%S %z
   Daniel> (%Z)")

Thank you for your suggestion, the problem here is that my
starting point is a string. Lee suggested what I needed.

Thank you.
luis

-- 
Luis Octavio Silva P.
St. Petersburg State University.
66/3 Botanicheskaya St., Apt.119/2
Stary Peterhof
St. Petersburg, Russia.

Re: a function for string splitting

[Kai Großjohann]

"Luis O. Silva" <silva@paloma.spbu.ru> writes:

> Thank you for your suggestion, the problem here is that my
> starting point is a string. Lee suggested what I needed.

parse-time-string appears to be useful for in that case.  Using
parse-time-string, you convert the date into an internal
representation, then using format-time-string, you convert it back
into the external representation.

-- 
~/.signature is: umop ap!sdn    (Frank Nobis)

Re: a function for string splitting

[Luis O. Silva]

Hello Kai,

On Thu, 28 Nov 2002 15:14:48 +0100, Kai Großjohann writes:

   Kai> "Luis O. Silva" <silva@paloma.spbu.ru> writes:
   >> Thank you for your suggestion, the problem here is that
   >> my starting point is a string. Lee suggested what I
   >> needed.

   Kai> parse-time-string appears to be useful for in that
   Kai> case.  Using parse-time-string, you convert the date
   Kai> into an internal representation, then using
   Kai> format-time-string, you convert it back into the
   Kai> external representation.

I didn't find the function `parse-time-string' in my Emacs
system (21.1.1). It seems that I need an upgrade.

Thanks,
luis



-- 
Luis Octavio Silva P.
St. Petersburg State University.
66/3 Botanicheskaya St., Apt.119/2
Stary Peterhof
St. Petersburg, Russia.

Re: a function for string splitting

[Benjamin Lewis]

On Thu, 28 Nov 2002, Luis O. Silva wrote:

> I didn't find the function `parse-time-string' in my Emacs system
> (21.1.1). It seems that I need an upgrade.

How did you look for it?  Note that it not an interactive function.  Did
you try doing a C-h f parse-time-string <RET> ?

-- 
Benjamin Lewis

Clothes make the man.  Naked people have little or no influence on society.
- Mark Twain

Re: a function for string splitting

[Kai Großjohann]

"Luis O. Silva" <silva@paloma.spbu.ru> writes:

> I didn't find the function `parse-time-string' in my Emacs
> system (21.1.1). It seems that I need an upgrade.

Maybe it is sufficient to say M-: (require 'parse-time) RET.
Then parse-time-string should be defined.

-- 
~/.signature is: umop ap!sdn    (Frank Nobis)

Re: a function for string splitting

[Luis O. Silva]

On Thu, 28 Nov 2002 19:50:05 +0100, Kai Großjohann writes:

   Kai> Maybe it is sufficient to say M-: (require
   Kai> 'parse-time) RET.  Then parse-time-string should be
   Kai> defined.

Yes, Thank you. I had searched with `C-h f' without
success. After loading parse-time I found the
function. `parse-time-string' works greatly.

Thank you again,
luis


-- 
Luis Octavio Silva P.
St. Petersburg State University.
66/3 Botanicheskaya St., Apt.119/2
Stary Peterhof
St. Petersburg, Russia.

Re: a function for string splitting

[Greg Hill]

Luis,
Oops, too many "(".  Make that:

(let*
  (split-date (split-string "Thu, 21 Nov 2002 16:05:50 -0600 (CST)" " "))
  (day-of-week (elt split-date 0))
  (day-of-month (elt split-date 1))
  (month (elt split-date 2))
  ...)

--Greg

Re: a function for string splitting

[Luis O. Silva]

Dear Greg,

On Tue, 26 Nov 2002 12:14:49 -0800, Greg Hill writes:

 Greg> Luis, Oops, too many "(".  Make that:

 Greg> (let*
 Greg>  (split-date (split-string "Thu, 21 Nov 2002 16:05:50 -0600 (CST)" " "))
 Greg>  (day-of-week (elt split-date 0))
 Greg>  (day-of-month (elt split-date 1))
 Greg>  (month (elt split-date 2)) ...)

This is a very very interesting alternative suggestion to the
`string-match', `match-string' pair suggested before. Neat!

Thank you very much.

luis



-- 
Luis Octavio Silva P.
St. Petersburg State University.
66/3 Botanicheskaya St., Apt.119/2
Stary Peterhof
St. Petersburg, Russia.