查找行位置

yq1431

1.2.3.4.5
5.4.3.2.1
2.3.4.5.1
4.2.5.4.1
--------------------
例：第一行的4  在第4列
查找第4列的4在第几行



补充内容 (2025-2-27 09:24):
只查找第4列的4在第几行

黑蟑螂

KD飞飞 发表于 2025-2-27 09:19

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

[/quote]
[e=0].版本 2

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
行数组	文本型	0

子程序名	返回值类型	公开	备 注
解析数据
参数名	类 型	参考	可空	数组	备 注
原始数据	文本型

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

行数组 ＝ 分割文本 (文本_删除空行 (原始数据), #换行符, )

子程序名	返回值类型	公开	备 注
查找行中某值的列号	整数型		查找某行是否存在某个文本，找到返回第几列，找不到返回-1
参数名	类 型	参考	可空	数组	备 注
行号	整数型
目标值	文本型

变量名	类 型	静态	数组	备 注
列数据	文本型		0
j	整数型

列数据 ＝ 分割文本 (文本_删首尾空 (行数组 [行号]), “.”, )
计次循环首 (取数组成员数 (列数据), j)
如果真 (列数据 [j] ＝ 目标值)
返回 (j)

计次循环尾 ()
返回 (-1)  ' 未找到

子程序名	返回值类型	公开	备 注
查找列中某值的行号	整数型
参数名	类 型	参考	可空	数组	备 注
列号	整数型
目标值	文本型

变量名	类 型	静态	数组	备 注
行数据	文本型		0
i	整数型

计次循环首 (取数组成员数 (行数组), i)
行数据 ＝ 分割文本 (文本_删首尾空 (行数组 [i]), “.”, )
如果真 (取数组成员数 (行数据) ≥ 列号)
如果真 (行数据 [列号] ＝ 目标值)
返回 (i)


计次循环尾 ()
返回 (-1)  ' 未找到

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
输入数据	文本型
行号	整数型
目标列	整数型
结果行号	整数型

输入数据 ＝ #常量1  ' 假设常量1存放原始数据
解析数据 (输入数据)
行号 ＝ 1
目标列 ＝ 查找行中某值的列号 (行号, “4”)
输出调试文本 (“第”, 行号, “行的4在第”, 目标列, “列”)
' 示例调用：查找第4列的4在第几行
结果行号 ＝ 查找列中某值的行号 (目标列, “4”)
输出调试文本 (“第”, 目标列, “列的4在第”, 结果行号, “行”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口</blockquote></div><br /> [e=0].版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 行数组, 文本型, , "0"<br /> <br /> .子程序 解析数据<br /> .参数 原始数据, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 行数组 ＝ 分割文本 (文本_删除空行 (原始数据), #换行符, )<br /> <br /> .子程序 查找行中某值的列号, 整数型, , 查找某行是否存在某个文本，找到返回第几列，找不到返回-1<br /> .参数 行号, 整数型<br /> .参数 目标值, 文本型<br /> .局部变量 列数据, 文本型, , "0"<br /> .局部变量 j, 整数型<br /> <br /> 列数据 ＝ 分割文本 (文本_删首尾空 (行数组 [行号]), “.”, )<br /> .计次循环首 (取数组成员数 (列数据), j)<br />     .如果真 (列数据 [j] ＝ 目标值)<br />         返回 (j)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (-1)  ' 未找到<br /> <br /> .子程序 查找列中某值的行号, 整数型<br /> .参数 列号, 整数型<br /> .参数 目标值, 文本型<br /> .局部变量 行数据, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (行数组), i)<br />     行数据 ＝ 分割文本 (文本_删首尾空 (行数组 <i>), “.”, )<br />     .如果真 (取数组成员数 (行数据) ≥ 列号)<br />         .如果真 (行数据 [列号] ＝ 目标值)<br />             返回 (i)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (-1)  ' 未找到<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 输入数据, 文本型<br /> .局部变量 行号, 整数型<br /> .局部变量 目标列, 整数型<br /> .局部变量 结果行号, 整数型<br /> <br /> 输入数据 ＝ #常量1  ' 假设常量1存放原始数据<br /> 解析数据 (输入数据)<br /> 行号 ＝ 1<br /> 目标列 ＝ 查找行中某值的列号 (行号, “4”)<br /> 输出调试文本 (“第”, 行号, “行的4在第”, 目标列, “列”)<br /> <br /> ' 示例调用：查找第4列的4在第几行<br /> 结果行号 ＝ 查找列中某值的行号 (目标列, “4”)<br /> 输出调试文本 (“第”, 目标列, “列的4在第”, 结果行号, “行”)

黑蟑螂

是超级列表框 还是编辑框，还是高级表格或者超级表格都没说，咋帮你写？哥们儿，你这问题提得我都不知道怎么帮你！！！

yq1431

黑蟑螂 发表于 2025-2-27 09:11
是超级列表框 还是编辑框，还是高级表格或者超级表格都没说，咋帮你写？哥们儿，你这问题提得我都不知道怎 ...

文本...................

黑蟑螂

先逐行分割，在把行内容 分割，然后循环查找行 在循环查找列 就OK了

KD飞飞

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
分割后的文本	文本型		0
a	整数型
单行单字解析	文本型		0
b	整数型
所在行信息	整数型

分割后的文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (分割后的文本), a)
处理事件 ()
单行单字解析 ＝ 分割文本 (分割后的文本 [a], “.”, )
如果 (单行单字解析 [1] ＝ “4”)
所在行信息 ＝ a
跳出循环 ()



计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 分割后的文本, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 单行单字解析, 文本型, , "0"<br /> .局部变量 b, 整数型<br /> .局部变量 所在行信息, 整数型<br /> <br /> 分割后的文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (分割后的文本), a)<br />     处理事件 ()<br />     单行单字解析 ＝ 分割文本 (分割后的文本 [a], “.”, )<br />     .如果 (单行单字解析 [1] ＝ “4”)<br />         所在行信息 ＝ a<br />         跳出循环 ()<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()

yq1431

KD飞飞 发表于 2025-2-27 09:19
[e=0].版本 2

.程序集 窗口程序集_启动窗口

只查找第4列的4   

yq1431

只查找第4列的4在第几行

KD飞飞

yq1431 发表于 2025-2-27 09:22
只查找第4列的4

是这样的

yq1431

黑蟑螂 发表于 2025-2-27 09:18
先逐行分割，在把行内容 分割，然后循环查找行 在循环查找列 就OK了

思路我知道，就是不知道怎么写