| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 目录_是否符合规范 | 逻辑型 | 【严格】检查目录是否合规范,不和规范的目录返回假。判断标准:盘符:\目录 | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 要检查的目录 | 文本型 | 需要检查的完整的目录路径,不接受相对路径 | 是否禁止为根目录 | 逻辑型 | 如果设置为真,如果是盘符根目录返回假。默认为真。 | ||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 临时_要检查的目录 | 文本型 | |||||
| 盘符 | 文本型 | |||||
| 盘符代码 | 整数型 | |||||
| 返回逻辑 | 逻辑型 | |||||
| 文件名 | 文本型 | |||||
判断循环首 (寻找文本 (临时_要检查的目录, “\\”, , 假) > 0)
临时_要检查的目录 = 子文本替换 (临时_要检查的目录, “\\”, “\”, , , 真)
判断循环尾 ()
判断循环首 (寻找文本 (临时_要检查的目录, “//”, , 假) > 0)
临时_要检查的目录 = 子文本替换 (要检查的目录, “//”, “/”, , , 真)
判断循环尾 ()盘符 = 到大写 (取文本左边 (临时_要检查的目录, 1))
盘符代码 = 取代码 (盘符, 1)
如果真 (盘符代码 < 65 或 盘符代码 > 90)
' 不是A-Z之间的,标识这不是一个正常的盘符。
返回 (假)
返回逻辑 = 寻找文本 (临时_要检查的目录, “:\”, , 假) ≠ -1
' 表示没有":\",盘符后面的分隔符
如果真 (返回逻辑 = 假)
返回逻辑 = 寻找文本 (临时_要检查的目录, “:/”, , 假) ≠ -1
' 同时要检查反斜杠。如果也没有,则返回不合法
如果真 (返回逻辑 = 假)
返回 (假)


如果真 (是否禁止为根目录)
临时_要检查的目录 = 子文本替换 (临时_要检查的目录, “\\”, “\”, , , 真)
临时_要检查的目录 = 子文本替换 (临时_要检查的目录, “//”, “/”, , , 真)
如果真 (取文本长度 (临时_要检查的目录) = 3)
' D:\ 只有根目录会等于3.
返回 (假)


返回 (真)
词条作者信息 使用例程
