PDA

Ver la Versión Completa : problema para leer txt


mariaesde
02-09-2008, 14:32:08
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, 14:47:46
hola, no te va a hacer falta saber las posiciones


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, 14: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, 14:59:54
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, 15:06:51
mil graciasssssssssssssss ya todo arreglado, soys todos unos maquinas