e4a条件查找取指定位置文本右边(同位值)源码.e4a

事件 按钮1.被单击()
	如果 编辑框_条件框.内容 = "" 则
		弹出提示("条件框不能为空！")
		否则
		'弹出提示(取指定文本右边("0出现:2",":"))'测试用
		编辑框3.内容 = 开始查找(编辑框1.内容,编辑框2.内容,编辑框_条件框.内容) '函数 开始查找 并且返回查找的数据
	结束 如果
结束 事件
函数 开始查找(编辑框1内容 为 文本型,编辑框2内容 为 文本型,条件 为 文本型) 为 文本型
	变量 编辑框1内容分割 为 文本型()
	变量 编辑框2内容分割 为 文本型()
	变量 I 为 整数型
	变量 位置 为 整数型
	编辑框1内容分割 = 分割文本(编辑框1内容,"\n") '将编辑框1的内容进行行分割
	编辑框2内容分割 = 分割文本(编辑框2内容,"\n") '将编辑框2的内容进行行分割
	判断循环首 I < 取数组成员数(编辑框1内容分割) '每一行循环判断第一个数字
		'信息框("0","条件" & 条件 & "右边" & 取指定文本右边(编辑框1内容分割(I),":"),"0")
		'信息框("0","条件" & 条件 & "信息" & 编辑框1内容分割(I) &"右边" & 取指定文本右边(编辑框1内容分割(I),":"),"0")
		如果 条件 = 取文本左边(编辑框1内容分割(I),1) 且 到整数(取指定文本右边(编辑框1内容分割(I),":")) > 0 则 '如果符合我们要找的数字 就将位置赋值给 变量 位置 然后退出循环
			位置  = I
			退出
			否则
			位置 = -1
		结束 如果
		I = I + 1
	判断循环尾
	如果 位置 = -1 则
		弹出提示("欲查找的数字：" & 条件 & "在编辑框1内没有找到大于1的数据")
		否则
		开始查找 = 取文本左边(编辑框2内容分割(位置),1) '返回查找到的数据
	结束 如果
结束 函数
函数 取指定文本右边(代取文本 为 文本型,左边文本 为 文本型) 为 文本型
	变量 Star 为 整数型
	Star = 寻找文本(代取文本,左边文本,0)
	如果 Star <> -1 则
		取指定文本右边 = 取文本中间(代取文本,Star+1,取文本长度(代取文本)-Star)
		否则
		取指定文本右边 = ""
	结束 如果
结束 函数

e4a条件查找取指定位置文本右边(同位值)源码.e4a