Topic: foreach x lst to mapcar cdr lst

[jaydee]

Hi.
Please show me how to do this
Lst1 '("aa" "bb" "cc" "n")
lst2  '(("1" . "V1")("2" . "V2")("3" . "V3")("4" . "V4"))
--->
(("1" . "aa")("2" . "bb")("3" . "cc")("4" . "n"))

thankyou

[Lee Mac]

Maybe;

Code: [Select]

(mapcar '(lambda ( a b ) (cons (car a) b)) lst2 lst1)

[jaydee]

Thankyou Lee
This is perfect.
I had tried a few combinations and some are very close to yours.
One thing im keep thinking is the (cdr (assoc  of the lst2.
Your one liner give me great insight of trying to understand the code.

[Lee Mac]

You're welcome jaydee 

If you have any questions about the methods or code, just ask.

[jaydee]

Now i got another issue convert mtext paragraph string with enter return on each line

("Abc\\pefg\\pPPP")
--->
("abc" "efg" "PPP")

thanks

[Lee Mac]

Perhaps take a look at this 

[CAB]

Maybe this:

Code: [Select]

;  parser by CAB multi char delim, match "xyz"
(defun sparser (str delim / dlen ptr lst)
  (setq dlen (1+ (strlen delim)))
  (while (setq ptr (vl-string-search delim str))
    (setq lst (cons (substr str 1 ptr) lst))
    (setq str (substr str (+ ptr dlen)))
  )
  (reverse(cons str lst))
)

Code: [Select]

(sparser "Abc\\pefg\\pPPP" "\\p")
("Abc" "efg" "PPP")

[CAB]

Oh, sorry Lee I should have looked at the link. We have the same answer.

[jaydee]

Thankyou Cab and Lee
Another perfect answers.

[Lee Mac]

Oh, sorry Lee I should have looked at the link. We have the same answer.

No worries Alan, the more the merrier 

[jaydee]

Hi Lee and Cab
How to get around a string that looks like this
"
DBA\P1
AAA
BBB
CCC
"

Code: [Select]

(setq lst '("DBA\\\\P1\\PAAA\\PBBB\\PCCC"))
(sparser lst "\\P")
===>
("DBA\\" "1" "AAA" "BBB" "CCC")


Code: [Select]

(LM:str->lst lst "\\P")
===>
("DBA\\" "1" "AAA" "BBB" "CCC")
prefer result

Code: [Select]

("DBA\P1" "AAA" "BBB" "CCC")
Thankyou

[jaydee]

Refer to my previous post.
Just relise its a sticky issue.
The stripmtext3.5 could not do it.
Xpress tool text2mtext could not do it.

My way of getting around the "\P" in the string is do a find and replace \P to /P before using the program.

Thankyou

[CAB]

This is almost the correct result except the double \\ should be a single \
You would need to replace \\ with \ to finish the job.

Code: [Select]

(setq lst '("DBA\\\\P1\\PAAA\\PBBB\\PCCC"))
(sparser lst "\\P")
===>
("DBA\\" "1" "AAA" "BBB" "CCC")

[Lee Mac]

The stripmtext3.5 could not do it.
Xpress tool text2mtext could not do it.

Unformat String can do it 

Code: [Select]

_$ (LM:Unformat "DBA\\\\P1\\PAAA\\PBBB\\PCCC" nil)
"DBA\\P1 AAA BBB CCC"

[CAB]

Maybe I missed something but I thought this is correct for removing \\P
("DBA\\" "1" "AAA" "BBB" "CCC")
The first group in plain text should be DBA\