易语言_目录回退代码

.版本 2

.子程序 _按钮1_被单击
.局部变量 L_路径, 文本型

编辑框1.内容 ＝ 子程序1 (编辑框1.内容)


.子程序 子程序1, 文本型
.参数 C_目录, 文本型
.局部变量 L_起始位置, 整数型
.局部变量 L_位置, 整数型

L_起始位置 ＝ 倒找文本 (C_目录, “/”, , 假)
.如果真 (L_起始位置 ＞ -1)
    L_位置 ＝ 倒找文本 (C_目录, “/”, L_起始位置, 假)
    .如果真 (L_位置 ＞ -1 且 倒找文本 (C_目录, “/”, L_位置, 假) ＞ -1)
        返回 (取文本左边 (C_目录, L_位置))
    .如果真结束

.如果真结束
返回 (C_目录)