[求助]请教高手

3527188

(startapp (findfile "tuceng.dat"))

如何用记事本打开搜索路径的DAT文件

请指教在此先谢了

zhanzhe

(command "notepad" "d:\abc.txt")

3527188

这样只是指定打开D盘的文件

要是搜索路径不在D盘呢？

zhanzhe

那只有放在支持目錄路徑了，並且路徑下面可以不用寫那個盤它都可以讀取的，我試過，還可以，但不管怎麼樣，速度不是很快，並且我按照上述方法，一點擊就死機了！！

yshf

(defun c:test()
   (foreach zb (strParse ( getenv "ACAD") ";")
     (setq wjm  (strcat  zb "\\tuceng.dat"))
     (if (findfile  wjm)
        (startapp wjm)
     )
   )
)
;|
将具有分隔符的字符串解析为列表
作者：Roi Ledford
来源：明经通道
语法:
  (StrParse Str Delimiter)
参数:
  Str:要解析的字符串
  Delimiter :要搜索的分隔符
返回值:
  一个字符串列表
  函数内容:
|;
(defun strParse (Str Delimiter / SearchStr StringLen return n char)
 (setq SearchStr Str)
 (setq StringLen (strlen SearchStr))
 (setq return '())

 (while (> StringLen 0)
  (setq n 1)
  (setq char (substr SearchStr 1 1))
  (while (and (/= char Delimiter) (/= char ""))
   (setq n (1+ n))
   (setq char (substr SearchStr n 1))
  ) ;_ end of while
  (setq return (cons (substr SearchStr 1 (1- n)) return))
  (setq SearchStr (substr SearchStr (1+ n) StringLen))
  (setq StringLen (strlen SearchStr))
 ) ;_ end of while
 (reverse return)
) ;_ end of defun

3527188

哎～～～还是不行难道真的没人能解决吗？

Andyhon

(startapp "NotePad" (findfile "tuceng.dat"))

3527188

呵呵～～～这效果不是很好

用start调用不是更好吗？

明经的高手都忙哦

yshf

 那你的"搜索路径"是什么?

3527188

这只是给大家一个参考