Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Leer columnas de un .txt

Pascal/Turbo Pascal - Leer columnas de un .txt

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Leer columnas de un .txt

Publicado por Erick Brian (1 intervención) el 06/10/2017 01:42:37
Buenas tardes lo que sucede es que necesito poder leer dos valores que estan en una misma fila, pero no se con que comando realizarlo, trate con un READLN y despues una coma pero no funciono, espero me puedan ayduar.

Ejemplo de lectura:

Termopar

Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Leer columnas de un .txt

Publicado por David (224 intervenciones) el 07/10/2017 12:42:05
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Uses CRT;
 
Const
  NomFich = 'Datos.txt';
 
var
  F : text;
  auxlinea, linea : string;
  dat1, dat2 : string;
 
Procedure ProcesarLinea(auxlin : string; var dato1 :string; var dato2:string);
 
var
  i : integer;
  auxcad:string;
 
begin
  auxcad:='';
  dato1:='';
  dato2:='';
  for i:=1 to length(auxlin) do
    begin
     if auxlin[i] in ['1'..'9','.'] then
       auxcad:=auxcad+auxlin[i]
     else
       begin
         dato1:=auxcad;
           if dato1<>'' then
             writeln('valor 1: ',dato1);
        auxcad:='';
 
       end;
      dato2:=auxcad;
   end;
 
  writeln('valor 2: ',dato2);
 
   end;
 
 
Procedure LeerFichero(var fi : text; var lin : string; var d1:string; d2: string);
 
begin
  d1:='';
  d2:='';
  while not eof(fi) do
     begin
     readln(fi,lin);
     procesarlinea(lin,d1,d2);
     end;
  end;
 
begin
  dat1:='';
  dat2:='';
  assign(f,nomfich);
  {$i-}reset(f){$i+};
  if ioresult<>0 then
    writeln('error al abrir el fichero')
  else
    begin
      leerfichero(f,auxlinea,dat1,dat2);
 
    end;
 close(F);
 readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar