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

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


函数 查找同位(旧内容 为 文本型,被取内容 为 文本型,条件 为 文本型) 为 文本型
	变量 编辑框1内容分割 为 文本型()
	变量 编辑框2内容分割 为 文本型()
	变量 I 为 整数型
	变量 位置 为 整数型
	编辑框1内容分割 = 分割文本(旧内容,"\n")
	编辑框2内容分割 = 分割文本(被取内容,"\n")
	判断循环首 I < 取数组成员数(编辑框1内容分割)
		如果 条件 = 取文本左边(编辑框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条件查找取指定位置文本右边(同位值)

222 Views
分享你的喜爱
linwute
linwute

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

留下评论

您的电子邮箱地址不会被公开。