创建目录

dwcq

原贴地址 https://bbs.125.la/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<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 目录数组, 文本型, , "0"<br /> .局部变量 后, 文本型, , "0"<br /> .局部变量 前, 文本型<br /> .局部变量 前x, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 逻辑型<br /> <br /> 加入成员 (目录数组, 分割文本 (编辑框1.内容, #换行符, ))<br /> .计次循环首 (取数组成员数 (目录数组), i)<br />     加入成员 (后, 目录数组 <i>)<br />     .如果 (寻找文本 (目录数组 <i>, “ ”, , 真) ≠ -1)<br />         前x ＝ 前<br />         前x ＝ 前x ＋ 后 <i> ＋ “\”<br />         结果 ＝ 创建目录 (前x)<br />         调试输出 (结果, 前x)<br /> <br />     .否则<br />         前 ＝ 前x<br />         前 ＝ 前 ＋ 后 <i> ＋ “\”<br />         结果 ＝ 创建目录 (前)<br />         调试输出 (结果, 前)<br />     .如果结束<br /> <br /> .计次循环尾 ()

1326554131

66666666666666666

陪你去看海丶

666666666666666666

Akari

感谢分享，很给力！~

18074941457

开源精神必须支持~！！！

805400753

怎么创建特殊符号目录？

噼里啪啦咻

666666666666666666666666666

396384183

谢谢楼主，学习下！

momentL

感谢楼主分享

一指温柔

谢谢楼主，学习下！