[求助]：如何在ARX里关闭用LISP已经打开的文件？紧急求助！！

雅明

各位朋友，我现在碰到这样一个问题：如何在ARX里关闭用LISP已经打开的文件？例如，在LISP里面运行如下命令：
(setq fi   (open (strcat cm_path "mytxt.txt") "r"))
但是我有时没有用：   (close fi)　关闭此文件（虽然我知道这样不是个好程序，但有时却实有这种情况，呵呵），就在下一个ARX程序的运行程序里写这个相同路径和文件名的文件，在这时ARX就出错了（这是必然会出错的）！！所以我想在ARX程序里加一段在要写文件时，先判断此文件 mytxt.txt 可不可写，如不可写就关闭它（在这里，我强调的不可写是指被LISP程序打开了）。多谢！！

LoveArx

最初由 雅明 发布
[B]各位朋友，我现在碰到这样一个问题：如何在ARX里关闭用LISP已经打开的文件？例如，在LISP里面运行如下命令：
(setq fi   (open (strcat cm_path "mytxt.txt") "r"))
但是我有时没有用：   (close fi)　关闭此文件?.. [/B]

你的逻辑好像有些混乱：），写程序是个严谨的过程，因为机器是严谨的，我们既然让机器工作，就得按机器的游戏规则来，这样才能玩下去。

既然都是你的程序，你为什么要前一个程序出错，要后一个程序去排错呢？为什么不让先前的程序“健壮”些呢？，如果当前程序一直有错，下一个程序一直排错，那不累死了。

况且回到主题上来，直接判断一个文件是否可写容易，为什么还要非得判断是LISP打开的？ 两个编程环境本来就没有底层的互通机制。这次你要判断是mytxt.txt，下次是不是换成yourtxt.txt 了：）

个人观点，说错了别拿砖拍我。

雅明

楼上说的及是，原则上也对，但我想知道的是能不能判断和关闭LISP打开的文件，有没有办法，如楼上的能有办法解决的话，还烦请你告知，非常感谢！

rave

你在arx中是如何打开文件的?  我不同意 这是必然会出错的的论断。共享文件是可以被多个进程,多个用户同时打开的. 你研究一下OpenMode

另外: 强制关闭文件的方法也是有的. 问题在于, 一旦你掌握了该方法, 你也不会犯这样的错误了.

雅明

多谢斑竹的解答！！但我说的文件是用LISP打开的，而不是用ARX打开的！“这必然会出错的”论断不知还能否成立，我试了多次ARX还是在写用LISP打开过的文本文件时出错！可能我方法不对吧！至于打开模式，我会去啃的，但不知和用LISP打开过的文件有多大关系！
“强制关闭文件的方法是有的”，请斑竹能否赐教？？先谢过啦！呵呵！