[求助]：请教一个小问题

c3a139

请问.kwx是什么文件？
看如下这段代码谁能解释一下
(setq f (getfiled "输入文件名:" "D:/" "*" 8))
(setq filemzf (substr f 1 1))
(setq k 1)
(while (/= filemzf "")
(if (= filemzf ".")
(progn (setq filemzf ""))
(progn (setq k (1+ k)) (setq filemzf (substr f k 1)))
)
)
(setq filez (substr f 1 (1- k)))
(setq f3 (strcat filez ".kwx"))
(setq f2 (open f3 "w"))
(wRiTe-line "[KTD_DAT]" f2)
(wRiTe-line "KT_TYPE=ZK" f2)

qjcpj

*.kwx文件估计是编程者自定义的一种文件形式，属“纯”文本，我编程时也会经常使用这种方式来保存模块变量或对模块进行初始化设置，当然我更喜欢使用注册表方式！
上面代码主要是将[KTD_DAT]和KT_TYPE=ZK保存至所选择的文本文件中，代码应该在最后加上(close f3)，不然...，你可参考Ll_j的“几个文字模块”。

c3a139

它是不是只起到传递作用，请问这样做有什么优点？

c3a139

它是不是只起到传递作用，请问这样做有什么优点？

qjcpj

这里主要是将编程者需要的东西保存至文本文件中。
就起到作用而言，它与编程者要达到的目的有关。举个例子讲，为方便就以我编写过的一个“技术要求”模块来说明，在该模块中，需要保存操作者最近操作状态，简单点讲就是模块的初始化设置，另外还需要将当前编辑文字内容保存，以方便以后随时调用，技术要求文字入“库”等等功能，都可以通过这种方式将其保存至某文本文件中，需要时读入模块程序即可。

mcc-penbo

我也想问同样的问题？感谢各位大侠！！

c3a139

我在最后加上了(close f3)后，怎么在图形生成后，还同时生成一个.kwx文件？

zml84

你执行(close f3)后，关闭的是在内存中打开的文档（其文档内容会被保存到硬盘上，然后释放占用的内存）。
对于你问“怎么在图形生成后，还同时生成一个.kwx文件？”，好想你不大情愿生成一个文档。
如果不想保存成文件，前面open文件就没有必要了。
下面两句也可以删掉:

1. 
   
2.   [FONT=courier new]
   
3. (wRiTe-line "[KTD_DAT]" f2)
   
4. (wRiTe-line "KT_TYPE=ZK" f2)
   
5.   [/FONT]
   

复制代码

关于利用中间文档传递数据的方法，前面的同学讲得很好。

c3a139

图形生成后，f3就完成了它的使命，如果再生成一个.kwx文件就显得多余了，因此我想在成图后删了它。

c3a139

图形生成后，f3就完成了它的使命，如果再生成一个.kwx文件就显得多余了，因此我想在成图后删了它。