Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   problema para leer txt (https://www.clubdelphi.com/foros/showthread.php?t=59611)

mariaesde 02-09-2008 15:32:08

problema para leer txt
 
hola buenas tardes compañeros de dudas jeje

Tengo el siguiente problema o cuestion, Tengo un archivo txt y quiero abrirlo, y seguidamente quiero copiar parte del contenido en distintos edit de texto

por ejemplo mi archivo txt tiene dentro una linea de datos, y cada campo esta dividido por ";". es decir seria una cosa asi "maria;8475;8576;8585"
y yo quiero coger campo a campo y pegarlo en los edit.

he visto algo por ai que se usa copy y el numero que ocupa el caracter de inicio y el de fin pero no se usarlo muy bien, si alguien pudiese os lo agradeceria

coso 02-09-2008 15:47:46

hola, no te va a hacer falta saber las posiciones

Código Delphi [-]
var
   sl : TStringList;
begin
   sl := TstringList.Create;
   sl.LoadFromFile(nombre_fichero);
   sl.CommaText := stringreplace(sl.text,';',',',[rfReplaceAll,rfIgnorecase]);
   showmessage(sl[0]);
   showmessage(sl[2]);
   sl.free;
end;

hay bastantes mas ejemplos por aqui el foro ;) saludos

mariaesde 02-09-2008 15:53:46

graciasss voy a ver q tal me va, xo lo d las posiciones me intersaba porque a veces me va a interesar coger algunos de esos campos y otras veces no, x eso lo d las posiciones

Caro 02-09-2008 15:59:54

Cita:

Empezado por mariaesde (Mensaje 311067)
graciasss voy a ver q tal me va, xo lo d las posiciones me intersaba porque a veces me va a interesar coger algunos de esos campos y otras veces no, x eso lo d las posiciones

Ya tienes las posiciones en el StringList en Sl[0] estara maria en Sl[1]->8475 Sl[2]->8576 Sl[3]->8585, el que necesites lo cargas al edit Edit.Text := sl[2]

Saluditos

mariaesde 02-09-2008 16:06:51

mil graciasssssssssssssss ya todo arreglado, soys todos unos maquinas


La franja horaria es GMT +2. Ahora son las 01:45:01.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi