取树型框节点顺序索引

天气转冷了，每天进步百分之零点一。

 

取树型框节点顺序索引

 

.版本 2
.支持库 iext

.子程序 取节点顺序索引, 整数型
.参数 父节点行索引, 整数型
.参数 子节点行索引, 整数型
.局部变量 行索引, 整数型
.局部变量 顺序索引, 整数型

.变量循环首 (父节点行索引, 子节点行索引, 1, 行索引)
    .如果真 (树型框1.取父项目 (行索引) ＝ 父节点行索引)
        .如果 (行索引 ＝ 子节点行索引)
            返回 (顺序索引)
        .否则
            顺序索引 ＝ 顺序索引 ＋ 1
        .如果结束

    .如果真结束

.变量循环尾 ()
返回 (0)