Cita:
Empezado por coso
Hola,
¿este codigo te funciona?
Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i: Integer;
Linea: string;
begin
DoubleBuffered := true;
Memo1.Lines.LoadFromFile('...');
Memo1.Lines.text := stringreplace(Memo1.Lines.text,#9,' ',[rfReplaceAll]);
Memo2.Delimitier := ';';
Memo2.Lines.Delimitiedtext := Memo1.Lines.Text;
end;
|
Hola
coso,
Si gracias, esa es la forma simplificada de hacerlo, sin embargo en este caso necesito mostrar la información tal y como lo tiene el archivo y después hacer un listado con datos del mismo archivo, el tema es que necesito que el espacio no lo considere como delimiter por ejemplo
El Archivo tiene esta estructura:
Cita:
|
Juan Pérez Martínez;jpm@isp.com;Compañia Universal
|
Necesito que el otro memo muestre esto:
Cita:
Juan Pérez Martínez
jpm@isp.com
Compañia Universal
=================
|
Pero como está tomando el caracter espacio como delimiter, me hace esto
Cita:
Juan
Pérez
Martínez
jpm@isp.com
Compañia
Universal
=================
|
Yo estoy cambiando el espacio por un guion bajo, pero no es lo que necesito.
Cita:
Juan_Pérez_Martínez
jpm@isp.com
Compañia_Universal
=================
|
Espero haber sido más claro.
Salud OS