帮我看看这段。老是SUBST不了。快疯了.....[求助]

matichen · 发表于 2002-8-31 21:17:00

想用subst更新表，怎也不行。搞了半天了，快疯了...help....

  (setq finalindex 0
enddata '()
)
  (repeat fflength
(setq cdata (assoc finalindex ff_data))
(if (= (nth 3 cdata) t)
   (progn
   (setq 1stx(nth 1 cdata))
   (setq 2stx(nth 2 cdata))
   (setq new2s (atof 2stx))
   (setq 1_index (+ finalindex 1))
   (repeat (- (- fflength 1) finalindex) ;;; repeat 1
(setq ccdata(assoc 1_index ff_data))
(if (= (nth 1 ccdata) 1stx)
   (progn
      (setq new2s(+ new2s (atof (nth 2 ccdata))))
         (subst (list 0 0 0 nil) (assoc 1_index ff_data) ff_data)  ;;;关键想把第4项由T－－>nil
   ) ;;; end pro
) ;;; end if
(setq 1_index (+ 1_index 1))
   )    ;;; end repeat 1
   (subst (rtos new2s 2 2) 2stx cdata)
   (setq enddata(cons cdata enddata))
   ) ;;; end pro
) ;;; end if
(setq finalindex(+ finalindex 1))
  ) ;;; end repeat

陈伯雄 · 发表于 2002-9-1 08:24:00

ll_j · 发表于 2002-9-1 15:58:00

matichen · 发表于 2002-9-1 22:45:00

有几十行文字。每行由“text"生成。
C2 10000
C21 20000
C23 50000
GIC1 30000
GIC21 90000
GIC18 40000
....

要想程序结束时得到：
C2 80000
GIC1 70000
GIC2 90000
....

不知这样有没有说清楚。请大家指点一下。

陈伯雄 · 发表于 2002-9-2 08:24:00

秋枫 · 发表于 2002-9-2 08:56:00

(subst (list 0 0 0 nil) (assoc 1_index ff_data) ff_data)
改成这样：
(setq ff_data (subst (list 0 0 0 nil) (assoc 1_index ff_data) ff_data))

matichen · 发表于 2002-9-2 09:10:00

比较每行" "左边的字符串从第一个到第n个（n是第一个数字）如果相等。如c2 和 c21 前两位等。 GIC1 和 GIC18 前4位等。那么就将其中一行的“ ”之后的数字加到另一行中。最后得到合并完后的文字。

liujing · 发表于 2002-9-2 09:17:00

从你的说明中看，好像是：
C2=C2+C21+C23+。。。
GIC1=GIC1+GIC18+。。。
我觉得你这样设计不太好，是否可以讨论一下你的上一步的条件和你的程序设计？

matichen · 发表于 2002-9-2 13:23:00

matichen · 发表于 2002-9-2 13:24:00

账号		自动登录	找回密码
密码			注册

帮我看看这段。老是SUBST不了。快疯了.....[求助]

还是说说原始条件和最终要求吧...

subst替换的表应该赋予一个变量，就是(setq list (subst new old list))。

是这样的...

不明白。最终要求的规则是什么？

改成这样试试

是......

你是想求和吧？

ok thanks i'm too 浮力西。

thanks