[弹指神通]： 在lisp中巧用DOS.

highflybird

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

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

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

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

<br /> (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 /> <br />

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

animal212

(command ".shell" "net view > c:\\1.txt|exit") ;用dos命令查看并输出到1.txt然后关闭dos
这句才是精髓吧，可是看不懂是什么意思，更用不说延伸了。
"net view > c:\\1.txt|exit"类似这句上哪去参考用法呢？

GTJ116600

animal212 发表于 2007-8-23 19:04
(command ".shell" "net view > c:\\1.txt|exit") ;用dos命令查看并输出到1.txt然后关闭dos
这句才是精髓 ...

问的好，明白这个，就可以延伸了

GTJ116600

这个获取网上邻居的方法还是很好的