哪位好心人 给个E语言写的物品过滤 和物品显示啊

死松鼠

这里的教程是VB的 看了半天看不懂 郁闷那 帮帮忙啦

不白不白

.版本   

.子程序 _时钟_周期事件  
.局部变量 wpsl, 整数型  
.局部变量 wpbase, 整数型  
.局部变量 wpjizhi, 整数型  
.局部变量 xh, 整数型  
.局部变量 wpname, 字节集  
.局部变量 base1, 整数型  
.局部变量 base2, 整数型  
.局部变量 name, 文本型  
.局部变量 glxh, 整数型  

ckjb ＝ 取窗体句柄 (, “Element Client”)  
.如果 (ckjb ≠0)  
  列表框.清空 ()  
  wpjizhi ＝ 读整型内存 (ckid, 读整型内存 (ckid, 读整型内存 (ckid, 9215572) ＋ ) ＋ )  
  wpsl ＝ 读整型内存 (ckid, wpjizhi ＋ )  
  标签.标题 ＝ “当前地面物品数：”＋ 到文本 (wpsl)  
  .如果 (wpsl ≠0)  
    .变量循环首 (0, 769, 1, xh)  
        wpbase ＝ 读整型内存 (ckid, 读整型内存 (ckid, wpjizhi ＋ ) ＋ xh ×4)  
        .如果 (wpbase ＞ )  
          base2 ＝ 读整型内存 (ckid, wpbase ＋ )  
          base1 ＝ 读整型内存 (ckid, base2 ＋ )  
          读字节集内存 (ckid, base1, wpname, 64)  
          name ＝ 删尾空 (到文本 (UNICODE转ANSI (wpname)))  
          列表框.加入项目 (name, 1)  
          .变量循环首 (0, 列表框.取项目数 () － , 1, glxh)  
            .如果 (寻找文本 (name, 列表框.取项目文本 (glxh), , 假) ≠-1)  
                写整型内存 (ckid, base2 ＋ , 0)  
                标签.标题 ＝ “已过滤：”＋ name  
            .否则  

            .如果结束  

          .变量循环尾 ()  
        .否则  

        .如果结束  

    .变量循环尾 ()  
  .否则  

'学习要靠自己，我也是在网上查了好多资料！  
'看看这个对你有帮助没啊，没有的话也不要骂我哦！！