Hola Jovalca.
Cita:
Empezado por Jovalca
Lo que ocurre es que según le voy aplicando, los resultados cada vez son menos coherentes y extrae junto con las etiquetas que necesito, otras tantas que no debería y en una ordenación confusa.
...
Voy a ver si consigo hacer una función que recorra el texto completo del código fuente, haciendo saltos de linea en cada cierre de etiqueta, es decir ">" para así tener en cada línea una etiqueta y a ver si con esto obtengo unos resultados mejores.
|
Entiendo el problema, pero no sé si será la solución... De todos modos para insertar los saltos de línea yo haría:
Código Delphi
[-]
procedure InsertCRLF(var Text: string; const Ch: Char);
const
CRLF = #$D#$A;
var
i: Integer;
begin
i:= 0;
while i < Length(Text) do
begin
if Text[i] = Ch then
begin
Insert(CRLF, Text, i+1);
Inc(i, Length(CRLF));
end
else
Inc(i);
end;
end;
Prueba:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
s : AnsiString;
begin
with TStringList.Create do
try
LoadFromFile('c:\tmp\Jovalca.txt');
s:= Text;
finally
Free;
end;
Memo1.Text:= s;
InsertCRLF(s,'>');
Memo2.Text:= s;
end;
Salida:
Saludos