Función para contar subcadeas dunha cadea
Pois como é algo que sempre andamos a buscar, pois poño aquí unha función que devolve o número de veces que unha cadea dada aparece noutra cadea. Está feito para VBScript.
function repeticiones(cadena, subcadena)
dim i, pos
repeticiones = 0
for i = 1 to len(cadena)
pos = instr(i, cadena, subcadena)
if pos > 0 then
repeticiones = repeticiones + 1
i = pos
end if
next
end function
Por Manuel Cameselle
