|
发表于 2023-7-20 15:21:05
|
显示全部楼层
山东省潍坊市
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 取所有有效盘符 ()变量名 | 类 型 | 静态 | 数组 | 备 注 | 所有盘符数组 | 文本型 | | 0 | p | 整数型 | | | 光驱盘符 | 文本型 | | | 有效盘符 | 文本型 | | 0 | 找到的 | 字节集 | | 0 | i | 整数型 | | |
光驱盘符 = 取文本左边 (取光驱盘符 (), 1 )所有盘符数组 = { “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z” }数组_删除指定成员 (所有盘符数组, 光驱盘符, , 真, 真)计次循环首 (取数组成员数 (所有盘符数组 ), p )如果 (改变目录 (所有盘符数组 [p ] + “:”)) 加入成员 (有效盘符, 所有盘符数组 [p ] + “:\”)调试输出 (有效盘符 )计次循环尾 ()计次循环首 (取数组成员数 (有效盘符 ), i )文件_枚举W (编码_Ansi到Unicode (有效盘符 [i ], ), 编码_Ansi到Unicode (编辑框2.内容 ), 找到的, 真, 真, 真)编辑框1.内容 = 编辑框1.内容 + 到文本 (编码_Unicode到Ansi (找到的 [i ])) + #换行符 计次循环尾 ()|
数组_删除指定成员 | 整数型 | | |
程序集数组 | 文本型 | | | | 内容 | 文本型 | | | | 删除所有重复内容 | 逻辑型 | | | | 模糊匹配 | 逻辑型 | | | | 模糊匹配不区分大小写 | 逻辑型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | h | 整数型 | | | 成员数 | 整数型 | | | 是否匹配 | 逻辑型 | | | 程序集数组tmp | 文本型 | | 0 |
成员数 = 取数组成员数 (程序集数组 )计次循环首 (成员数, h )是否匹配 = 选择 (模糊匹配, 寻找文本 (程序集数组 [h ], 内容, , 模糊匹配不区分大小写 ) > 0, 程序集数组 [h ] = 内容 )如果 (删除所有重复内容 )如果真 (是否匹配 = 假)加入成员 (程序集数组tmp, 程序集数组 [h ])如果真 (是否匹配 = 真)删除成员 (程序集数组, h, )跳出循环 ()计次循环尾 ()如果真 (删除所有重复内容 )程序集数组 = 程序集数组tmp 成员数 = 取数组成员数 (程序集数组)返回 (成员数 )
|
|