18 Star 86 Fork 28

vicwjb / AutoLispBaseFunctionLibrary

加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
克隆/下载
file-utils.lsp 2.89 KB
一键复制 编辑 Web IDE 原始数据 按行查看 历史
vicwjb 提交于 2018-02-12 14:40 . 修复文件编码错误
;;;name:BF-File-ReadToList
;;;desc:读取文件生成表
;;;arg:filepath:文件路径
;;;return:返回生成的字符串表
;;;example:(BF-File-ReadToList "E:\\tmp.lsp")
(defun BF-File-ReadToList (filepath / fn tmplst value)
(if (setq filepath (findfile filepath))
(progn
(setq fn (open filepath "r"))
(while (setq value (read-line fn))
(setq tmplst (cons value tmplst))
)
(close fn)
(reverse tmplst)
)
nil
)
)
;;;name:BF-File-write
;;;desc:将字符串列表写入文件
;;;arg:filepath:文件路径
;;;arg:lst:字符串列表
;;;return:
;;;example:(BF-File-write "E:\\tmp.lsp" '("1" "2" "3"))
(defun BF-File-write (filepath lst / fn)
(if (setq filepath (findfile filepath))
(write-line
(BF-lst->str lst "\n")
(setq fn (open filepath "w"))
)
)
(close fn)
)
;;;name:BF-File-ChangeLine
;;;desc:修改文件指定行
;;;arg:filepath:文件路径
;;;arg:n:行数
;;;arg:value:需要替换的字符串
;;;return:无
;;;example:(BF-File-ChangeLine "E:\\tmp.lsp" 2 "try this func")
(defun BF-File-ChangeLine (filepath n value / fn tmplist)
(setq tmplist (BF-list-subst
(1- n)
value
(setq tmplist (BF-File-ReadToList filepath))
)
)
(write-line
(BF-lst->str tmplist "\n")
(setq fn (open filepath "w"))
)
(close fn)
)
;;;name:BF-File-Length
;;;desc:计算文件的行数
;;;arg:files:文件地址,getfiled函数返回的格式
;;;return:文件的行数
;;;example:(BF-File-Length "E:\\tmp.lsp")
(defun BF-File-Length (files / tmplst x fn)
(setq files (findfile files))
(if files
(progn (setq tmplst 0)
(setq fn (open files "r"))
(while (read-line fn) (setq tmplst (+ 1 tmplst)))
(close fn)
tmplst
)
nil
)
)
;;;name:BF-File-removelines
;;;desc:删除文件的指定行
;;;arg:name:文件路径
;;;arg:a:行或行列表,从0开始
;;;return:
;;;example:(BF-File-write "E:\\tmp.lsp" '(1 4))
(defun BF-File-removelines (name a / i lst)
(or (listp a) (setq a (list a)))
(setq i -1
lst (BF-File-ReadToList name)
)
(setq lst (vl-remove-if
'(lambda (x) (setq i (1+ i)) (member i a))
lst
)
)
(BF-File-write name lst)
)
;;;name:BF-File-append
;;;desc:追加文件内容
;;;arg:name:文件路径
;;;arg:lst:字符串或字符串表
;;;return:
;;;example:(BF-File-write "E:\\tmp.lsp" '("1" "4"))
(defun BF-File-append (name lst / ff)
(or (listp lst) (setq lst (list lst)))
(write-line
(BF-lst->str lst "\n")
(setq ff (open name "a"))
)
(close ff)
)
;;;name:BF-File-moveline
;;;desc:文件某行上(下)移指定行
;;;arg:name:文件路径
;;;arg:a:要位移的行
;;;arg:kk:位移行数,正为下移,负为上移
;;;return:
;;;example:(BF-File-write "E:\\tmp.lsp" '("1" "4"))
(defun BF-File-moveline (name a k / item lst)
(setq lst (BF-File-readtolist name))
(setq item (nth a lst))
(setq lst (BF-List-removeindex lst a))
(BF-File-write
name
(BF-List-insert lst (+ a k) item)
)
)
Lisp
1
https://gitee.com/vicwjb/abfl.git
git@gitee.com:vicwjb/abfl.git
vicwjb
abfl
AutoLispBaseFunctionLibrary
master

搜索帮助

14c37bed 8189591 565d56ea 8189591