读取幻灯片库文件中幻灯片名称列表

Gu_xl

slb2sldnames.LSP

---

;;(gxl-slb2sldnames SLBFileName) 返回幻灯片库文件中幻灯片名称列表
(defun gxl-slb2sldnames
       (PATH / APP N ID A HEADLIST I LOOP NAME B C D PTR)
  (if (setq id (open path "r"))
    (progn
      (repeat 31
	(if (and (setq a (read-char id))
		 (/= a 0)
	    )
	  (setq headlist (cons a headlist))
	)
      )
      (setq n 31)
      (setq i 0)
      (setq headlist (strcase (VL-LIST->STRING (reverse headlist))))
      (if (VL-STRING-SEARCH "SLIDE" headlist)
	(progn
	  (setq loop t)
	  (while loop
	    (setq name nil)
	    (repeat 32
	      (if (and (setq a (read-char id))
		       (/= a 0)
		  )
		(setq name (cons a name))
	      )
	      (setq n (1+ n))
	    )
	    (if	name
	      (progn
		(setq app (cons (VL-LIST->STRING (reverse name)) app))
		(if (= i 0)
		  (progn
		    (if	(and
			  (setq a (READ-CHAR id))
			  (setq b (READ-CHAR id))
			  (setq c (READ-CHAR id))
			  (setq d (READ-CHAR id))
			)
		      (setq ptr (+ a (lsh b 8) (lsh c 16) (lsh d 24)))
		    )
		    (setq n (+ n 4))
		  )
		  (repeat 4
		    (READ-CHAR id)
		    (setq n (1+ n))
		  )
		)
		(setq i (1+ i))
		(if (= (+ 37 n) ptr)
		  (setq loop nil)
		)
	      )
	      (setq loop nil)
	    )
	  )
	)
      )
      (close id)
      (reverse app)
    )
  )
)

zzyong00

第一时间过来顶贴

dbqtju

收藏，有空学习。

wzg356

收下了。。。。。

tianyi1230

G版主威武！

自贡黄明儒

学习，收藏      

伪书虫86

先标记了

sicky111

读取列表下一步要做什么？

pengfei2010

谢谢楼主的大作，学习一下

iiAmethyst

大佬的帖子，必须顶