// Archivo JScript
function CHTML(cadena)
{
	var i;
	var salida='';
    
	for (i=0;i<cadena.length;i++)
	{
		if (cadena.charAt(i) == '"') salida = salida + '&quot;';
		else 
		if (cadena.charAt(i) == '<') salida = salida + '&lt;';
		else
		if (cadena.charAt(i) == '>') salida = salida + '&gt;';
		else
		salida = salida + cadena.charAt(i);
	}
	return salida;
}
function reemplazar(cadena, original, final)
{
	var i=0;
	var p = 0;
	var k = 0;
	original = original.toUpperCase();
	p = cadena.toUpperCase().indexOf(original, i);
	while (p > -1 && k < 1000)
	{
		cadena = cadena.substring(0, p) + final + cadena.substring(p + original.length, cadena.length);

		i = p + final.length;

		p = cadena.toUpperCase().indexOf(original, i);

		k++;
	}

	return cadena;
}
function CEntero(param)
{
	var cadena = param
	var salida ='';
	var i,j,k;
		for (i=0;i<cadena.length;i++)
		{
				if (parseInt(cadena.charAt(i))==cadena.charAt(i) || cadena.charAt(i)=='.') salida = salida + cadena.charAt(i);
		}
		j = salida.length;

		return salida;
}
function ltrim(cadena)
{
	var i;
	var resultado='';
    var comodin = ' ';

	if (cadena!=null && cadena!='')
	{
		for (i=0;i<cadena.length;i++)
		{
			if (cadena.substring(i,i+1)!=comodin || resultado.length>0)
			{
				resultado+=cadena.substring(i,i+1);
			}
		}
	}
	return resultado;
}
function rtrim(cadena)
{
	var i;
	var resultado='';
    var comodin = ' ';

	if (cadena!=null && cadena!='')
	{
		for (i=cadena.length-1;i>=0;i--)
		{
			if (cadena.substring(i,i+1)!=comodin || resultado.length>0)
			{
				resultado=cadena.substring(i,i+1)+resultado;
			}
		}
	}
	return resultado;
}
function trim(cadena)
{
	return rtrim(ltrim(cadena,' '),' ');
}