【飞鸟集】在lisp中巧用DOS.

highflybir

根据网上的帖子得出的一种方法，供参考。

下面是一个在lisp中巧用DOS的例子：

如何得到网上邻居的电脑名

2. (defun c:net(/ f cmd lst name)
   
3.   (setq cmd (getvar "cmdecho"))
   
4.   (setvar "cmdecho" 0)                           ;关闭命令回显
   
5.   (command ".shell" "net view > c:\\1.txt|exit") ;用dos命令查看并输出到1.txt然后关闭dos
   
6.   (command ".delay" "200")                       ;因为lisp执行速度快于dos,所以延时0.2秒
   
7.   (setvar "cmdecho" cmd)
   
8.   (setq f (open "c:\\1.txt" "r"))                ;打开dos下创建的文件
   
9.   (read-line f)                                  ;前三行与网上邻居的名字无关
   
10.   (read-line f)                                 
    
11.   (read-line f)
    
12.   (while (and (setq name (read-line f))         
    
13.        (= (substr name 1 1) "\")
    
14.   )
    
15.     (setq name (substr name 3))                  ;从第三个字符开始是其名字
    
16.     (setq name (vl-string-right-trim " " name))  ;删除右边的多余空格字符
    
17.     (setq lst (cons name lst))                   ;构造到列表中去
    
18.   )
    
19.   (close f)                       
    
20.   (reverse lst)                                  ;顺序要颠倒
    
21. )
    

(defun c:net(/ f cmd lst name)<br />   (setq cmd (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)                           ;关闭命令回显<br />   (command ".shell" "net view > c:\\1.txt|exit") ;用dos命令查看并输出到1.txt然后关闭dos<br />   (command ".delay" "200")                       ;因为lisp执行速度快于dos,所以延时0.2秒<br />   (setvar "cmdecho" cmd)<br />   (setq f (open "c:\\1.txt" "r"))                ;打开dos下创建的文件<br />   (read-line f)                                  ;前三行与网上邻居的名字无关<br />   (read-line f)                                  <br />   (read-line f)<br />   (while (and (setq name (read-line f))          <br />        (= (substr name 1 1) "\")<br />   )<br />     (setq name (substr name 3))                  ;从第三个字符开始是其名字<br />     (setq name (vl-string-right-trim " " name))  ;删除右边的多余空格字符<br />     (setq lst (cons name lst))                   ;构造到列表中去<br />   )<br />   (close f)                       <br />   (reverse lst)                                  ;顺序要颠倒<br /> )<br />

思路如下：用DOS命令查看网上邻居，然后把查看后的结果输出到文件，最后通过读文件得到结果。
这个例子可以延伸。是一个不用doslib的办法。

NetBee

最好将文件放到临时目录下，并且文件名不能与其他文件冲突，文件属性不能为只读或隐藏等。这样才能保证写入文件不会出错。

总之要加容错处理啦。。。。

革天明

很好的程序，谢谢楼主分享，要是不显示那个黑色窗口就好了

自贡黄明儒

这本来是好东西，关键是对dos不熟

恕放之生命

学习一下，谢谢分享.

baitang36

留个记号,备用