function GetValue()
	delimiter = channel.GetChild(0):GetText()
	text = channel.GetChild(1):GetText()
	if string.find("", delimiter, 1) then -- check for empty delimiter
		return 0
	end

	res = 0
	pos = 1
	while true do
		local first, last = string.find(text, delimiter, pos)
		if first then
			res = res + 1
			pos = last + 1
		else
			break
		end
	end

	return res
end

function GetValue()
	delimiter = channel.GetChild(0):GetText()
	text = channel.GetChild(1):GetText()
	local pos=0
	local res=0
	local tMax1 = string.len(delimiter)
	local tMax2 = string.len(text)
	while pos<tMax2 do
		if string.sub(text,pos+1,pos+tMax1)==delimiter then
			res = res + 1
			pos = pos+tMax1
		else
			pos = 1 + pos
		end

	end
return res
end