精易模块BUG求修复

3636993

类_树型框_字节集操作  置项目数值()  有BUG
置完数值后取后面的项目文本已被替换掉了。
详情见附件代码
新建 易程序.e (956.66 KB, 下载次数: 6)

2025-1-9 16:26 上传

点击文件名下载附件

baitso

  

子程序名	返回值类型	公开	备 注
置项目数值	逻辑型		设置与指定项目相关联的数值。成功返回真，失败返回假。
参数名	类 型	参考	可空	数组	备 注
项目索引					0 为项目一，1 为项目二，如此类推。
欲置入的项目数值	整数型				可以被省略。该数值与指定项目相关联。如果本参数被省略，默认值为 0 。

变量名	类 型	静态	数组	备 注
索引	整数型
项目	字节集
起位置	整数型

项目 ＝ 读入字节集 (类_ID, 取文件长度 (类_ID))
移到文件首 (类_ID)
判断循环首 (取字节集长度 (项目) － 起位置 ＞ 21)
起位置 ＝ 寻找字节集 (项目, { 0 }, 起位置)
如果真 (索引 ＝ 项目索引)
清空 ()
写出字节集 (类_ID, 字节集替换 (项目, 起位置 ＋ 9, #整数型, 到字节集 (欲置入的项目数值)))
跳出循环 ()
索引 ＝ 索引 ＋ 1
起位置 ＝ 起位置 ＋ 21
判断循环尾 ()
返回 (移到文件首 (类_ID))
改成

子程序名	返回值类型	公开	备 注
置项目数值	逻辑型		设置与指定项目相关联的数值。成功返回真，失败返回假。
参数名	类 型	参考	可空	数组	备 注
项目索引					0 为项目一，1 为项目二，如此类推。
欲置入的项目数值	整数型				可以被省略。该数值与指定项目相关联。如果本参数被省略，默认值为 0 。

变量名	类 型	静态	数组	备 注
索引	整数型
项目	字节集
起位置	整数型

项目 ＝ 读入字节集 (类_ID, 取文件长度 (类_ID))
移到文件首 (类_ID)
判断循环首 (取字节集长度 (项目) － 起位置 ＞ 21)
起位置 ＝ 寻找字节集 (项目, { 0 }, 起位置)
如果真 (索引 ＝ 项目索引)
清空 ()
写出字节集 (类_ID, 字节集替换 (项目, 起位置 ＋ 9, 4, 到字节集 (欲置入的项目数值)))
跳出循环 ()
索引 ＝ 索引 ＋ 1
起位置 ＝ 起位置 ＋ 21
判断循环尾 ()
返回 (移到文件首 (类_ID))

.版本 2<br /> <br /> .子程序 置项目数值, 逻辑型, 公开, 设置与指定项目相关联的数值。成功返回真，失败返回假。<br /> .参数 项目索引, , , 0 为项目一，1 为项目二，如此类推。<br /> .参数 欲置入的项目数值, 整数型, 可空, 可以被省略。该数值与指定项目相关联。如果本参数被省略，默认值为 0 。<br /> .局部变量 索引, 整数型<br /> .局部变量 项目, 字节集<br /> .局部变量 起位置, 整数型<br /> <br /> 项目 ＝ 读入字节集 (类_ID, 取文件长度 (类_ID))<br /> 移到文件首 (类_ID)<br /> .判断循环首 (取字节集长度 (项目) － 起位置 ＞ 21)<br />     起位置 ＝ 寻找字节集 (项目, { 0 }, 起位置)<br />     .如果真 (索引 ＝ 项目索引)<br />         清空 ()<br />         写出字节集 (类_ID, 字节集替换 (项目, 起位置 ＋ 9, #整数型, 到字节集 (欲置入的项目数值)))<br />         跳出循环 ()<br />     .如果真结束<br />     索引 ＝ 索引 ＋ 1<br />     起位置 ＝ 起位置 ＋ 21<br /> .判断循环尾 ()<br /> 返回 (移到文件首 (类_ID))<br /> <br /> 改成<br /> <br /> .版本 2<br /> <br /> .子程序 置项目数值, 逻辑型, 公开, 设置与指定项目相关联的数值。成功返回真，失败返回假。<br /> .参数 项目索引, , , 0 为项目一，1 为项目二，如此类推。<br /> .参数 欲置入的项目数值, 整数型, 可空, 可以被省略。该数值与指定项目相关联。如果本参数被省略，默认值为 0 。<br /> .局部变量 索引, 整数型<br /> .局部变量 项目, 字节集<br /> .局部变量 起位置, 整数型<br /> <br /> 项目 ＝ 读入字节集 (类_ID, 取文件长度 (类_ID))<br /> 移到文件首 (类_ID)<br /> .判断循环首 (取字节集长度 (项目) － 起位置 ＞ 21)<br />     起位置 ＝ 寻找字节集 (项目, { 0 }, 起位置)<br />     .如果真 (索引 ＝ 项目索引)<br />         清空 ()<br />         写出字节集 (类_ID, 字节集替换 (项目, 起位置 ＋ 9, 4, 到字节集 (欲置入的项目数值)))<br />         跳出循环 ()<br />     .如果真结束<br />     索引 ＝ 索引 ＋ 1<br />     起位置 ＝ 起位置 ＋ 21<br /> .判断循环尾 ()<br /> 返回 (移到文件首 (类_ID))

opphk

你看看以前或者最新版

3636993

opphk 发表于 2025-1-9 16:32
你看看以前或者最新版

就是最新版本

3636993

3636993 发表于 2025-1-9 16:37
就是最新版本

试过，新版都有BUG，老版肯定也不行呀。

7ian

看了下是数据长度导致的，他都用了#整数型 来写，这个值是3，实际上应该是4才对把这三个的#整数型 改成4就好了

sqg88

OK,你看看是不是你要的效果，，

3636993

sqg88 发表于 2025-1-9 18:25
OK,你看看是不是你要的效果，，

你那里正常？我这里还是一样不行，只要置了项目数值，再取对应后面几个的项目文本就都成空了。