Identificar parte de un dato dentro de un campo

[[egostar]]

Empezado por Caral

Hola

Pues ya somos dos.
Lo que quiero hacer es identificar parte del texto que contiene ese campo.

Si el campo tiene:
LAMINA 187 X 305 BONE

Tiene:
LAMINA
187
X
305
BONE

Quiero que al mostrar ese campo en el combobox me identifique la ultima parte del campo: BONE

Se podra?'

Estoy cada vez mas espeso, no capto nada.
Saludos

Pues de poder se debe de poder , una pregunta, todos tus registros siguen ese formato?

LAMINA[espacio]187[espacio]X[espacio]305[espacio]BONE

Si es así puedes usar esta función que me encontre creo en Trucomanía.

Código Delphi [-]
function GetToken(Cadena,Separador:string;Token:integer):string;
var
  Posicion:integer;
begin
   while Token > 1 do begin
     Delete(Cadena,1,Pos(Separador,Cadena));
     Dec(Token);
   end;
   Posicion:=Pos(Separador,Cadena);
   if Posicion=0 then result:=cadena
   else Result:=Copy(Cadena,1,Posicion-Length(Separador));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetToken('LAMINA 187 X 305 BONE',' ',5));
  ShowMessage(GetToken('LAMINA 187 X 305 BLANCO',' ',5));
end;

Salud OS

Edito: Vaya amigo Dec, me ganaste y me parece que tu función GetLaminaType() esta optimizada ....

[dec]

Hola,

Yo sigo a lo mío... Creo que mi anterior función podría (y aun debería) quedar así, mejor o peor:

Código Delphi [-]
function GetLaminaType(rawData: string): string;
var
  i: integer;
begin
  result := '';
  i := Length(rawData);
  while (i >= 1) do begin
    if (rawData[i] = ' ') then
      break;
    result := rawData[i] + result;
    Dec(i);
  end;
end;

Nótese que ahora el bucle aguantaría mientras la variable "i" valiera igual o más que 1. ¿Por qué así ahora? Porque, si no recuerdo mal, las cadenas en Delphi son "Arrays" de caracteres cuyo índice comienza en uno, no en cero. Tal anteriormente la función de marras podría haber dado algún problema... ¡tal vez incluso ahora pueda darlos!

PD. Probándolo de nuevo no parece haber problema con el "cero", pero, el "uno" me sigue pareciendo más oportuno. Además he añadido el "result" del principio, por principio.

[keyboy]

Yo propongo esta:

Código Delphi [-]
function DameElTipo(Dato: String): String;
var
  Espacio: Integer;

begin
  Espacio := Pos(' ', ReverseString(Dato));
  Result := Copy(Dato, Length(Dato) - Espacio + 2, Length(Dato));
end;

Bye

[dec]

Hola,

Empezado por egostar

Vaya amigo Dec, me ganaste y me parece que tu función GetLaminaType() esta optimizada ....

Huy... no sé qué te diga... bueno, sí: que la tuya me parece curiosa.

Y, respecto de la del compañero keyboy, chico, yo probé con el "Reverse" pero me hice un lío...

Por cierto, creo que la de keyboy se muestra favorita, ahora, eso sí, le falta algo:

Código Delphi [-]
uses
  StrUtils;

[[egostar]]

Empezado por dec

Huy... no sé qué te diga... bueno, sí: que la tuya me parece curiosa.

, de que hablas amigo Dec

Empezado por dec

Y, respecto de la del compañero keyboy, chico, yo probé con el "Reverse" pero me hice un lío...

Por cierto, creo que la de keyboy se muestra favorita, ahora, eso sí, le falta algo:

mmmm, Yo ni siquiera he podido ver como funciona ese ReverseString(), no existe en mi rudimentario Delphi4 , bueno, ya vere mañana en mi TurboDelphi

Salud OS

[[Delphius]]

Jeje... me ganaron... yo ya estaba preparando una función... pero bueno... mejor no intento.

Total, cuando vengan por aquí Domingo y Javier veremos como queda la cosa.

Mientras tanto veo como ganarles en ASM.

Saludos,

[dec]

Hola,

Empezado por egostar

mmmm, Yo ni siquiera he podido ver como funciona ese ReverseString(), no existe en mi rudimentario Delphi4

Aquí Zarko Gajic implementa una función "ReverseString()", e informa de que existe desde Delphi 6.

[keyboy]

En realidad lo de ReverseString está muy jalado pues al final termina haciendo el recorrido inverso. Mucho mejor la de dec que creo se puede simplificar un poco:

Código Delphi [-]
function DameloYa(Dato: String): String;
var
  I: Integer;

begin
  for I := Length(Dato) downto 1 do
    if Dato[i] = ' ' then
      break;

  Result := Copy(Dato, I + 1, Length(Dato));
end;

Bye