吐血分享自用写表读表源码

wang2006zhi

• ;[功能] 写表内容;;BY王志良
• ;(setq  PATH-S "C:\\Users\\Administrator\\Desktop\\画图匠1.DLL")
• ;(setq  LST-L (LIST  '(100 . "PKPM")'(101 . 25.0)'(102 . "HRB400")'(103 . "HPB400")'(104 . 4)'(105 . "框架柱")))
• ;(W-LIST-WRITE PATH-S "画图匠1" LST-L)
• (defun W-LIST-WRITE (PATH-S KEY-S LST-L / f fg m str w_file_read_ini)
•   (defun W_FILE_READ_INI (PATH-S / F rowini xx)
•     (setq F (open (findfile PATH-S) "r"))
•     (while (setq xx (read-line F))
•       (if (wcmatch xx "`[*`]")(setq rowini (cons (vl-string-trim "[ ]" xx) rowini)))
•     )
•     (close F)
•     (reverse (vl-remove "" rowini)) ;;剔除空段落
•   )
•   (IF (/= (FINDFILE PATH-S) nil)(SETQ FG (vl-position KEY-S (W_FILE_READ_INI PATH-S)))(SETQ FG NIL))
•   (IF FG (setq FTG "W")(setq FTG "A"))
•   (PROGN
•     (setq F (OPEN PATH-S FTG))
•     (PRINC (STRCAT "\n[" KEY-S "]\n") F)
•     (PRINC "(" F)
•     (foreach N LST-L
•       (setq M (cdr N))
•       (if (MEMBER (TYPE M) (LIST 'INT 'REAL 'STR))
•         (progn
•           (setq STR (VL-PRIN1-TO-STRING (car N)))
•           (setq STR (STRCAT STR "\t" "." "\t" (VL-PRIN1-TO-STRING M)))
•           (setq STR (STRCAT "(" STR ")"))
•           (PRINC STR F)
•         )
•       )
•     )
•     (PRINC ")" F)
•     (CLOSE F)
•   )
• )
• ;[功能] 读取表内容;BY王志良
• ;(SETQ D0 (W-LIST-READ PATH-S "画图匠"))
• (defun W-LIST-READ (PATH-S KEY-S / FG FN KKK SEC XX)
•   (SETQ FN (open (findfile PATH-S) "r") SEC (vl-string-trim " " KEY-S)  KKK nil )
•   (while (setq XX (read-line FN))
•     (if (wcmatch XX "`[*`]") (setq FG (= (vl-string-trim "[ ]" XX) SEC)));;匹配段落, 搜到段落时(FG=T)，记录内容。
•     (if FG (setq KKK (READ (READ-LINE FN)))) ;;读出指定段落的关键字
•   )
•   (close FN)
•   KKK
• )