2个回答
展开全部
.版本 2
.子程序 _按钮1_被单击
写到文件 (取不重复文件名 (取运行目录 () + “\你要保存的文件名.txt”), 到字节集 (“你要保存的内容”))
.子程序 取不重复文件名, 文本型, , 返回可用的文件名
.参数 文件名, 文本型
.参数 文件名左边, 文本型, 可空, 例如:123.txt的左边就是123
.参数 文件名右边, 文本型, 可空, 例如:123.txt的右边就是.txt
.参数 序号, 整数型, 可空
.如果真 (是否为空 (序号))
序号 = 2
.如果真结束
.如果真 (是否为空 (文件名左边))
文件名左边 = 取文本左边 (文件名, 倒找文本 (文件名, “.”, , 真) - 1)
.如果真结束
.如果真 (是否为空 (文件名右边))
文件名右边 = 取文本右边 (文件名, 取文本长度 (文件名) - 倒找文本 (文件名, “.”, , 真) + 1)
.如果真结束
.如果 (文件是否存在 (文件名))
文件名 = 文件名左边 + “(” + 到文本 (序号) + “)” + 文件名右边
返回 (取不重复文件名 (文件名, 文件名左边, 文件名右边, 序号 + 1))
.否则
返回 (文件名)
.子程序 _按钮1_被单击
写到文件 (取不重复文件名 (取运行目录 () + “\你要保存的文件名.txt”), 到字节集 (“你要保存的内容”))
.子程序 取不重复文件名, 文本型, , 返回可用的文件名
.参数 文件名, 文本型
.参数 文件名左边, 文本型, 可空, 例如:123.txt的左边就是123
.参数 文件名右边, 文本型, 可空, 例如:123.txt的右边就是.txt
.参数 序号, 整数型, 可空
.如果真 (是否为空 (序号))
序号 = 2
.如果真结束
.如果真 (是否为空 (文件名左边))
文件名左边 = 取文本左边 (文件名, 倒找文本 (文件名, “.”, , 真) - 1)
.如果真结束
.如果真 (是否为空 (文件名右边))
文件名右边 = 取文本右边 (文件名, 取文本长度 (文件名) - 倒找文本 (文件名, “.”, , 真) + 1)
.如果真结束
.如果 (文件是否存在 (文件名))
文件名 = 文件名左边 + “(” + 到文本 (序号) + “)” + 文件名右边
返回 (取不重复文件名 (文件名, 文件名左边, 文件名右边, 序号 + 1))
.否则
返回 (文件名)
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
围观的 这个我也不回正好学学
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询