Pascal/Turbo Pascal - Ayuda en la creación de un archivo de texto

   
Vista:

Ayuda en la creación de un archivo de texto

Publicado por Diego (98 intervenciones) el 13/04/2014 15:26:59
Buen día, no logr comprender muy bien el uso de archivos de texto en pascal:
¿realmente crea un archivo en alguna carpeta con la extensión txt, el cual puedo ver y abrir?.
Porque usé este ejemplo y no crea ningun txt; Claro está que ya había intentado hacerlo por mi cuenta, pero al no ver que se creara un txt el cual ver en la carpeta en la que esta el código fuente decidí probar con un ejemplo y ver si creaba algun txt, pero nada.
Este es el ejemplo;:
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
program MuestraAutoexec2;
 
 var
 
   fichero: text;                         (* Fichero de texto *)
   linea: string;                         (* Línea que leemos *)
 
 begin
   assign( fichero, 'C:\AUTOEXEC.BAT' );  (* Le asignamos el nombre *)
   {$I-}                                (* Deshabilita comprobación
 
 
Olvidenlo acabo de encontrar los txt en la carpeta de instalación del programa.
 
pero aun así cuando probe este ejemplo no pude ingresar ningun dato
                                           de entrada/salida *)
   reset( fichero );                    (* Lo intentamos abrir *)
   {$I+}                                (* La habilitamos otra vez *)
 
   if ioResult = 0 then                 (* Si todo ha ido bien *)
     begin
     while not eof( fichero ) do        (* Mientras que no se acabe *)
       begin
       readln( fichero, linea );        (* Leemos una línea *)
       writeln( linea );                (* y la mostramos *)
       end;
     close( fichero );                  (* Se acabó: lo cerramos *)
     end;                               (* Final del "if" *)
 end.

Les agradezco su tiempo.
Olviden lo del txt, los encontré en la capeta de instalación del programa.
En cuanto al ejemplo no pude ingresar nada y cuando lo ejecuto sale un mensaje:
"REM Dummy file for NTVDM"
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

Ayuda en la creación de un archivo de texto

Publicado por David (139 intervenciones) el 13/04/2014 18:18:34
¿Has comprobado que el fichero no esté vacío? Es probable que exista el fichero pero que no tenga información en su interior.
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

Ayuda en la creación de un archivo de texto

Publicado por ramon (2072 intervenciones) el 14/04/2014 01:29:14
Mira los archivos de texto como se entiende todo su contenido son caracteres al final de cada lineas que entramos
insertamos un carácter de salto de linea y un retorno de carro.
Eso seria algo asi dato := 'mmmmm fff mamammnna linea' + #10 + #13; esto seria la linea de texto la pro sima linea
entraría debajo de esta.
Para abrir seria

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
                f : text;
                dato : string;
 
                assign(f,'Nombre.txt');
        {$I-} reset(f); {$I+}
        if ioresult <> 0 then
        begin
                rewrite(f);
                write(f,dato);
                close(f);
        end
else
        begin
            apend(f);
            write(f,dato);
            close(f);
        end;
end;

Esto seria la forma de salvar en el arc hivo de texto.
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