Generación de Código Alfanúmerico Automatico

[[Lepe]]

Empezado por Delphius

Disculpen que meta más leña al fuego... pero hay que preguntarlo ahora:
¿Se contempla la Ñ?

Si queremos que sea portable, no se debe contemplar, muy a pesar de cervantes

[[AzidRain]]

Ya se me van a quemar vivo pero para mi (y para muchos) la Ñ no es letra, como tampoco lo es "Ch" y "Ll".

[[Delphius]]

Empezado por AzidRain

Ya se me van a quemar vivo pero para mi (y para muchos) la Ñ no es letra, como tampoco lo es "Ch" y "Ll".

Tal vez no se la use mucho... pero para mi tiene uso. Es una letra... si figura en el diccionario... pues ¡aceptarla!

En fin, no me hagas caso.... hoy he estado un poco cabrón
Es muy cierto que la Ñ se la pasan de largo, y es por ese motivo que yo la incluyo.
Pero aqui, para "práctica" podemos obviarla. Vale.

Quería preguntarte... como lo estás entendiendo a esto?
Pues mo me hice lio

EDITO:
¿ Y luxus va a dar presencia, o explicar mejor el asunto? Porque hace 4 horas estuvo presente y si al menos hubiera dicho una mínima explicación hubiera sido mejor. Porque al modo en lo veo, pareciera que le estamos haciendo la tarea.

Saludos

[[Lepe]]

Empezado por Delphius

pareciera que le estamos haciendo la tarea.

No es que pareciera... es que lo es

[ixMike]

uy, uy.. discusión lingüística... ¡me apunto!

Bueno, lo primero, es que uno no puede decir "esto me parece... esto no me parece...". Hay definiciones para cada cosa. Entre esas cosas, la de letra.

Si leéis el enlace (primera acepción) ya queda indiscutible que la ñ es una letra. Pero, ¿qué pasa con "ch" y "ll"? Según la segunda acepción, tradicionalmente también son letras. Pero claro, tradicionalmente... ¿y ahora? Desde luego, tienen su propia pronunciación, pero claro, requieren de más de un signo gráfico para representarlas, es decir, más de una letra. Che y elle son cada una un fonema con dos letras. ¿Por qué no?

Ya se prodía mirar más allá, con esto del Unicode y los CodePoint, pero a fin de cuentas, eso no son más que "artimañas" para simplificar (informáticamente hablando) las cosas.


Y para no desvirtualizar el hilo... ¡luxus, ¿dónde c0~@ te has metido?! Que nos tienes en intríngulis. ¿Metemos la eñe o no? ¿Los números se mezclan con las letras o no?...



Salu2.

[[Delphius]]

Bueno... creo que no hace falta nombrar lo que sabemos... si luxus no pone de su parte... pues... no creo que le encontremos solución, por ahora yo voy a seguir adivinando:

NOTA: comienzo a contar de derecha a izquierda. Doy por supuesto que los carateres son dependientes exclusivamente del anterior. Y que debe incrementar su valor independiente de si es un número o una letra.

1. ¿Que sucede cuando el primer caracter es un 9?
1.1. Se convertiría en un 0 (cero). bien... y ¿ahora?
1.2. ...el caracter a su izquierda debe "incrementarse". Perfecto, y si es ¿9?

2. ¿Que sucede cuando el primer caracter es Z?
2.1. Se convertiría en A. ¿y ahora?
2.2. ... el caracter a su izquierda debe "incrementarse". Perfecto, y si es ¿Z?

Estas dos situaciones, me llevan a:

3. ¿Que sucede cuando el último caracter es un 9?
3.1. Lo incrementamos. Perfecto... se obtuvo un 0 (cero). ¿Que hacemos?
3.1.1. Reemplazamos ese cero por A, dando inicio a las letras. O bien,
3.1.2. No hacemos nada.

4. ¿Que sucede cuando el último caracter es Z?
4.1. Lo incrementamos. Perfecto... se obtuvo A. ¿Que hacemos?
4.1.1. No hacemos nada.

A lo que voy es que la regla, necesariamente debe ser posicional y no sólo del caracter. Voy a pedir que luxus defina concretamente como vienen las reglas. ¡Que hable! ¿O es que este hilo deberá quedar sin solución?

Saludos,

[[eduarcol]]

a ver si entendi lo que explicas, necesitas recursividad, algo como esto:

declara unas variables globales:

Código Delphi [-]
nLista: array[1..14] of integer;
    procedure Incrementar(cCadena: String);
    procedure Aumentar(nIndice:Integer);

luego este es el codigo, le pasa la cadena como parametro al procedimiento incrementar y te devolvera una cadena incrementada segun la regla de la A-Z y 0-9

Código SQL [-]
procedure TForm1.Incrementar(cCadena: String);
var
   nCaracter: String;
   nIdx: Integer;
begin
   //Carga el vector de enteros
   for nIdx := 1 to 14 do
   begin
      nCaracter := Copy(cCadena, nIdx, 1);
      nLista[nIdx] := Ord(nCaracter[1]);
   end;

   //Recorre el vector aumentando las cifras
   Aumentar(14);

   //Arma de nuevo la cadena
   cCadena := '';
   for nIdx := 1 to 14 do
   begin
      nCaracter := Char(nLista[nIdx]);
      cCadena := cCadena + nCaracter;
   end;

end;

procedure TForm1.Aumentar(nIndice: Integer);
begin
   //si llego al principio se sale
   if nIndice <= 0 then
      Exit;
   //Aumenta un caracter en la posicion deseada
   nLista[nIndice] := nLista[nIndice] + 1;
   //Si es 91 quiere decir que viene de la Z, lo devuelve al 65 = A, incrementa el anterior
   if nLista[nIndice] = 91 then
   begin
      nLista[nIndice] := 65;
      Aumentar(nIndice - 1);
   end
   //Si es 58 quiere decir que viene del 9, lo devuelve al 48 = 0, incrementa el anterior
   else if nLista[nIndice] = 58 then
   begin
      nLista[nIndice] := 48;
      Aumentar(nIndice - 1);
   end;
end;