怎么样快速处理行列问题

2224848

  

数据类型名	公开	备 注
表格元素
成员名	类 型	传址	数组	备 注
行号	整数型
列号	整数型
值	整数型
标记	逻辑型  ' 用于记录处理状态

窗口程序集名	保 留	保 留	备 注
(未填写程序集名)
变量名	类 型	数组	备 注
变量名	类 型	数组	备 注
数据表格	表格元素	0"  ' 二维数组模拟
总行数	整数型
总列数	整数型

子程序名	返回值类型	公开	备 注
初始化表格

' 根据图片中的数据创建4行5列表格
总行数 ＝ 4
总列数 ＝ 5

' 第一行数据
加入成员 (数据表格, {行号:1, 列号:1, 值:52, 标记:假})
加入成员 (数据表格, {行号:1, 列号:2, 值:21, 标记:假})
加入成员 (数据表格, {行号:1, 列号:3, 值:33, 标记:假})
加入成员 (数据表格, {行号:1, 列号:4, 值:44, 标记:假})
加入成员 (数据表格, {行号:1, 列号:5, 值:55, 标记:假})

' 第二行数据（注意有空单元格）
加入成员 (数据表格, {行号:2, 列号:1, 值:20, 标记:假})
加入成员 (数据表格, {行号:2, 列号:2, 值:21, 标记:假})
加入成员 (数据表格, {行号:2, 列号:3, 值:0, 标记:真})  ' 空单元格标记为已处理
加入成员 (数据表格, {行号:2, 列号:4, 值:0, 标记:真})
加入成员 (数据表格, {行号:2, 列号:5, 值:0, 标记:真})

' 第三行数据
加入成员 (数据表格, {行号:3, 列号:1, 值:55, 标记:假})
' ...（其他行数据类似添加）

子程序名	返回值类型	公开	备 注
条件遍历表格
参数名	类 型	参考	可空	数组	备 注
处理条件	子程序指针  ' 接收判断条件的子程序

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (取数组成员数 (数据表格), i)
' 跳过已处理单元格
如果真 (数据表格[i].标记)
到循环尾 ()

' 执行条件判断
如果 (调用子程序 (处理条件, 数据表格[i].值))
输出调试文本 ("行" ＋ 到文本 (数据表格[i].行号) ＋ "列" ＋ 到文本 (数据表格[i].列号) ＋ "值" ＋ 到文本 (数据表格[i].值) ＋ "满足条件")

' 标记为已处理（可根据需求调整）
数据表格[i].标记 ＝ 真

' 执行自定义操作
处理单元格 (数据表格[i])
输出调试文本 ("行" ＋ 到文本 (数据表格[i].行号) ＋ "列" ＋ 到文本 (数据表格[i].列号) ＋ "不满足条件")

计次循环尾 ()

子程序名	返回值类型	公开	备 注
示例条件_大于30
参数名	类 型	参考	可空	数组	备 注
单元格值	整数型

返回 (单元格值 ＞ 30)

子程序名	返回值类型	公开	备 注
示例条件_是奇数
参数名	类 型	参考	可空	数组	备 注
单元格值	整数型

返回 (单元格值 ％ 2 ＝ 1)

子程序名	返回值类型	公开	备 注
示例条件_包含数字5
参数名	类 型	参考	可空	数组	备 注
单元格值	整数型

返回 (寻找文本 (到文本 (单元格值), "5", , 假) ＞ 0)

子程序名	返回值类型	公开	备 注
处理单元格
参数名	类 型	参考	可空	数组	备 注
当前单元格	表格元素

' 示例1：累加值
全局_总和 ＝ 全局_总和 ＋ 当前单元格.值
' 示例2：记录位置
加入成员 (全局_结果数组, 当前单元格)
' 示例3：修改值
如果 (当前单元格.值 ＞ 50)
当前单元格.值 ＝ 当前单元格.值 － 10

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

初始化表格 ()

' 案例1：找出所有大于30的单元格
条件遍历表格 (&示例条件_大于30)

' 案例2：处理所有奇数单元格
条件遍历表格 (&示例条件_是奇数)

' 案例3：自定义处理
条件遍历表格 (&自定义条件)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .数据类型 表格元素<br />     .成员 行号, 整数型<br />     .成员 列号, 整数型<br />     .成员 值, 整数型<br />     .成员 标记, 逻辑型  ' 用于记录处理状态<br /> <br /> .程序集变量 数据表格, 表格元素, , "0"  ' 二维数组模拟表格<br /> .程序集变量 总行数, 整数型<br /> .程序集变量 总列数, 整数型<br /> <br /> .子程序 初始化表格<br />     ' 根据图片中的数据创建4行5列表格<br />     总行数 ＝ 4<br />     总列数 ＝ 5<br />     <br />     ' 第一行数据<br />     加入成员 (数据表格, {行号:1, 列号:1, 值:52, 标记:假})<br />     加入成员 (数据表格, {行号:1, 列号:2, 值:21, 标记:假})<br />     加入成员 (数据表格, {行号:1, 列号:3, 值:33, 标记:假})<br />     加入成员 (数据表格, {行号:1, 列号:4, 值:44, 标记:假})<br />     加入成员 (数据表格, {行号:1, 列号:5, 值:55, 标记:假})<br />     <br />     ' 第二行数据（注意有空单元格）<br />     加入成员 (数据表格, {行号:2, 列号:1, 值:20, 标记:假})<br />     加入成员 (数据表格, {行号:2, 列号:2, 值:21, 标记:假})<br />     加入成员 (数据表格, {行号:2, 列号:3, 值:0, 标记:真})  ' 空单元格标记为已处理<br />     加入成员 (数据表格, {行号:2, 列号:4, 值:0, 标记:真})<br />     加入成员 (数据表格, {行号:2, 列号:5, 值:0, 标记:真})<br />     <br />     ' 第三行数据<br />     加入成员 (数据表格, {行号:3, 列号:1, 值:55, 标记:假})<br />     ' ...（其他行数据类似添加）<br /> <br /> .子程序 条件遍历表格<br /> .参数 处理条件, 子程序指针  ' 接收判断条件的子程序<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (数据表格), i)<br />     ' 跳过已处理单元格<br />     .如果真 (数据表格<i>.标记)<br />         到循环尾 ()<br />     .如果真结束<br />     <br />     ' 执行条件判断<br />     .如果 (调用子程序 (处理条件, 数据表格<i>.值))<br />         输出调试文本 ("行" ＋ 到文本(数据表格<i>.行号) ＋ "列" ＋ 到文本(数据表格<i>.列号) ＋ "值" ＋ 到文本(数据表格<i>.值) ＋ "满足条件")<br />         <br />         ' 标记为已处理（可根据需求调整）<br />         数据表格<i>.标记 ＝ 真<br />         <br />         ' 执行自定义操作<br />         处理单元格 (数据表格<i>)<br />     .否则<br />         输出调试文本 ("行" ＋ 到文本(数据表格<i>.行号) ＋ "列" ＋ 到文本(数据表格<i>.列号) ＋ "不满足条件")<br />     .如果结束<br /> .计次循环尾 ()<br /> <br /> .子程序 示例条件_大于30<br /> .参数 单元格值, 整数型<br /> 返回 (单元格值 ＞ 30)<br /> <br /> .子程序 示例条件_是奇数<br /> .参数 单元格值, 整数型<br /> 返回 (单元格值 ％ 2 ＝ 1)<br /> <br /> .子程序 示例条件_包含数字5<br /> .参数 单元格值, 整数型<br /> 返回 (寻找文本 (到文本 (单元格值), "5", , 假) ＞ 0)<br /> <br /> .子程序 处理单元格<br /> .参数 当前单元格, 表格元素<br /> <br /> ' 示例1：累加值<br /> 全局_总和 ＝ 全局_总和 ＋ 当前单元格.值<br /> <br /> ' 示例2：记录位置<br /> 加入成员 (全局_结果数组, 当前单元格)<br /> <br /> ' 示例3：修改值<br /> .如果 (当前单元格.值 ＞ 50)<br />     当前单元格.值 ＝ 当前单元格.值 － 10<br /> .如果结束<br /> <br /> .子程序 __启动窗口_创建完毕<br />     初始化表格 ()<br />     <br />     ' 案例1：找出所有大于30的单元格<br />     条件遍历表格 (&示例条件_大于30)<br />     <br />     ' 案例2：处理所有奇数单元格<br />     条件遍历表格 (&示例条件_是奇数)<br />     <br />     ' 案例3：自定义处理<br />     条件遍历表格 (&自定义条件)