...怎么把不包含1和6两个数字的行数提取出来放到编辑框2里面

发布网友发布时间：2024-10-22 23:50

共2个回答

热心网友时间：2024-10-28 18:44

手机打的，这几天没时间电脑上。
首先定几个变量。
1. temp 文本型数组(填个0)就可以了
2.i 整数型
3.j 整数型
bjk2.nr=""
temp=split(bjk1.nr,#换行符)'将编辑框1的内容以换行符分隔存入数组变量
计次循环首(取数组下标(temp),i)
计次循环首(取文本长度(temp[i]),j)'如果每行长度都是4个字，也可以换面(4,j)
如果真(mid(temp[i],j,1)="1" or mid(temp[i],j,1)="6")
bjk2.nr=bjk2.nr+temp[i]+#换行符
跳出循环()
计次循环尾()
计次循环尾()
如果真(取文本长度(bjk2.nr)>0)
bjk2.nr=取文本左边(bjk2.nr,取文本长度(bjk2.nr)-1)
'上面这段放到易语言里应该都会变成中文的(如果没有打错)，注意每一行的位置是否正确

热心网友时间：2024-10-28 18:40

先获取到数字，然后写一个判断函数，返回一个数组，最后把这个赋值给第二个框