.子程序 取_记录索引, 整数型, 公开, 成功返回记录索引 失败返回0
.参数 别名, 文本型, 可空, 参数值指定一个已经被打开的数据库，该数据库内包含所欲写入的字段。如为空 将已最后打开的库读取
.局部变量 a, 整数型
.局部变量 索引, 整数型
a ＝ 取数组索引 (别名)
.如果真 (a ＞ 0)
索引 ＝ 取整 ((库_别名 [a].现行位置 － 库_别名 [a].首位置) ÷ 取所有字段长度 (库_别名 [a].字段信息) ＋ 1)
.如果真 (索引 ＝ 1)
.如果真 (取_记录_数 (库_别名 [a].文件号, 库_别名 [a].长度, 库_别名 [a].首位置) ＝ 0)
索引 ＝ 0
上一篇 时间提醒软件自主完成