[求助]如何打开打包文件中的资源文件

精灵王

在VLX打包输出中，允许包括资源文件，可以将dcl、txt文件打包其中，如何才能在在程序中打开打包的txt文件，每次返回的信息为nil，各位老大，求教了。

CADghost

这倒不知道!

精灵王

以下是我的测试文件，已经将xpc.txt加入到vlx的编译资源中了，就是不知如何打开。
(defun c:test()
(setq file (findfile "xpc.txt")) 返回nil
(if (not file)
(progn
(alert "没有找到数据文件xpc.txt \n请重新安装程序或把xpc.txt\n文件放到CAD公共目录下！")
;; (exit)
(setq file "xpc.txt") 返回xpc.txt
(princ file)
)
) (setq file (open file "r")) 返回nil
(princ file)
(princ eof) 返回nil 文件没有打开
(while eof
(setq str (read-line file))
(princ str )
)
)

CADghost

你为什么一定要打包TXT文件呢?另存为DAT文件不行吗?

zshqd

可(vl-get-resource text-file)函数获取TXT文件中的内容。

精灵王

CADghost发表于2004-6-18 10:46:00你为什么一定要打包TXT文件呢?另存为DAT文件不行吗?

一样的，只不过是换个名称而已，只要能直接打开文件就可以了，有办法吗？

精灵王

zshqd发表于2004-6-18 11:17:00可(vl-get-resource text-file)函数获取TXT文件中的内容。

看了注解，可能有用，我试试看，谢谢了。

精灵王

不行啊，老大，我试过vl-get-resource text-file，他是将txt文件中的所有内容都读出来了，我需要的是一行一行，先读出，再比较，通过就结束文件，不行再读下一行，这个函数达不到这个功效。

wmz

我还不知道你在这里也发了贴子,仍然没有弄懂意思.
写一段代码你看看是不是表达了你的意思:
(defun c:test()
(setq a "100")
(setq file (findfile "Xcp.txt"))
(setq f (open file "r"))
(while (/= b a)
(setq b (read-char f))
)
)

精灵王

wmz发表于2004-6-18 22:53:00我还不知道你在这里也发了贴子,仍然没有弄懂意思.写一段代码你看看是不是表达了你的意思defun c:test() (setq a \"100\") (setq file (find...

用find，只能是搜索文件夹中的文件，在vlx编译中打包的文件，找不到阿，我就是想在程序中能够打开编译打包在vlx文件中的txt资源文件。