Leer lineas de un txt sin utilizar ningún componente

[force1758]

Empezado por newtron

Hola.

Para lo que quieres solo necesitas una pequeña modificación a tu código:

Código Delphi [-]
AssignFile (MiFichero,(C:\nombre.txt'));
Reset (MiFichero);
While not Eof(MiFichero) do begin
  ReadLn(MiFichero,valorsting);
  ShowMessage(valorsting);
end;

Esto va leyendo el fichero linea a linea hasta el final, ya puedes adaptarlo a tus necesidades.

Saludos

Si lo se pero no me sirve por que yo necesito es cojer la información de cada linea y colocarle una variable ya que cada linea se convertira en un valor espero haberme explicado .

[Casimiro Noteví]

Empezado por force1758

Si lo se pero no me sirve por que yo necesito es cojer la información de cada linea y colocarle una variable ya que cada linea se convertira en un valor espero haberme explicado .

Pues eso es exactamente lo que te han explicado en ese código.

[Neftali [Germán.Estévez]]

La otra opción es utilizar TStrings, pero no me queda claro porqué no te sirve lo que te han comentado.
¿Puedes explicarte mejor?

[[newtron]]

Bueeeeeeeeeeeeeeeeeeeeeno.... a ver si esto es lo que quieeeeeeeeeeres....

Código Delphi [-]
var
MiFichero : TextFile;
valor :dword;
valor1 :dword;
valorsting : TStringList;
sAux: String;
begin
  valorsting: TStringList.Create;
  AssignFile (MiFichero,(C:\nombre.txt'));
  Reset (MiFichero);
  While not MiFichero.eof do begin
    Readln(MiFichero,sAux);
    valorsting.add(sAux);
  end;
  .....

end;

de esta manera te encontrarás en la variable valorsting[N] los valores de cada una de las lineas del fichero de texto, recuerda hacer un "free" a la variable valorsting cuando ya no la necesites para liberarla de la memoria.

(seguro que alguno de estos "listillos" tiene una forma más simple, efectiva o que use menos recursos para hacer esto, lo estoy viendo...)

[ecfisa]

Hola force1758.

Estos son algunas de las formas que podes leer un archivo de texto por líneas (newtron y Neftali ya te mencionaron y ejemplificaron las dos mas ortodóxas)

Con Readln

Código Delphi [-]
var
  txt : TextFile;
  line: string;
begin
  AssignFile(txt, 'C:\nombre.txt');
  Reset(txt);
  while not eof(txt) do
  begin
    Readln(txt,line);
    Memo1.Lines.Add(line); // hacer algo con las lineas
  end;
  CloseFile(txt);
end;

Con TStrings:

Código Delphi [-]
begin
  with TStringList.Create do
  try
    LoadFromFile('C:\nombre.txt');
  finally
    Memo1.Text := Text; // hacer algo con las lineas
    Free;
  end;
end;

Con FileStream:

Código Delphi [-]
var
 s  : string;
begin
  with TFileStream.Create('C:\nombre.txt',fmOpenRead) do
  try
    Seek(0,soFromBeginning);
    SetLength(s, Size);
    Read(Pointer(s)^, Size);
  finally
    Free;
    Memo1.Text := s; // hacer algo con las lineas
  end;
end;

Con MemoryStream

Código Delphi [-]
var
  s : string;
begin
  with TMemoryStream.Create do
  try
    LoadFromFile('C:\nombre.txt');
    Seek(0, soFrombeginning);
    SetLength(s,Size);
    Read(Pointer(s)^, Size);
  finally
    Free;
    Memo1.Text := s;
  end;
end;

Y las combinaciones que con ellas se te ocurran y sea posible implementar.

Saludos.

Edito: Si comparas tu primer código con el de newtron, verás que ademas de no usar un ciclo para la lectura, estás usando Read y no Readln.

[Casimiro Noteví]

Esto es un curso completo de lectura de ficheros de texto

[[newtron]]

Empezado por Casimiro Notevi

Esto es un curso completo de lectura de ficheros de texto

....este ecfisa.... siempre igual......

[force1758]

Hola bueno voy haber si me explico mejor así con el codigo lo que quiero en si es crear una función que lea cada linea del archivo luego separar esas lineas en valores sin utilizar tmemo, ni form , ni edit ya que esta es una dll la cual yo utilizarlo en ejecución de mi aplicación

Código Delphi [-]
Function leerText (Const valor: Array [1..5] of String):string;
var
MiFichero : TextFile;
valorsting : String;

begin
AssignFile (MiFichero,(C:\nombre.txt'));
Reset (MiFichero);
Read(MiFichero,valorsting);// aqui leo es siempre la primera linea 
valor[1]:= StrToInt (valorsting); // quiero obtener el valor de la primera linea
valor[2]:= StrToInt (valorsting); // quiero obtener el valor de la segunda linea
valor[3]:= StrToInt (valorsting); // quiero obtener el valor de la trecera linea
valor[4]:= StrToInt (valorsting); // quiero obtener el valor de la cuarta  linea
valor[5]:= StrToInt (valorsting); // quiero obtener el valor de la quinta linea

y utilizar esos valores obtenido en otro procedimientos por eso necesito ver como lo hago para emplearlo en mi code (sin utilizar nada de tmemo,memo1,edit puro código ) y gracias por estar tan atentos por que todos estos ejemplo me sirve para tener mas experiencia

Saludos

[Casimiro Noteví]

En fin, creo que te has saltado alguna respuesta, mira el hilo desde el principio

[[egostar]]

Empezado por force1758

Hola bueno voy haber si me explico mejor así con el codigo lo que quiero en si es crear una función que lea cada linea del archivo luego separar esas lineas en valores sin utilizar tmemo, ni form , ni edit ya que esta es una dll la cual yo utilizarlo en ejecución de mi aplicación

y utilizar esos valores obtenido en otro procedimientos por eso necesito ver como lo hago para emplearlo en mi code (sin utilizar nada de tmemo,memo1,edit puro código ) y gracias por estar tan atentos por que todos estos ejemplo me sirve para tener mas experiencia

Hombre, ecfisa te ha propuesto dos opciones, Neftali una y newtron otra, cual es la objeción que le pones a esos objetos, eso que te proponen pues es puro código.....

TFileStream, TMemoryStream, TStrings, TStringList

Si no es eso, no se que es lo que necesitas.

Saludos

[[newtron]]

Empezado por force1758

Hola bueno voy haber si me explico mejor así con el codigo lo que quiero en si es crear una función que lea cada linea del archivo luego separar esas lineas en valores sin utilizar tmemo, ni form , ni edit ya que esta es una dll la cual yo utilizarlo en ejecución de mi aplicación



Código Delphi [-]Function leerText (Const valor: Array [1..5] of String):string; var MiFichero : TextFile; valorsting : String; begin AssignFile (MiFichero,(C:\nombre.txt')); Reset (MiFichero); Read(MiFichero,valorsting);// aqui leo es siempre la primera linea valor[1]:= StrToInt (valorsting); // quiero obtener el valor de la primera linea valor[2]:= StrToInt (valorsting); // quiero obtener el valor de la segunda linea valor[3]:= StrToInt (valorsting); // quiero obtener el valor de la trecera linea valor[4]:= StrToInt (valorsting); // quiero obtener el valor de la cuarta linea valor[5]:= StrToInt (valorsting); // quiero obtener el valor de la quinta linea


y utilizar esos valores obtenido en otro procedimientos por eso necesito ver como lo hago para emplearlo en mi code (sin utilizar nada de tmemo,memo1,edit puro código ) y gracias por estar tan atentos por que todos estos ejemplo me sirve para tener mas experiencia

Saludos

mmmmmmmmmmmmm.... ahora si que me estoy perdiendo.....

[ecfisa]

Empezado por force1758

Hola bueno voy haber si me explico mejor así con el codigo lo que quiero en si es crear una función que lea cada linea del archivo luego separar esas lineas en valores sin utilizar tmemo, ni form , ni edit ya que esta es una dll la cual yo utilizarlo en ejecución de mi aplicación
y utilizar esos valores obtenido en otro procedimientos por eso necesito ver como lo hago para emplearlo en mi code (sin utilizar nada de tmemo,memo1,edit puro código )

Hola.

Cualquiera de los modos que te han sugerido hace lo que deseas: Lee un archivo de texto por líneas.

Lo que hagas luego con las líneas leídas ya sea que las guardes en un arreglo, las asignes a un ListBox, las imprimas, etc. es otro tema.

En ninguna de las propuestas anteriores se utiliza componentes para la lectura, sólo a modo de ejemplo se muestran en un memo (que es la única referencia a uno).

Pero como te comente en mi mensaje anterior si optas por leerlo línea a línea no utilices el procedimiento Read usá Readln.
Y usando Readln tenes que recorrer el archivo desde el inicio hasta el final con un ciclo (preferentemente while).

Otro detalle sobre tu último código, valorsting es de tipo string y cuando haces referencia a valorstring[n] no te estás refiriendo a un valor de tipo string sino de tipo Char.

Resumiendo: No podes almacenar las líneas leídas en un string (la nueva sobreescribiría a la anterior) y usando Readln tenes que leer desde la primer línea a la última del archivo.

Saludos.