用lisp操作文本文件

xiaxiang · 发表于 2011-2-23 09:30

本帖最后由 xiaxiang 于 2011-2-23 09:34 编辑

在下有两个问题想讨教，都是关于用lisp操作文本文件的。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   一，用lisp删除特定路径的文本文件，比如：C:\WINDOWS\d.ini  。执行此程序，则检查路径里是否有这个文件。有则删除之。程序主要用来查杀某个特定的“病毒”文件。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   二，比较复杂一些。想用lisp获取系统时间，但不是明码，想要使个障眼法。具体要求为：
执行此程序，先检查特定路径是否有指定的文本文件，没有则建立之，比如：C:\WINDOWS\d.ini  。有则跳过此步。然后将系统时间写入此文本文件。时间的格式要求分8行，4行年数字+2行月数字+2行日数字。每行的数字为10进制，49-58代表0-9。格式示例：

   51  ---->          2
   49 ---->       0
   50 ---->       1
   50 ---->       1
   49 ---->       0
   51 ---->       2
   50    ---->       1
   54    ---->       5
这下看得很明白了，系统时间为2011年2月15日。

恳请各路高手不吝赐教！

Andyhon · 发表于 2011-2-23 09:30

先试这个
(mapcar '1+
(vl-string->list (menucmd "M=$(edtime,$(getvar,date),YYYYMODD)"))
)

xiaxiang · 发表于 2011-2-23 10:47

关键时候又是ANDYHON大侠出手助我。可否说得详细些？

Andyhon · 发表于 2011-2-23 11:29

个人习惯套用DosLib

删除特定路径的文本文件...
(dos_delete "c:\\program files\\autocad 2002\\drawing2.dwg")

检查特定路径是否有指定的文本文件....
Syntax
(dos_search filename [path])
==>
Command: (dos_search "kernel32.dll")
"C:\\WINNT\\System32\\kernel32.dll"

xiaxiang · 发表于 2011-2-23 14:32

回复 Andyhon 的帖子

那么，敢问ANDYHON，对我的程序要求可有完整的代码？谢谢指点

Andyhon · 发表于 2011-2-23 14:57

写出文件请参考
http://bbs.mjtd.com/thread-62664-2-1.html

xiaxiang · 发表于 2011-2-23 15:28

回复 Andyhon 的帖子

谢谢提供链接！

ZZXXQQ · 发表于 2011-2-23 19:38

楼主想玩加密

xiaxiang · 发表于 2011-2-23 21:26

回复 ZZXXQQ 的帖子

请问版主有何高招

LONGXIN · 发表于 2011-2-24 00:32

回复 xiaxiang 的帖子

使用位移加密太弱了吧，可以考虑使用ascii加BOOLE

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

用lisp操作文本文件

最佳答案

点评

评分