[求助]：表转换问题,请教!

taner · 发表于 2008-6-25 13:22:50

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

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

×

表一:

[FONT=courier new]
(ttt : dialog (label "text sample"
(: edit_box (key "a1" label "text1:"))
(: edit_box (key "a2" label "text2:"))
(: edit_box (key "a3" label "text3:"))
(: edit_box (key "a4" label "text4:"))
)
ok_cancel
)
[/FONT]

表二:

[FONT=courier new]
("TTT : dialog {"
"label = "text sample";"
": edit_box { key = "a1"; label = "text1:"; }"
": edit_box { key = "a2"; label = "text2:"; }"
": edit_box { key = "a3"; label = "text3:"; }"
": edit_box { key = "a4"; label = "text4:"; }"
"ok_cancel;"
"}")
[/FONT]

表三:

[FONT=courier new]
("TTT : dialog {" "label = "text sample";"
": edit_box {" "key = "a1";" "label = "text1:";" "}"
": edit_box {" "key = "a2";" "label = "text2:";" "}"
": edit_box {" "key = "a3";" "label = "text3:";" "}"
": edit_box {" "key = "a4";" "label = "text4:";" "}"
"ok_cancel;"
"}")
[/FONT]

表一如何转换成表二或表三?请高手支招(狂刀的EASYDCL里的表)

狂刀 · 发表于 2008-6-26 21:31:25

;| easydclx = easydcl 核心字符串处理程序.------by lxx
参数: lst = 表.
返回: 字符串.
|;
(defun easydclx (lst / k) ; *keys 全局.
(cond
((= 'SYM (type lst))
(setq k (vl-symbol-name lst))
(cond
((assoc k kfil)
;|(if (= k "key") ;保存key 特征值
(setq *keys (cons (car (member 'KEY *lst)) keys))
)
(if (= (cdr kk) "key") ;保存key 特征值
(setq *keys (cons (car (member 'K *lst)) keys))
)|;
(strcat (cdr(assoc k kfil)) " = ")
)
((assoc k Pfil)
(strcat (cdr(assoc k pfil)) "; ")
)
(T (strcat k "="))
)
)
((= 'STR (type lst)) (strcat """ lst ""; "))
((numberp lst) (strcat (vl-princ-to-string lst) "; "))
((listp lst)
(cond
((and (= 'SYM (type (car lst))) (wcmatch (setq k (vl-symbol-name (car lst))) ":*"))
(if (assoc k pfil)
(setq k (cdr(assoc k pfil)))
)
(strcat " : " k " { " (easydclx (cdr lst)) " } ")
)
(T
(if (member 'k lst)
(setq *keys(cons (cadr(member 'k lst)) *keys))
)
(if (member 'key lst)
(setq *keys(cons (cadr(member 'key lst)) *keys))
)
(apply 'strcat (mapcar 'easydclx lst))
)
)
)
(T "")
)
)

;| easydclx = easydcl 核心字符串处理程序.------by lxx 
参数: lst = 表. 
返回: 字符串. 
|; 
(defun easydclx (lst / k) ; *keys 全局. 
  (cond 
    ((= 'SYM (type lst)) 
     (setq k (vl-symbol-name lst)) 
     (cond 
       ((assoc k kfil) 
        ;|(if (= k "key") ;保存key 特征值 
          (setq *keys (cons (car (member 'KEY *lst)) keys)) 
          ) 
        (if (= (cdr kk) "key") ;保存key 特征值 
          (setq *keys (cons (car (member 'K *lst)) keys)) 
          )|; 
        (strcat (cdr(assoc k kfil)) " = ") 
       ) 
       ((assoc k Pfil) 
        (strcat (cdr(assoc k pfil)) "; ") 
       ) 
       (T (strcat k "=")) 
     ) 
    ) 
    ((= 'STR (type lst)) (strcat """ lst ""; ")) 
    ((numberp lst) (strcat (vl-princ-to-string lst) "; ")) 
    ((listp lst) 
      (cond 
        ((and (= 'SYM (type (car lst))) (wcmatch (setq k (vl-symbol-name (car lst))) ":*")) 
         (if (assoc k pfil) 
           (setq k (cdr(assoc k pfil))) 
          ) 
         (strcat " : " k " { " (easydclx (cdr lst)) " } ") 
        ) 
        (T 
         (if (member 'k lst) 
           (setq *keys(cons (cadr(member 'k lst)) *keys)) 
         ) 
         (if (member 'key lst) 
           (setq *keys(cons (cadr(member 'key lst)) *keys)) 
         ) 
         (apply 'strcat (mapcar 'easydclx lst)) 
        ) 
      ) 
    ) 
    (T "") 
  ) 
)

taner · 发表于 2008-6-27 08:23:43

狂刀终于出手了!学习先!
你搞这么多名干嘛, 雨箭风刀,狂刀,无痕都是你吧!

aeo · 发表于 2008-6-28 00:34:43

怎么可能出来“表一”？？？？

taner · 发表于 2008-6-28 22:10:00

感谢狂刀！
我基本上已经完成了第二个EASYDCL.

hugesb · 发表于 2008-7-28 15:35:17

谢谢楼主

fsxm · 发表于 2008-7-29 22:39:37

taner 好像对表很有兴趣哦
有空去玩下ListDCLediter哈~
绝对是完表处理的标准训练例子~！

xincax · 发表于 2008-8-3 15:39:36

fsxm的ListDCL太好了.常见的控件都有相应的方法.但是对话框中IMAGE_BUTTON 里的图片绘制代码块如
(start_image "E90")
(fill_image 0 0 width height 5)
(slide_image 0 0 width height "90d" )
(end_image)
应写在系统主函数 (fsxm-listdcl lst_listdcl str_userapp)之前吗?应放在哪个函数中才能被调用?

fsxm · 发表于 2008-8-4 22:56:53

哦~我在新发布的ListDCLediter1.74中函数改名为
fsxm-ldcl了!调用方法一样! (fsxm-ldcl lst_listdcl str_userapp)
老的函数拼写有点太长了现在简化为
初始化函数: [str_userapp]:dcl:show
事件函数: [str_userapp]:act:[key]
如没有对应事件则调用 [str_userapp]:act:*
结束对话框函数: (return 要返回的值)

还有默认:
cancel为(return nil)
accept为(return 所以key的值)

xincax · 发表于 2008-8-9 16:32:31

ListDCLＶ１．７４的驱动何处有下载链接?，Ｖ１．７４初始化函数:［ str_userapp］＿dcl:show是否相当于原［userapp］_show:Initialize初始化函数，下面这样写可以初始化对话框吗？
(defun insert＿dcl:show () ;初始化事件函数
      (start_image "E90")
      (fill_image 0 0 width height 5)
      (slide_image 0 0 width height "90d" )
      (end_image)
  )就可以调用了，对吗？

fsxm · 发表于 2008-8-10 00:53:06

差不多了～就是这样~!不过前面要加上[str_userapp]的啊
比如你在前面用的是
(fsxm-ldcl lst_listdcl "test")
则初始化对话框函数就要写成
(defun test:dcl:show () ....)
这样做是为了多个程序间不会有同名函数冲突！

ListDCLv1.74可以到我签名下的的网盘下载.

xincax · 发表于 2008-8-10 13:27:31

已下载网盘中的”3.一点点函数集"下的" ListDCL.fas 表对话框控制语言独立驱动程序"，经验证,该文件不是1.74版的,调用(fsxm-ldcl lst_listdcl "test")后，命令行窗口信息如下：错误: no function definition: FSXM-LDCL。而(fsxm-listdcl lst_listdcl str_userapp)可以调用，请给出ListDCLv1.74驱动程序。

GTJ116600 · 发表于 2013-5-28 07:24:42

看看狂刀的表处理

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

[求助] [求助]：表转换问题,请教!

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

相关帖子