E4A求余取值函数

求余取值函数(默认不大于20)

函数 求余取值(输入 为 文本型,求余值 为 整数型) 为 文本型
	变量 求余临存 为 整数型
	如果 输入 = "" 则
		求余取值 = ""
		退出
	结束 如果
	如果 求余值 % 2 = 0 则
		求余临存 = 0
		否则
		求余临存 = 1
	结束 如果
	创建表达式("(\\d{1})出现:(.*?)(\\d{1,2})",真,真)
	开始匹配(输入)
	变量 结果 为 文本型 = ""
	判断循环首 匹配下一个()
		变量 数字 为 文本型 = 取子匹配文本(1)
		变量 次数 为 文本型 = 取子匹配文本(3)
		如果 求余临存 = 0 则
			如果 到整数(次数) < 20 且 到整数(次数) % 2 = 0 则
				结果 = 结果 & 数字
			结束 如果
			否则
			如果 到整数(次数) < 20 且 到整数(次数) % 2 <> 0 则
				结果 = 结果 & 数字
			结束 如果
		结束 如果
	判断循环尾
	求余取值 = 结果
结束 函数
事件 按钮1.被单击()
	编辑框2.内容 = 求余取值(编辑框1.内容,到整数(编辑框3.内容))
结束 事件
默认图片
linwute
我要像梦一样自由,像大地一样宽容; 在艰辛放逐的路上,点亮生命的光芒; 我要像梦一样自由,像天空一样坚强; 在曲折蜿蜒的路上,体验生命的意义;

留下评论