在lisp中巧用DOS

Highflybird · 发表于 2013-5-7 23:14:48

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

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

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

cq_qg68 · 发表于 2016-11-19 22:44:51

这样是不是可以执行dos下的批处理文件了？

kqqt6236 · 发表于 2016-11-19 23:58:18

还能这样玩？

yufeng37 · 发表于 2016-11-24 15:09:46

写的好棒，收藏了，多了一个思路

kqqt6236 · 发表于 2016-11-24 17:36:30

DOS还是很有用的。

线路板 · 发表于 2019-1-29 09:51:58

写的好棒，收藏了，多了一个思路

账号		自动登录	找回密码
密码			立即注册

[飞鸟集] 在lisp中巧用DOS

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

本帖被以下淘专辑推荐:

相关帖子