¿como parsear texto?

[ecfisa]

Empezado por JXJ

en un archivo de texto tengo que encontrar
el texto contenido entre las lineas

descripcion:
categoria:

Hola.

Coincido con ElDioni y AzidRain. Ateniendome al texto de tu post, esto hace lo que estas pidiendo...

Código Delphi [-]
function EntreDescripcionYCategoria(NomArch: string): TStrings;
var
  i,p: Integer;
  ts: TStrings;
begin
  ts:= TStringList.Create;
  ts.LoadFromFile(NomArch);
  for i:= 0 to ts.Count -1 do
  begin
    p:= Pos(':', ts[i]);
    if p > 0 then
     ts[i]:= Copy(ts[i], p + 1, Length(ts[i]));
  end;
  Result:= ts;
end;

Llamada ej.:

Código Delphi [-]
  Memo1.Lines:= EntreDescripcionYCategoria('C:\TEXTO.TXT');

Saludos.

[JXJ]

no es muy claro por que no le entiendo bien a como hacerlo
la idea es que si tengo esto

descripcion: texto a encontrar
categoria: texto que varia
ubicacion: nuevo mexico
descripcion: texto a encontrar
categoria: texto que varia
ubicacion: nuevo mexico
descripcion: texto a encontrar
categoria: texto que varia
ubicacion: nuevo mexico
descripcion: texto a encontrar
categoria: texto que varia
ubicacion: nuevo mexico

proceso el archvio y tengo que obtener el resultado

texto a encontrar
texto a encontrar
texto a encontrar
texto a encontrar

[[Al González]]

Hola Ángel.

Suponiendo que el contenido del archivo sea uniforme, es decir, que a partir de la línea 0 y cada tres líneas el texto a encontrar lleve siempre antepuesta la subcadena de 13 caracteres 'descripcion: ', el siguiente código te servirá:

Código Delphi [-]
Var
  I :Integer;
begin
  { L1 es un TStringList con el contenido del archivo y L2 un TStringList
    vacío donde se guardará el resultado }

  I := 0;

  While I < L1.Count Do
  Begin
    L2.Add (Copy (L1 [i], 14, MaxInt));
    Inc (I, 3);
  End;
end;

En caso de que el contenido del archivo sea más variado, convendría que nos dieras otros ejemplos del mismo para idear una mejor forma de realizar el análisis sintáctico ("parseo") que necesitas.

Saludos.

Al González.

[JXJ]

no es uniforme... este problema me ha inspirado en hacer
mi lenguaje de programacion tijp php. asp.

pero con syntaxis delphi.

[Fuera del tema]
Conoce mi bitácora. ■ Solicito empleo fuera de México.
¿a que pais te quieres ir?

[[Al González]]

Empezado por JXJ

no es uniforme... este problema me ha inspirado en hacer
mi lenguaje de programacion tijp php. asp.

pero con syntaxis delphi.

Si el contenido del archivo no es uniforme, antes de otra cosa convendría conocer varios ejemplos de cómo pueden ser esos archivos, con el fin de determinar un patrón común. Una vez hecho esto, se podrá comenzar a desarrollar una rutina más elaborada que extraiga las partes deseadas del texto.

Empezado por JXJ

[Fuera del tema]
Conoce mi bitácora. ■ Solicito empleo fuera de México.
¿a que pais te quieres ir?

Estoy a la espera de propuestas sin mayores distinciones por el momento. Como van las cosas en México, cada vez hay más países con entornos que facilitan una mayor calidad de vida. Me quedaría si mi concepto de patria no fuera el planeta entero, tuviera mucho arraigo local o no hubiera soñado de pequeño con vivir en otra nación. Cierro el off topic.