精易论坛
标题:
创建目录
[打印本页]
作者:
dwcq
时间:
2023-3-24 17:46
标题:
创建目录
原贴地址
https://125.confly.eu.org/thread-14768345-1-1.html
分享使用数组创建多层次目录
他的创建不了,我就自己琢磨着改,改成了
子程序名
返回值类型
公开
备 注
_按钮1_被单击
变量名
类 型
静态
数组
备 注
目录数组
文本型
0
后
文本型
0
前
文本型
前x
文本型
i
整数型
结果
逻辑型
加入成员
(
目录数组,
分割文本
(
编辑框1.内容,
#换行符,
)
)
计次循环首
(
取数组成员数
(
目录数组
)
, i
)
加入成员
(
后, 目录数组
[
i
]
)
如果
(
寻找文本
(
目录数组
[
i
]
,
“ ”
, ,
真
)
≠ -1
)
前x = 前
前x = 前x + 后
[
i
]
+
“\”
结果 =
创建目录
(
前x
)
调试输出
(
结果, 前x
)
前 = 前x
前 = 前 + 后
[
i
]
+
“\”
结果 =
创建目录
(
前
)
调试输出
(
结果, 前
)
计次循环尾
(
)
i
支持库列表
支持库注释
spec
特殊功能支持库
.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 目录数组, 文本型, , "0"
.局部变量 后, 文本型, , "0"
.局部变量 前, 文本型
.局部变量 前x, 文本型
.局部变量 i, 整数型
.局部变量 结果, 逻辑型
加入成员 (目录数组, 分割文本 (编辑框1.内容, #换行符, ))
.计次循环首 (取数组成员数 (目录数组), i)
加入成员 (后, 目录数组
)
.如果 (寻找文本 (目录数组
, “ ”, , 真) ≠ -1)
前x = 前
前x = 前x + 后
+ “\”
结果 = 创建目录 (前x)
调试输出 (结果, 前x)
.否则
前 = 前x
前 = 前 + 后
+ “\”
结果 = 创建目录 (前)
调试输出 (结果, 前)
.如果结束
.计次循环尾 ()
创建目录-.e
2023-3-24 17:46 上传
点击文件名下载附件
下载积分: 精币 -2 枚
4.4 KB, 下载次数: 12, 下载积分: 精币 -2 枚
作者:
喵帕斯和艾希
时间:
2023-3-24 19:01
感谢楼主的分享
作者:
wuqingg
时间:
2023-3-24 19:09
支开感享
作者:
jysoft2022
时间:
2023-3-24 20:46
感谢楼主的分享
作者:
夏亿
时间:
2023-3-24 23:03
支持开源~!感谢分享
作者:
成神之日
时间:
2023-3-25 07:22
作者:
一指温柔
时间:
2023-3-25 08:38
谢谢楼主,学习下!
作者:
momentL
时间:
2023-3-25 09:16
感谢楼主分享
作者:
396384183
时间:
2023-3-26 00:03
谢谢楼主,学习下!
作者:
噼里啪啦咻
时间:
2023-3-26 18:18
666666666666666666666666666
作者:
805400753
时间:
2023-3-27 23:53
怎么创建特殊符号目录?
作者:
18074941457
时间:
2023-8-20 03:06
开源精神必须支持~!!!
作者:
Akari
时间:
2023-10-12 22:47
感谢分享,很给力!~
作者:
陪你去看海丶
时间:
2024-1-20 22:50
666666666666666666
作者:
1326554131
时间:
2024-2-4 09:25
66666666666666666
欢迎光临 精易论坛 (https://125.confly.eu.org/)
Powered by Discuz! X3.4