Pascal/Turbo Pascal - EDICION Y MODIFICACION DE ARCHIVOS DE EXTENCION *.

 
Vista:
Imágen de perfil de ALEXANDER PEREZ

EDICION Y MODIFICACION DE ARCHIVOS DE EXTENCION *.

Publicado por ALEXANDER PEREZ (2 intervenciones) el 07/01/2008 04:47:36
MUY BUENAS UN GUSTO SALUDAR A TODA LA CONCURRENCIA ESTOY POR ACA EN BUSCA DE AYUDA UNA VEZ MAS PÀRA UN PROBLEMITA MUY SERIO QUE TENGO

PARA AQUELLOS CONOCEDORES O EXPERTOS QUIENES DESEEN AYUDARME LE INFORMO QUE SE TRATA DEL SISTEMA SAINT ADMINISTRATIVO VERSION 7.51, BAJO MS-DOS, EL CUAL EN UNA EPOCA SE HIZO MUY POPULAR, POR SI ALGUNO CONOCE DE ESTE SISTEMA O BIEN HA TENIDO LA OPORTUNIDAD DE TRABAJAR CON EL, USA UNOS ARCHIVOS PLANOS DE EXTENCION *.DAT PARA EL MANEJO DE LA INFORMACION O DATOS Y ADEMAS ESTA DISEÑADO EN TURBO PASCAL.

ES IMPORTANTE DESTACAR QUE CONOZCO LOS NOMBRES DE TODAS Y CADA UNA DE LAS BASES O ARCHIVOS DE DATOS CONTENTIVO DE LA INFORMACION COMO POR EJEMPLO DE PROVEEDORES (APROV.DAT), INVENTARIO (APROD.DAT), ASI COMO LA EXTRUCTURA DE CADA UNA DE ELLAS, NOMBRE DE LOS CAMPOS; TIPO Y LARGO DE CADA REGISTRO.

MI NECECIDAD ES PODER HACER UN PEQUEÑO PROGRAMA YA SEA EN CLIPPER O BIEN EN TURBO PASCAL QUE ME PERMITA EDITAR, MODIFICAR O BIEN ACTUALIZAR EN FORMA MASIVA AUTOMATICAMENTE CADA UNO DE LOS REGISTROS DE LAS BASES DE DATOS MAS IMPORTANTE O CONTENTIVAS DE LOS PRECIOS Y COSTOS DE CADA UNO DE LOS PRODUCTOS, APROX. 2500 PRODUCTOS, TODO ESTO DEVIDO A LA RECOVERSION MONETARIA (PRECIOS Y COSTOS DIVIDIDOS ENTRE MIL “1000”) QUE SE ESTA LLEVANDO A CABO ACA EN NUESTRO PAIS, VENEZUELA, CON LA FINALIDAD DE NO TENER QUE HACERLO UNO POR UNO POR EL SISTEMA.

GRACIAS DE ANTEMANO POR SU AYUDA.
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

RE:EDICION Y MODIFICACION DE ARCHIVOS DE EXTENCION

Publicado por Laysquad (47 intervenciones) el 07/01/2008 16:10:13
^^ hola saludos... pues es un gran proyecto ^^, la forma mas sencilla de hacer esto es la siguiente:

1.abrir el archivo a modificar, si son mas de 1 archivos, hacer una lista para que pascal los siga de forma consecutiva.

2. definir la estructura y el dato del producto que va a cambiarse, es decir como ejemplo:

program cambios ;
uses crt ;
type
productos = record
nombre :string ;
precio :real ;
end ;

var
producto :productos ;
archivo :file of productos ; {archivo a modificar}
archivo2 :file of productos ; {archivo donde se escribiran los datos nuevos}

begin
assign(archivo,'aprod.dat') ; {solo como ejemplo}
reset(archivo) ; {abrimos el archivo}
assign(archivo2,'aprod2.dat') ;
rewrite(archivo2) ; {creamos el nuevo archivo}
repeat
read(archivo,producto) ; {leemos el producto del archivo}
producto.precio := (producto.precio/1000) ; {el precio del producto /1000}
write(archivo2,producto) ; {escribimos el nuevo precio del producto}
until eof(archivo) ;
close(archivo) ; {cerramos el primer archivo}
erase(archivo) ; {borramos el archivo}
rename(archivo2,'aprod.dat') ; {renombramos el nuevo archivo}
close(archivo2) ;
end ;

con este procedimiento modificamos el archivo desegnado, leyendo producto por producto y dividiendo el precio dentro de 1000, espero que te sea de ayuda, saludos^^.
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
Imágen de perfil de ALEXANDER PEREZ

RE:EDICION Y MODIFICACION DE ARCHIVOS DE EXTENCION

Publicado por ALEXANDER PEREZ (2 intervenciones) el 12/01/2008 06:04:01
HOLA AMIGO, GRACIAS POR TU AYUDA Y POR TOMARTE LA MOLESTIA DE ESCRIBIRME O RESPONDER..

TE COMENTO,: REALMENTE TU RECOMENDACION ME FUE DE GRAN AYUDA, MAS SIN EMBARGO NO LOGRE MI COMETIDO, HICE VARIOS PROGRAMAS O RUTINAS LLEGANDO FINALMENTE DESPUES DE TANTOS INTENTOS Y DIAS DE TRABAJO APROX.4, A EDITAR LOS REGISTROS DE LOS ARCHIVOS, PERO EN ESTE CASO,LOS ARCHIVOS LA INFORMACION QUE CONTIENEN O MUESTRAN NO PUEDE SER LEIDA O INTERPRETADA COMO VALIDAD, COMO YO QUISIERA O COMO PODRIA MANEJAR, AL PARCER LA INFORMACION ESTA ENCRIPTADA, PUES LO QUE ME MUESTRA SON PUROS CARACTERES ESTRAÑOS...

SI TU O CUALQUIER OTRA PERSONA DE ESTE FORO SE CONCIDERA CAPAZ O ESTA EN LA CAPACIDAD DE HACERLO O DESEAS INTENTARLO, PARTICULARMENTE SE LO AGRADECERIA, O BIEN SI HAY QUE PAGARLE ESTOY EN LA PLENA CAPACIDAD Y DISPOSICION DE HACERLO, YO PUEDO SUMINISTRAR TODA LA INFORMACION NECESARIA CON REFERENCIA A ESTE CASO.

MI APRECIACION PERSONAL CON REFERENCIA AL LENGUAJE DE PROGRAMACION TURBO PASCAL ES QUE: NO ES UN LENGUAJE APTO PARA ESTE TIPO DE PROGRAMAS (ADMINISTRATIVO), LO DIGO EN BASE A MI EXPERIENCIA DE TANTOS AÑOS PROGRAMANDO EN BASES DE DATOS, CLIPPER DISTINTAS VERSIONES, DBASE VARIAS VERSIONES, FOXPRO, VISUAL FOX, ETC...

ESTE LENGUAJE ME PARECE ES MAS ORIENTADO AL CALCULO DE VECTORES, MATRICES Y SULUCION DE PROBLEMAS DE ESTE TIPO O MAGNITUD.

SALUDOS A TODOS Y GRACIAS POR PERMITIRME FORMAR PARTE DE ESTE SELECTO GRUPO.

PEREZ JOSE ALEXANDER...
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

RE:EDICION Y MODIFICACION DE ARCHIVOS DE EXTENCION

Publicado por oswaldo (3 intervenciones) el 20/02/2008 16:03:19
me puedes dar informacion aserca de foxpro
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

RE:EDICION Y MODIFICACION DE ARCHIVOS DE EXTENCION

Publicado por oswaldo (3 intervenciones) el 20/02/2008 16:04:58
me puedes dar informacion aserca de foxpro relasionado con la toma de deciones
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