Group at several places in string

Group at several places in string

[Johan Andersson]

[-- Attachment #1: Type: text/plain, Size: 636 bytes --]

Hi!

I have string that contains smaller chunks of text, which  are wrapped
within double quotes. Example:*
Lorem ipsum dolor sit amet, "consectetur" adipiscing elit. Donec "suscipit
justo" sit amet sem bibendum "sit amet" porttitor mi pretium.

*I'm looking for a way to add all the chunks in double quotes in a list. So
in this case:
*'("consectetur" "suscipit justo" "sit amet")*

I have created such a function with help of some while loops and whatever
else. But I thought that it could be done with some regex like this *
"\"\\([^\"]+\\)\""* and then fetch the groupings. But it does not work.

How would you solve this?

Thanks!

[-- Attachment #2: Type: text/html, Size: 788 bytes --]

Re: Group at several places in string

[Pascal J. Bourguignon]

Johan Andersson <johan.rejeep@gmail.com> writes:
> I have string that contains smaller chunks of text, which  are wrapped within double quotes. Example:
> Lorem ipsum dolor sit amet, "consectetur" adipiscing elit. Donec "suscipit justo" sit amet sem bibendum "sit amet" porttitor mi
> pretium.
>
> I'm looking for a way to add all the chunks in double quotes in a list. So in this case:
> '("consectetur" "suscipit justo" "sit amet")
>
> I have created such a function with help of some while loops and whatever else. But I thought that it could be done with some regex
> like this "\"\\([^\"]+\\)\"" and then fetch the groupings. But it does not work.
>
> How would you solve this?

Here is a simple solution:

(defun parts-in-double-quotes (input)
  (loop for sub on (cdr (split-string input "\"")) by (function cddr) collect (car sub)))

(parts-in-double-quotes "Lorem ipsum dolor sit amet, \"consectetur\" adipiscing elit. Donec \"suscipit justo\" sit amet sem bibendum \"sit amet\" porttitor mi pretium.")
--> ("consectetur" "suscipit justo" "sit amet")


-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

Re: Group at several places in string

[Johan Andersson]

[-- Attachment #1: Type: text/plain, Size: 1400 bytes --]

Pascal,

Really cool solution! I have never seen something like it.

Thanks a lot. Tons better than my solution!

On Wed, Jan 13, 2010 at 12:13 AM, Pascal J. Bourguignon <
pjb@informatimago.com> wrote:

> Johan Andersson <johan.rejeep@gmail.com> writes:
> > I have string that contains smaller chunks of text, which  are wrapped
> within double quotes. Example:
> > Lorem ipsum dolor sit amet, "consectetur" adipiscing elit. Donec
> "suscipit justo" sit amet sem bibendum "sit amet" porttitor mi
> > pretium.
> >
> > I'm looking for a way to add all the chunks in double quotes in a list.
> So in this case:
> > '("consectetur" "suscipit justo" "sit amet")
> >
> > I have created such a function with help of some while loops and whatever
> else. But I thought that it could be done with some regex
> > like this "\"\\([^\"]+\\)\"" and then fetch the groupings. But it does
> not work.
> >
> > How would you solve this?
>
> Here is a simple solution:
>
> (defun parts-in-double-quotes (input)
>  (loop for sub on (cdr (split-string input "\"")) by (function cddr)
> collect (car sub)))
>
> (parts-in-double-quotes "Lorem ipsum dolor sit amet, \"consectetur\"
> adipiscing elit. Donec \"suscipit justo\" sit amet sem bibendum \"sit amet\"
> porttitor mi pretium.")
> --> ("consectetur" "suscipit justo" "sit amet")
>
>
> --
> __Pascal Bourguignon__                     http://www.informatimago.com/
>

[-- Attachment #2: Type: text/html, Size: 2131 bytes --]