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)
否则
取指定文本右边 = ""
结束 如果
结束 函数
1,246 Views
