从虚线中提取文本

spiker7221 · 发表于 2022-7-5 23:42:14

知道了！

我有一份出口清单，里面有长度和数量的点对。。。。

((2.0 1) (3.0 1) (5.0 1) (6.0 1) (7.0 3) (12.0 4) (14.0 1) (16.0 2) (18.0 5))

如何分离/提取我需要的数字。。。

即。
3@7'长

迈克

spiker7221 · 发表于 2022-7-5 23:48:16

解决了。。。

David Bethel · 发表于 2022-7-5 23:49:08

只需提醒一下，你发布的列表不是虚线对-大卫

很高兴你发现了

spiker7221 · 发表于 2022-7-5 23:54:08

下午好，大卫，
我用你的代码片段创建了我的列表。。。。

copy

(setq raflst (if (assoc flen raflst)
   (subst (list flen (+ 1 (cadr (assoc flen raflst))))
            (assoc flen raflst) raflst)
            (cons (list flen 1) raflst))
);end setq

我想知道为什么列表中有一组额外的参数。。。。那么，我如何获得这些数字呢？

迈克

Snownut · 发表于 2022-7-5 23:55:15

copy


(setq lgth 7.0
       lmbrlst (list '(2.0 1) '(3.0 1) '(5.0 1) '(6.0 1) '(7.0 3) '(12.0 4) '(14.0 1) '(16.0 2) '(18.0 5))
       textstr (strcat (itoa(cadr(assoc lgth lmbrlst))) " @ " (rtos lgth 2 1)"' long")
)

David Bethel · 发表于 2022-7-5 23:58:28

这可能是由于它是多路（setq）调用的一部分

copy


[b][color=BLACK]([/color][/b]setq raflst
 [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]assoc flen raflst[b][color=NAVY])[/color][/b]
     [b][color=NAVY]([/color][/b]subst [b][color=MAROON]([/color][/b]list flen [b][color=GREEN]([/color][/b]+ 1 [b][color=BLUE]([/color][/b]cadr [b][color=RED]([/color][/b]assoc flen raflst[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]assoc flen raflst[b][color=MAROON])[/color][/b] raflst[b][color=NAVY])[/color][/b]
     [b][color=NAVY]([/color][/b]cons [b][color=MAROON]([/color][/b]list flen 1[b][color=MAROON])[/color][/b] raflst[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

-大卫

BIGAL · 发表于 2022-7-6 00:03:23

你解决这部分问题了吗？

spiker7221 · 发表于 2022-7-6 00:06:56

嘿BigAl，

不，还没有。显然，我的虚线不是一个列表。

copy

((2.0 1) (3.0 1) (5.0 1) (6.0 1) (7.0 3) (12.0 4) (14.0 1) (16.0 2) (18.0 5))

那么，我该如何把上面的清单列出来呢？

迈克

BIGAL · 发表于 2022-7-6 00:10:25

我会尽快给你寄些东西，基本上我在工作的地方做了这件事

copy

(setq len (length exportlist))
(setq x 0
y 0)
(repeat len
(setq newlst (Nth Y exportlist)) ; get 1st pair of big list
(setq var1 (nth x newlst)) ;  to get 1st value
(setq var2 (nth (+ x 1) newlst );  to get 2nd value 
; do something here with var1 var2
(setq x 0)
(setq y (+ y 1))
) ;continue repeat

Snownut · 发表于 2022-7-6 00:13:42

斯派克，

你试过我在VLIDE上面列出的代码吗。。。

它在lgth=木材长度后准确返回您的状态

[编程交流] 从虚线中提取文本

发表回复

精选推荐