🚀 go-pugleaf

Cual es el problema? que no te funciona o queda feo con muchos charat()?

Pagina:

http://www.juque.cl/demos/validador.rut.javascript/


Codigo:

//
// Validador de Rut
// Descargado desde http://www.juque.cl/
//
function revisarDigito( dvr )
{	
	dv = dvr + ""	
	if ( dv != '0' && dv != '1' && dv != '2' && dv != '3' && dv != '4' && 
dv != '5' && dv != '6' && dv != '7' && dv != '8' && dv != '9' && dv != 
'k'  && dv != 'K')	
	{		
		alert("Debe ingresar un digito verificador valido");		
		window.document.form1.rut.focus();		
		window.document.form1.rut.select();		
		return false;	
	}	
	return true;
}

function revisarDigito2( crut )
{	
	largo = crut.length;	
	if ( largo < 2 )	
	{		
		alert("Debe ingresar el rut completo")		
		window.document.form1.rut.focus();		
		window.document.form1.rut.select();		
		return false;	
	}	
	if ( largo > 2 )		
		rut = crut.substring(0, largo - 1);	
	else		
		rut = crut.charAt(0);	
	dv = crut.charAt(largo-1);	
	revisarDigito( dv );	

	if ( rut == null || dv == null )
		return 0	

	var dvr = '0'	
	suma = 0	
	mul  = 2	

	for (i= rut.length -1 ; i >= 0; i--)	
	{	
		suma = suma + rut.charAt(i) * mul		
		if (mul == 7)			
			mul = 2		
		else    			
			mul++	
	}	
	res = suma % 11	
	if (res==1)		
		dvr = 'k'	
	else if (res==0)		
		dvr = '0'	
	else	
	{		
		dvi = 11-res		
		dvr = dvi + ""	
	}
	if ( dvr != dv.toLowerCase() )	
	{		
		alert("EL rut es incorrecto")		
		window.document.form1.rut.focus();		
		window.document.form1.rut.select();		
		return false	
	}

	return true
}

function Rut(texto)
{	
	var tmpstr = "";	
	for ( i=0; i < texto.length ; i++ )		
		if ( texto.charAt(i) != ' ' && texto.charAt(i) != '.' && 
texto.charAt(i) != '-' )
			tmpstr = tmpstr + texto.charAt(i);	
	texto = tmpstr;	
	largo = texto.length;	

	if ( largo < 2 )	
	{		
		alert("Debe ingresar el rut completo")		
		window.document.form1.rut.focus();		
		window.document.form1.rut.select();		
		return false;	
	}	

	for (i=0; i < largo ; i++ )	
	{			
		if ( texto.charAt(i) !="0" && texto.charAt(i) != "1" && 
texto.charAt(i) !="2" && texto.charAt(i) != "3" && texto.charAt(i) != 
"4" && texto.charAt(i) !="5" && texto.charAt(i) != "6" && 
texto.charAt(i) != "7" && texto.charAt(i) !="8" && texto.charAt(i) != 
"9" && texto.charAt(i) !="k" && texto.charAt(i) != "K" )
  		{			
			alert("El valor ingresado no corresponde a un R.U.T valido");			
			window.document.form1.rut.focus();			
			window.document.form1.rut.select();			
			return false;		
		}	
	}	

	var invertido = "";	
	for ( i=(largo-1),j=0; i>=0; i--,j++ )		
		invertido = invertido + texto.charAt(i);	
	var dtexto = "";	
	dtexto = dtexto + invertido.charAt(0);	
	dtexto = dtexto + '-';	
	cnt = 0;	

	for ( i=1,j=2; i<largo; i++,j++ )	
	{		
		//alert("i=[" + i + "] j=[" + j +"]" );		
		if ( cnt == 3 )		
		{			
			dtexto = dtexto + '.';			
			j++;			
			dtexto = dtexto + invertido.charAt(i);			
			cnt = 1;		
		}		
		else		
		{				
			dtexto = dtexto + invertido.charAt(i);			
			cnt++;		
		}	
	}	

	invertido = "";	
	for ( i=(dtexto.length-1),j=0; i>=0; i--,j++ )		
		invertido = invertido + dtexto.charAt(i);	

	window.document.form1.rut.value = invertido.toUpperCase()		

	if ( revisarDigito2(texto) )		
		return true;	

	return false;
}

rro


Rick_oj wrote:
> vale pero no me sirve en vb
> :(
> 
> "gato2008chile" <gato2008chileSINESTO@gmail.com> escribi� en el mensaje 
> news:fr7ao1$d1s$1@news.nivel5.cl...
>> En VB hice uso de dos eventos y funciones, una validaba el formato y otra 
>> el digito.
>> chRut valida el formato, debe ser de la forma 123456-7,solo permite el 
>> ingreso de numeros y "-", verifica que si el caracter es ingresado es "-" 
>> este en la posicion largo-1,etc.
>>
>> En el evento change
>> txtRut.Text = chRut(txtRut.Text)
>> txtRut.SelStart = Len(txtRut.Text)
>>
>> En el evento keypress
>>
>> txtRut.Text = chRut(txtRut.Text)
>> If KeyAscii = 13 Then
>> ValRut(texto1.text)
>> End If
>>
>>
>>
>> Public Function ValRut(ByVal cadena As String) As Boolean
>> Dim ln As Integer, tp As Integer, i As Integer, _
>> j As Integer, sum As Integer, ctemp As String
>>
>> ln = Len(cadena)
>> If ln < 3 Then
>>     ValRut = False
>> ElseIf ln >= 3 Then
>>     tp = InStr(1, cadena, "-", vbTextCompare)
>>     If tp = 0 Then
>>         ValRut = False
>>     ElseIf tp <> (ln - 1) Then
>>         ValRut = False
>>     Else
>>         sum = 0
>>         j = 2
>>         For i = (tp - 1) To 1 Step -1
>>             st = Val(Mid(cadena, i, 1))
>>             If st >= 0 And st <= 9 Then
>>                 sum = sum + st * j
>>                 j = j + 1
>>                 If j = 8 Then
>>                     j = 2
>>                 End If
>>             Else
>>                 ValRut = False
>>                 Exit Function
>>             End If
>>         Next
>>         dv = sum Mod 11
>>         ctemp = Mid(cadena, ln, 1)
>>         If dv = 0 Then
>>             If ctemp = "k" Or ctemp = "K" Then
>>                 ValRut = True
>>             Else
>>                 ValRut = False
>>             End If
>>         Else
>>
>>             If (11 - dv) = Val(ctemp) Then
>>                 ValRut = True
>>             Else
>>                 ValRut = False
>>             End If
>>         End If
>>     End If
>> End If
>> End Function
>>
>>
>> Public Function chRut(ByVal cadena As String) As String
>> Dim ln As Integer
>> Dim pos As Integer
>> Dim cs As Integer
>> Dim cadt As String
>>
>> ln = Len(cadena)
>> pos = InStr(cadena, "-")
>> If pos = 0 Then
>>     chRut = IIf(Val(cadena) = 0, "", Format(Val(cadena)))
>> ElseIf pos <= 4 Then
>>     chRut = ""
>> ElseIf pos = ln Then
>>     chRut = Format(Val(Left(cadena, ln - 1))) & "-"
>> ElseIf pos <= (ln - 1) Then
>>     cadt = Left(cadena, pos + 1)
>>     cs = Asc(Right(cadt, 1))
>>     If ((cs < 48 Or cs > 57) And cs <> 13) _
>>         And cs <> 45 Then
>>             chRut = Left(cadt, ln - 1)
>>     Else
>>             chRut = cadt
>>     End If
>> End If
>> End Function
>>
>>
>> Rick_oj escribi�:
>>> "Rick_oj" <rick_oj[sin-esto]@tutopia.com> escribi� en el mensaje 
>>> news:fqq6gv$uj2$1@news.nivel5.cl...
>>>> necesito validar el dichoso rut en un mismo campo de texto con el guion, 
>>>> he encontrado varios script qu ehacen lo mismo, pero al aplicarlo no me 
>>>> funciona, encontre este que es mas sencillo, pero lo hace en dos campos 
>>>> de textos, y lo hace automatico (el digito verificador)
>>> nadie?
>>> :( 
> 
>