Ver Mensaje Individual
  #6  
Antiguo 22-01-2008
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Reputación: 27
jachguate Va por buen camino
claro!

En ocasiones he hecho algo como esto:

Código Delphi [-]
function ExtraeSiguientePalabra(var S: string): string;
begin
  if pos(' ', S) <> 0 then
  begin
    Result := copy(S, 1, pos(' ', S) -1);
    Delete(S, 1, length(Result) + 1);
    //si cabe la posibilidad que haya mas de un espacio separando:
    S := Trim(S);
  end
  else begin
    Result := S;
    S := '';
  end;
end;

var
  Lineas: TStringList;
  Linea, Campo1, Campo2: string;
  
begin
  Lineas := TStringList.Create;
  try
    Lineas.LoadFromFile('c:\datos.txt');
    for I:= 0 to Lineas.Count - 1 do
    begin
      Linea := Lineas[i];
      Campo1 := ExtraeSiguientePalabra(Linea);
      Campo2 := ExtraeSiguientePalabra(Linea);
      HacerAlgoConLosCampos(Campo1, Campo2);
    end;
  finally
    Lineas.Free;
  end;
end;

Quizás compile y quizás funcione... lo he escrito acá mismo, pues no tengo delphi a mano ahora, pero espero te de una idea.

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita