e4a依中间值反转取值的上N个和下写法N个
函数 取上下(欲取位置 为 文本型,取上量 为 整数型,取下量 为 整数型)为 文本型
变量 每一行 为 文本型()
变量 I 为 整数型
变量 总行数 为 整数型
变量 后五前 为 整数型
每一行 = 分割文本(欲取位置,"\n")
总行数 = 取数组成员数(每一行)
后五前 = 总行数 - 取下量
判断循环首 I < 取数组成员数(每一行)
如果 I < 取上量 则
取上下 = 取上下 & 取文本左边(每一行(I),1) ''取顶部7个
结束 如果
I = I + 1
判断循环尾
I= 0
判断循环首 I < 取数组成员数(每一行)
如果 I > 后五前 - 1 则
取上下 = 取上下 & 取文本左边(每一行(I),1) ''取底部5个
结束 如果
I = I + 1
判断循环尾
I= 0
'''''''''''写法 编辑框4.内容 = 编辑框4.内容 & 取上下(编辑框1.内容,到整数(编辑框6.内容),到整数(编辑框7.内容))
结束 函数
1,169 Views