如何提取多组里最长的一行文字？求老师指点。谢谢！

启蒙易学

要求把每组里最长的一行文字提取到编辑框2里，求老师指点，谢谢！

yuyun1888

.版本 2

.子程序 _按钮1_被单击
.局部变量 s1, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 max, 整数型
.局部变量 r1, 整数型
.局部变量 数值1, 文本型, , "0"
.局部变量 a, 整数型

数值1 ＝ 分割文本 (编辑框1.内容, #换行符 ＋ #换行符, )
.计次循环首 (取数组成员数 (数值1), a)
    s1 ＝ 分割文本 (数值1 [a], #换行符, )
    max ＝ 0
    .计次循环首 (取数组成员数 (s1), i)
        .如果真 (取文本长度 (s1 [i]) ＞ max)
            max ＝ 取文本长度 (s1 [i])
            r1 ＝ i
        .如果真结束

    .计次循环尾 ()
    编辑框2.加入文本 (s1 [r1] ＋ #换行符)
.计次循环尾 ()

影知

取文本长度（）

世豪

取最长的一行文字.e (5.23 KB, 下载次数: 2)

2020-4-7 16:47 上传

点击文件名下载附件

世豪

世豪 发表于 2020-4-7 16:47

上面的不对。

  

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

变量名	类 型	静态	数组	备 注
s1	文本型		0
i	整数型
max	整数型
r1	整数型

s1 ＝ 分割文本 (编辑框1.内容, #换行符 ＋ #换行符, )
计次循环首 (取数组成员数 (s1), i)
如果真 (取文本长度 (s1 [i]) ＞ max)
max ＝ 取文本长度 (s1 [i])
r1 ＝ i
调试输出 (取文本长度 (s1 [i]))
调试输出 (max)
计次循环尾 ()
调试输出 (s1 [r1])
调试输出 (“---第二段---”)
s1 ＝ 分割文本 (编辑框2.内容, #换行符, )
计次循环首 (取数组成员数 (s1), i)
如果真 (取文本长度 (s1 [i]) ＞ max)
max ＝ 取文本长度 (s1 [i])
r1 ＝ i

计次循环尾 ()
调试输出 (s1 [r1])

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 s1, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 max, 整数型<br /> .局部变量 r1, 整数型<br /> <br /> s1 ＝ 分割文本 (编辑框1.内容, #换行符 ＋ #换行符, )<br /> <br /> .计次循环首 (取数组成员数 (s1), i)<br />     .如果真 (取文本长度 (s1 <i>) ＞ max)<br /> <br />         max ＝ 取文本长度 (s1 <i>)<br />         r1 ＝ i<br /> <br />     .如果真结束<br />     调试输出 (取文本长度 (s1 <i>))<br />     调试输出 (max)<br /> .计次循环尾 ()<br /> 调试输出 (s1 [r1])<br /> <br /> 调试输出 (“---第二段---”)<br /> s1 ＝ 分割文本 (编辑框2.内容, #换行符, )<br /> <br /> .计次循环首 (取数组成员数 (s1), i)<br />     .如果真 (取文本长度 (s1 <i>) ＞ max)<br /> <br />         max ＝ 取文本长度 (s1 <i>)<br />         r1 ＝ i<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (s1 [r1])

补充内容 (2020-4-7 16:56):
第二段之前需要添加一行 max = 0

启蒙易学

世豪老师你好。我的要求是从编辑框1里提取每组里最长的那一行。编辑框2里是要求的最后要的结果,即提取编辑框1里各组里的最长的那一行。怎样分别提取呢？