[求助]：高手们帮我看看问题出在哪!

laoxie_1983 · 发表于 2006-2-15 08:34:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我写的一个lisp目的是要把k31文件字段中包含"汇总"和"总计"的数据写到k5文件中
下面是我的lisp和k31文件

(defun c:k31()
  (setq k31 "d:\\hbxx\\kcdj\\k31.txt")
  (setq k5 "d:\\hbxx\\kcdj\\k5.txt")
  (setq fp31 (open k31 "r"))
  (setq fp5 (open k5 "w"))
  (setq lr (read-line fp31))
  (while (/= lr nil)
(setq lr (read-line fp31))
(setq dll (vl-string-search "组" lr))
(setq tll (+ dll 4))
(setq thz (substr lr tll 4));提汇总
(setq zj (substr lr 1 4))
(if (= thz "汇总")
   (progn
   (princ lr fp5)
   (princ "\n" fp5)
   )
   (if (= zj "总计") (princ lr fp5))
)
)
  (close fp31)
  (close fp5)
  (princ)
  )

k31文件内容如下:

被征地单位灌溉水田旱地园地林地工矿用地居民地坑塘水面河流水面未利用地合计
后巷村42组 3281.6 3281.6
后巷村42组 11271 11271
后巷村42组汇总 11271 3281.6 14552.6
后巷村4组 3594.2 3594.2
后巷村4组 1977 1977
后巷村4组 5189.6 5189.6
后巷村4组 6438.2 6438.2
后巷村4组 16617.4 16617.4
后巷村4组 7045.7 7045.7
后巷村4组 1283.3 1283.3
后巷村4组 9322 1 9323
后巷村4组 398.6 398.6
后巷村4组汇总 24946.4 398.6 9322 6439.2 5189.6 1977 3594.2 51867
新思村5组 2524.8 2524.8
新思村5组 11413 0.9 11413.9
新思村5组 3813 3813
新思村5组 4300.4 4300.4
新思村5组 604.4 604.4
新思村5组 2455.6 2455.6
新思村5组 3478.7 3478.7
新思村5组汇总 10234.7 6942.2 11413 0.9 28590.8
总计 35181.1 7340.8 20735 6440.1 5189.6 1977 3594.2 11271 3281.6 95010.4

tjchkys · 发表于 2006-2-15 08:51:11

程序的逻辑有点儿乱
你既然要提取汇总和总计字段，为什么要search　＂组＂呢，直接search＂汇总＂和＂总计＂
然后，将后面的数写到另外一个文件里不就可以了吗？

而且我有一个小建议，用ＶＢ编这种程序更适合一些！

laoxie_1983 · 发表于 2006-2-15 13:07:39

我执行的时候总是提醒我参数类型错误.我怎么也没发现错在哪!如果直接search＂汇总＂和＂总计＂的话有的字段里是没有汇总和总计的不好判断.

xyp1964 · 发表于 2006-2-15 13:29:24

[FONT=courier new](defun c:k31 ()
(setq k31 "d:\\hbxx\\kcdj\\k31.txt"
k5 "d:\\hbxx\\kcdj\\k5.txt"
fp31 (open k31 "r")
fp5 (open k5 "w")
)
(while (setq ir (read-line fp31))
(if (or (vl-string-search "总计" ir)
(vl-string-search "汇总" ir)
)
(princ ir fp5)
)
)
(close fp31)
(close fp5)
(princ)
)[/FONT]

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

[求助] [求助]：高手们帮我看看问题出在哪!

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子