[文件] （XD::File:UniqueFileName）根据指定的文件名，获取下一个唯一的文件名

已领礼包: 51个

财富等级: 招财进宝

发表于 2018-3-20 15:50:51 |阅读模式

函数发布
函数名称:	XD::File:UniqueFileName
调用格式:	(XD::File:UniqueFileName fname)
参数说明:	fname ---- 指定的文件名
返回值:	字符串
函数简介:	根据指定的文件名，获取下一个唯一的文件名
函数来源:	原创
函数作者:	Lispboy
适用版本:	不限
最后更新时间:	2018-03-20
备注:	根据指定的文件名，获取下一个唯一的文件名命令: !fn "D:\\xdsoft\\sys\\xdrx.lsp" 命令: (XD::FILE:UNIQUEFILENAME fn) "D:\\xdsoft\\sys\\xdrx(2).lsp"
演示图片:	-

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

(defun XD::File:UniqueFileName (fnm / bse ext fn pth tmp)
(if (findfile fnm)
(apply
'(lambda (pth bse ext / tmp)
(setq tmp 1)
(while (findfile (setq fnm (strcat pth bse "(" (itoa (setq tmp (1+ tmp))) ")" ext))))
)
(setq fn (xd::file:splitpath fnm)
fn (list (strcat (car fn) (cadr fn)) (caddr fn) (cadddr fn))
)
)
)
fnm
)

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

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