E4a取下n个上六n个值

E4a取下n个上六n个值

事件 按钮1.被单击()
	变量 每一行 为 文本型()
	变量 I 为 整数型
	变量 总行数 为 整数型
	变量 后五前 为 整数型
	编辑框2.内容 = ""
	编辑框3.内容 = ""
	每一行 = 分割文本(编辑框1.内容,"n")
	总行数 = 取数组成员数(每一行)
	后五前 = 总行数 - 5
	'这个时候就先取出前面的
	判断循环首 I < 取数组成员数(每一行)
		如果 I > 后五前 - 1 则
			编辑框2.加入文本(取文本左边(每一行(I),1) & "n")'取底部5个
		结束 如果
		I = I + 1
	判断循环尾
	I= 0
	判断循环首 I < 取数组成员数(每一行)
		如果 I < 7 则
			编辑框3.加入文本(取文本左边(每一行(I),1) & "n")'取顶部7个
		结束 如果
		I = I + 1
	判断循环尾
结束 事件

 

780 Views
分享你的喜爱
linwute
linwute

我要像梦一样自由,像大地一样宽容;
在艰辛放逐的路上,点亮生命的光芒;
我要像梦一样自由,像天空一样坚强;
在曲折蜿蜒的路上,体验生命的意义;

留下评论

您的邮箱地址不会被公开。 必填项已用 * 标注