Convertir Rut sólo en números

[lucasarts_18]

Empezado por dec

Hola,

No tengo ni idea de lo que es un "dxedit" y no sé qué pueda ser una "rut".

Si no me equivoco en dxedit es un componente de la suite Developer Express, especificamente una caja de texto, en cuanto al rut, en Chile por lo menos, es un número único que identifica a una persona en el país, no se si será así en otro país.

Y en cuanto a nuestra amiga, creo que debería especificar un poco mas el problema..

Hasta luego

[dec]

Hola,

Empezado por Aarón

Si no me equivoco en dxedit es un componente de la suite Developer Express, especificamente una caja de texto, en cuanto al rut, en Chile por lo menos, es un número único que identifica a una persona en el país, no se si será así en otro país.

Gracias Aarón. El caso es que había oído hablar del "RUT", y, sin embargo, no me lo quedé en la cabeza. A ver si ahora puede ser. Y sí, al menos aquí en esta España mía, esta España nuestra (es mentira, es de ellos), como dice la canción, también nos "marcan" con algo que se llama DNI, Documento Nacional de Identidad. Y multa al canto como no lo lleves y el guardia se ponga un tanto farruco.

[[RONPABLO]]

Pue aqui en Colombia el RUT es el Registro Unico Tributario, falta ver que RUT esta buscando!!!

[joi]

Estoy hablando del documento de identificacion de Chile.. el formato de este es ej:

12.345.126-K

Necesito sacarle los puntos y el guion es decir debe quedar como 12345126

ademas debo verificar que en los primeros 10 caracteres no existan letras...

Gracias por responder

joi

[roman]

Código Delphi [-]
var
  S: String;

begin
  S := '12.345.126-K';

  Delete(S, 3, 1);
  Delete(S, 6, 1);
  Delete(S, 9, 2);

  if StrToIntDef(S, -1) = -1 then
    ShowMessage('Formato incorrecto')
  else
    ShowMessage(S);
end;

// Saludos

[joi]

Muchas Gracias....

Intentare de ese modo... te cuento

Joi

[dec]

Hola,

Si el número RUT es parecido al DNI español lo propuesto por roman puede no funcionar como se espera. Me explico. Un RUT válido puede ser: "12.345.126-K", pero, en caso de que este también lo fuera: "124.345.126-K" el código de más arriba daría problemas. Yo optaría por algo así, so pena de que pueda mejorarse no poco lo que propongo:

Código Delphi [-]
 function ParsearNumeroRUT(const RUT: string) : string;
 resourcestring
   rsExcep = 'El número RUT: "%s" no es correcto.';
 begin
   Result := RUT; // Recogemos el número RUT en Result
   // Reemplazamos cualquier coincidencia de un punto.
   Result := StringReplace(Result, '.', '', [rfReplaceAll]);
   // Reemplazamos cualquier coincidencia de un guión.
   Result := StringReplace(Result, '-', '', [rfReplaceAll]);
   // Si el resultado "mide" más de diez caracteres...
   if Length(Result) >= 10 then
   begin
     // Comprobamos que estos no contengan letras
     if StrToIntDef(LeftStr(Result, 10), -1) = -1 then
       // Y si contiene letras informamos del problema
       raise Exception.Create(Format(rsExcep, [RUT]));
   end;
 end;

[Casimiro Noteví]

También puedes hacer algo parecido a esto:

Código Delphi [-]
 i:integer;
 Result:='';
 
 S := '12.345.126-K';
 
 for i=1 to length(S) do
     if S[i] in ['0'..'9'] then
         Result := Result + S[i]