|
|
发表于 2026-6-1 18:00:56
|
显示全部楼层
四川省成都市
.局部变量 文件字节集, 字节集
文件字节集 = 读入文件 (“wdesc.fb”)
.子程序 提取所有地图名称, 文本型数组, 公开, 返回所有地图名称列表
.局部变量 文件字节集, 字节集
.局部变量 数组_名称, 文本型, , "0"
.局部变量 索引, 整数
.局部变量 连续零计数, 整数
.局部变量 名称起始位置, 整数
.局部变量 临时名称字节, 字节集
文件字节集 = 读入文件 (“wdesc.fb”)
连续零计数 = 0
索引 = 1 ' 易语言字节集下标从1开始
.判断循环首 (索引 ≤ 取字节集长度 (文件字节集))
.判断开始 (取字节集数据 (文件字节集, #字节型, 索引) = 0)
连续零计数 = 连续零计数 + 1
.判断开始 (连续零计数 ≥ 4) ' 连续4个0判定为填充区,等待名称起始
名称起始位置 = 索引 + 1
' 读取名称字节直到下一个0
临时名称字节 = {}
.判断循环首 (名称起始位置 ≤ 取字节集长度 (文件字节集))
.判断开始 (取字节集数据 (文件字节集, #字节型, 名称起始位置) = 0)
跳出循环 ()
.判断结束
临时名称字节 = 临时名称字节 + 取字节集数据 (文件字节集, #字节型, 名称起始位置)
名称起始位置 = 名称起始位置 + 1
.判断循环尾 ()
' 有效名称字节集不为空则加入列表
.判断开始 (取字节集长度 (临时名称字节) > 0)
加入成员 (数组_名称, 到文本 (临时名称字节))
.判断结束
' 索引跳转到名称结束位置,减少循环
索引 = 名称起始位置
连续零计数 = 0
.判断结束
.判断默认
连续零计数 = 0
.判断结束
索引 = 索引 + 1
.判断循环尾 ()
返回 (数组_名称) |
|