读数据文件不用对话框

zwqgdhl

在读TXT数据文件时，老是弹出一个选择对话框，能否在不弹出对话框的情况下读出所要数据。

zhynt

如果是读固定的文件，可以直接将文件名写到程序中，比用选择，既然程序出了对话框说明需要选择文件。
(setq fn(open(findfile "文件名") ) "r")

zwqgdhl

谢谢大侠的支持，我刚试了你的方法，是可以读到文件名，但不知道怎样转为已用:
我原来的
(setq namr (getfiled "选<D:/钻孔资料>文本文件(钻孔号,工程名称,里程桩号,X坐标,Y坐标,高程)" "D:/钻孔资料" "txt" 0))
(if (/= namr nil)
    (progn
(setq f (open namr "r"))



按你说的
(setq namr (open "D:\\钻孔资料.txt" "r"))
(if (/= namr nil)
    (progn
(setq f (open namr "r"))


但一运行现在的程序就出错
我一行一行试运行
原来的(setq namr (getfiled "选<D:/钻孔资料>文本文件(钻孔号,工程名称,里程桩号,X坐标,Y坐标,高程)" "D:/钻孔资料" "txt" 0))
运行后为"D:\\钻孔资料.txt"

现在的(setq namr (open "D:\\钻孔资料.txt" "r"))
运行后为#<file "D:\\钻孔资料.txt">

明显不一致，不知道怎样处理这个问题

Andyhon

(setq f (open "D:\\钻孔资料.txt" "r"))
===================
(setq namr "D:\\钻孔资料.txt" )
(setq f (open namr "r"))

zhynt

你没有仔细看我的帖子：看红色字
我上面的只是将两句话合并了。
(setq namr (findfile "D:\\钻孔资料.txt"))
(if (/= namr nil)
    (progn
(setq f (open namr "r"))

zwqgdhl

，(setq namr (findfile "D:\\钻孔资料.txt"))这句太实用啦，正是我要的效果，太谢谢大侠的相助！