求助文本取指定列

lianzhong

文本共有10列数字，取指定列到编辑框，第10列用0代表，求助源码例子，谢谢。

Suky

  

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

变量名	类 型	静态	数组	备 注
文本组	文本型		0
列号组	整数型		0
n	整数型
i	整数型
位置	整数型

文本组 ＝ 分割文本 (编辑框1.内容, #换行符, )
调试输出 (文本组)
计次循环首 (取文本长度 (编辑框2.内容), n)
加入成员 (列号组, 到整数 (取文本中间 (编辑框2.内容, n, 1)))
计次循环尾 ()
调试输出 (列号组)
编辑框3.内容 ＝ “”
计次循环首 (取数组成员数 (文本组), n)
计次循环首 (取数组成员数 (列号组), i)
判断 (列号组 [i] ＝ 0)
位置 ＝ 10
位置 ＝ 列号组 [i]
编辑框3.加入文本 (取文本中间 (文本组 [n], 位置, 1))
计次循环尾 ()
编辑框3.加入文本 ( #换行符 )
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本组, 文本型, , "0"<br /> .局部变量 列号组, 整数型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 位置, 整数型<br /> <br /> 文本组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 调试输出 (文本组)<br /> .计次循环首 (取文本长度 (编辑框2.内容), n)<br />     加入成员 (列号组, 到整数 (取文本中间 (编辑框2.内容, n, 1)))<br /> .计次循环尾 ()<br /> 调试输出 (列号组)<br /> 编辑框3.内容 ＝ “”<br /> .计次循环首 (取数组成员数 (文本组), n)<br />     .计次循环首 (取数组成员数 (列号组), i)<br />         .判断开始 (列号组 <i> ＝ 0)<br />             位置 ＝ 10<br />         .默认<br />             位置 ＝ 列号组 <i><br />         .判断结束<br />         编辑框3.加入文本 (取文本中间 (文本组 [n], 位置, 1))<br />     .计次循环尾 ()<br />     编辑框3.加入文本 (#换行符)<br /> .计次循环尾 ()

111.e (3.94 KB, 下载次数: 1)

2022-9-16 22:39 上传

点击文件名下载附件

Ls60

写法有点鸡肋，不过能用 demo.e (1.01 MB, 下载次数: 2)

2022-9-16 21:32 上传

点击文件名下载附件

lianzhong

@Ls60 老师好，当输入1234567890后去取，会多出一部分无效的内容，怎么处理？

Ls60

lianzhong 发表于 2022-9-16 22:32
@Ls60 老师好，当输入1234567890后去取，会多出一部分无效的内容，怎么处理？
...

在那个如果真的里面的局_计次后加个2就可以了（没留意顺序搞错了

lianzhong

感谢“LS60”老师的答案及回复，你的代码实现了目标。感谢“陌上寸草”老师的答案，你的方案也完美实现了目标，两位都实现了目标，为了给其他新手留查方便，选陌上寸草老师答案为优，感谢。