Foro de elhacker.net

Programación => Programación General => Mensaje iniciado por: ¡Micronet! en 24 Enero 2011, 00:47 am



Título: Leer Archivo en pascal
Publicado por: ¡Micronet! en 24 Enero 2011, 00:47 am
Bueno mi objetivo es basico ya que anteriormente ya habia utilizado pascal...y habia logrado imprimir datos dentro de un documento apartir de Pascal pero perdi el archivo  :-\.

Entonces mi nuevo objetivo es, conseguir leer un archivo .txt que tengo en el escritorio, cuyo archivo lo que tiene es la siguiente informacion:

1124535h

solo eso, lo que quiero es abrir el archivo, checar numero por numero y en el momento en que llegue a la "h" me salga error por ser un caracter.

Entonces segun mi codigo compila bien, pero no me aparece mi pantalla que no surte efecto mi pause de "readln" y si me pego a la computadora a esperar que aparece me salen como numeros hexadecimales.

Entonces queria ver si alguien me puede ayudar a:

Código:
Segundo Post


Saludos :(
espero que me puedan ayudar.




Título: Re: Leer Archivo en pascal
Publicado por: skapunky en 24 Enero 2011, 21:35 pm
Le veo un fallo, no recorres todo el archivo mediante EOF leyenda línea por línea, debería el codigo tener un estilo al siguiente:

Código
  1. WHILE NOT EOF(Archivo) DO
  2. BEGIN
  3. ReadLn(Archivo, Datos);
  4. WriteLn(Datos);
  5. END;

Mientras no finalize la lectura del archivo, se va colocando la información en "Datos". En tu caso, has utilizado el EOF pero haciendo una asignación que no le veo sentido.


Título: Re: Leer Archivo en pascal
Publicado por: ¡Micronet! en 25 Enero 2011, 01:38 am
Mientras no finalize la lectura del archivo, se va colocando la información en "Datos". En tu caso, has utilizado el EOF pero haciendo una asignación que no le veo sentido.


Saludos skapunky... bueno pues ya avance mas pero con otro programa... tengo ahora duda nueva :/....


Código:
Listo. :) 



Tengo mi codigo asi... lo que quiero es hacer que en el momento en el que detecte la letra me arroje error. :/ pero no ce como hacerle
ya que intento forzar cambiar el tipo de dato de char a int... pero pss no ce como hacerle  :-(


Título: Re: Leer Archivo en pascal
Publicado por: skapunky en 25 Enero 2011, 15:19 pm
Cambia la siguiente linea:

if n <= 9 then

Por:

if n <= '9' then

---------------------------------------------------------------------------------------------------

Por otro lado, existen constantes del pascal para cambiar el formato del tipo de variable, entre otras:

strtoInt --> String a Entero.
InttoStr --> Entero a string.
val --> Convertir string o char a entero
....Exísten gran cantidad mas, para mas info consultar google ya que hay bastantes.


Título: Re: Leer Archivo en pascal
Publicado por: ¡Micronet! en 26 Enero 2011, 00:04 am
Cambia la siguiente linea:

if n <= 9 then

Por:

if n <= '9' then

---------------------------------------------------------------------------------------------------

Por otro lado, existen constantes del pascal para cambiar el formato del tipo de variable, entre otras:

strtoInt --> String a Entero.
InttoStr --> Entero a string.
val --> Convertir string o char a entero
....Exísten gran cantidad mas, para mas info consultar google ya que hay bastantes.

Muchas Gracias :)...solo una ultima pregunta para ya no molestar jejeje  :-[
Si yo quiero que termine el programa en el momento en el que me lea la letra... y yo quisiera terminar el programa ¿?


Código:
if caracter <= '9' then
begin
 writeln('', caracter);
  end
else
begin
writeln('Error: ', caracter);

end;
    end;
 


Habia intentado poner en el "else"
-end.
-cerrar el archivo close(Letras);
y
ambas me salio error... crees que me podrias ayudar en eso ultimo nada mas porfa.


Título: Re: Leer Archivo en pascal
Publicado por: skapunky en 26 Enero 2011, 01:02 am
claro que si, hay una instrucción que fuerza el cerrado del programa, como mas o menos lo hace un (end.), esta funcion es "Halt".

Antes de escribir HALT, recuerda cerrar el archivo y dejar el codigo lo mas arreglado posible, ya que esta instrucción forzará el cerrado y mejor que tu archivo no quede abierto.


Título: Re: Leer Archivo en pascal
Publicado por: ¡Micronet! en 26 Enero 2011, 01:20 am
claro que si, hay una instrucción que fuerza el cerrado del programa, como mas o menos lo hace un (end.), esta funcion es "Halt".

Antes de escribir HALT, recuerda cerrar el archivo y dejar el codigo lo mas arreglado posible, ya que esta instrucción forzará el cerrado y mejor que tu archivo no quede abierto.

Muchisimas gracias amigo :) ^^...
Ahora solo me falta algo del manejo del archivo y listo :)
pero eso ai yo me encargo jejeje :)
no quiero ser una molestia ya me ayudaste lo suficiente :) ^^

 ::) Te debo una :) jejeje