CLIPS-读写关闭文件

一、从标准设备读

１、使用(bind ?name (read))

2、操作

CLIPS> (clear)
CLIPS> (defrule getname
=>
(printout t "what's you name?")
(bind ?name (read))
(printout t "you are "?name crlf)
(assert (user ?name)))
CLIPS> (reset)
CLIPS> (run)
what's you name?zhanghua
you are zhanghua
CLIPS> (facts)
f-0    (initial-fact)
f-1    (user zhanghua)
For a total of 2 facts.
CLIPS>

二、文件操作

１、CLP文件

(defrule MAIN::getname
   =>
   (printout t "what's youname?")
   (bind ?name (read))
   (printout t "you are " ?namecrlf)
   (assert (user ?name)))

(defrule MAIN::savename
   ?user <- (user?name)
   =>
   (retract ?user)
   (open "E:users.dat" userfile"w")
   (printout userfile ?namecrlf)
   (close userfile))

(defrule MAIN::printname
  ?print<-(print-user print-user)
   =>
   (retract ?print)
   (open "E:/users.dat" userfile"r")
   (bind ?name (readuserfile))
   (printout t "you are " ?namecrlf)
   (close userfile))

２、操作

CLIPS> (clear)
CLIPS> (reset)
CLIPS> (load "E:/jjj.clp")
***
TRUE
CLIPS> (run)
what's you name?liuhui
you are liuhui
CLIPS> (assert (print-user print-user))
<Fact-2>
CLIPS> (facts)
f-0    (initial-fact)
f-2    (print-user print-user)
For a total of 2 facts.
CLIPS> (run)
you are　liuhui
CLIPS>

３、上例完成从键盘中输入一个用户名，然后存入文件，打印时从文件调出

４、(open 文件名 逻辑名 "w")为打开文件，并以写操作方式打开，"w"改为"r"为读操作

　　(close 逻辑名)为关闭文件