Edit_TxT_PdF

[mustafa]

Hola a todos
He dejado en archivos de esta web dos versiones para pasar ficheros
de TXT a PDF uno está compilado con minigui Oficial y otro con ooHG
si alguien los puede revisar, me da algun error cuando cambio de carpetas y para
que no "explote" el programa como vulgarmente se dice le he puesto mensajes para
evitar el cuelgue.
Haber si la gente se anima a compartir porque es la mejor escuela
para aprender, los que venimos del Jurasico con el Clipper Summer 87
la nueva programacion de minigui casi respeta todas las formas del
antiguo lenguajes, pero necesitamos ejemplos para poder reciclarnos.
Un saludo a todos.

Hello everyone
I have left files on this website to pass two files
TXT to PDF is compiled with a mini and another ooHG Official
if someone can check, I get an error when you change folders and
not "explode" as the expression goes, I have messages for you
avoid the crash.
Have if people are encouraged to share because it is the best school
to learn, which come from the Jurassic to the Clipper Summer 87
the new programming mini respects almost all forms of
ancient languages, but examples need to be able to recycle them.
Greetings to all.

Mustafa López

[esgici]

...if someone can check, I get an error when you change folders and
not "explode" as the expression goes...

Hola Mustafa

How are you ?

In the Edit_TxT_PdF.prg file you have

SET DEFAULT TO C:\Edit_TxT_PdF

line repeated 3 time ( lines 203, 220 and 237 )

Simply extract ( delete or comment ) these lines.

I hope this will solve the problem.

Saludos Cordiales.

--

Esgici

[mustafa]

...if someone can check, I get an error when you change folders and
not "explode" as the expression goes...

Hola Mustafa

How are you ?

In the Edit_TxT_PdF.prg file you have

SET DEFAULT TO C:\Edit_TxT_PdF

line repeated 3 time ( lines 203, 220 and 237 )

Simply extract ( delete or comment ) these lines.

I hope this will solve the problem.

Saludos Cordiales.

--

Esgici

Hola amigo Esgici
Creo que no funciona si suprimo
SET DEFAULT TO C:\Edit_TxT_PdF
y intento leer algun fichero ejemplo de
la sub_carpeta Doc_TXT al cargar el fichero
me da error DBFNTX/1001 Open Error
tambien pasa lo mismo si creo un texto y lo grabo en
sub_carpeta Doc_TXT o cuualquier otra que no sea la principal C:\Edit_TxT_PdF
y aparte de este problema el visor de ficheros lo queria contruir con:
@ 135,160 RICHEDITBOX Edit_1 WIDTH 586 HEIGHT 530;
BACKCOLOR {183,214,255} ;
VALUE cContenido ;
TOOLTIP 'Escriba Texto y grabelo'
compilado con QAC y ooHG no da ningun error
pero en Minigui Oficial si entonces he tenido que hacerlo con

DEFINE EDITBOX Edit_1
ROW 135
COL 160
WIDTH 586
HEIGHT 530
BACKCOLOR {183,214,255}
VALUE cContenido
FONTNAME 'Courier New'
FONTSIZE 9
TOOLTIP 'Escriba Texto y grabelo'
END EDITBOX
*-----------------------------------------------------------*
Hola amigo Esgici
I think it does not work when I delete
SET DEFAULT TO C: \ Edit_TxT_PdF
and any attempt to read file example
sub_carpeta Doc_TXT loading the file
I get error Error DBFNTX/1001 Open
The same also happens if I create a text and will burn
in sub_carpeta Doc_TXT or cuualquier other than the main C: \ Edit_TxT_PdF
and apart from this problem the display of files I wanted to construct:
@ 135.160 RICHEDITBOX Edit_1 WIDTH 586 HEIGHT 530;
BackColor (183,214,255);
VALUE cContenido ;
ToolTip 'Enter Text and burn'
QAC ooHG compiled and gives no error
Official Miniguí but then if I had to do with

DEFINE EDITBOX Edit_1
ROW 135
COL 160
WIDTH 586
HEIGHT 530
BackColor (183214255)
VALUE cContenido
FONTNAME 'Courier New'
Fontsize 9
ToolTip 'Enter Text and burn'
END EDITBOX

A big hug friend I have been there twice in Istanbul if you come to Spain

Mustafa López

[esgici]

Hola Mustafa

I think it does not work when I delete
SET DEFAULT TO C: \ Edit_TxT_PdF

Are you sure that you had deleted 3 (three) lines ?

I had tested here and it worked fine.

Only one point : for compiling with HMG you have extract (delete or commnet) #include 'miniprint.ch' (third) line from TPRINTO.prg.

Saludos a la ciudad de las luces

--

Esgici

[mustafa]

Hola Mustafa

I think it does not work when I delete
SET DEFAULT TO C: \ Edit_TxT_PdF

Are you sure that you had deleted 3 (three) lines ?

I had tested here and it worked fine.

Only one point : for compiling with HMG you have extract (delete or commnet) #include 'miniprint.ch' (third) line from TPRINTO.prg.

Saludos a la ciudad de las luces

--

Esgici

Hola
te mando una copia , yo creo que lo he efectuado como tu me has indicado, pero sale el error que te he puesto en un fichero jpg, siempre ocurre cuando quieres coger un fichero txt de la sub_carpeta Doc_TXT y cargarlo para hacer la conversión , lo mismo ocurre si creas un texto txt y lo quieres grabar en otra carpeta sale el mismo error. si lo puedes corregir mandame una copia
de los prg a mi e-mail mustalopez@gmail.com o pon un attached

Hello
give you a copy, I think I've done as you've shown me, but you get the error that I have a jpg file, always happens when you take one of the txt file and load sub_carpeta Doc_TXT to make the conversion, the same applies if you create a txt and text you want to record in another folder gives the same error. if you can send a corrected copy
prg for my e-mail or put a mustalopez@gmail.com attached
Salam Esgici

e-mail correct mustalopez@gmail.com

[mustafa]

Hola Mustafa

I think it does not work when I delete
SET DEFAULT TO C: \ Edit_TxT_PdF

Are you sure that you had deleted 3 (three) lines ?

I had tested here and it worked fine.

Only one point : for compiling with HMG you have extract (delete or commnet) #include 'miniprint.ch' (third) line from TPRINTO.prg.

Saludos a la ciudad de las luces

--

Esgici

Hola
te mando una copia , yo creo que lo he efectuado como tu me has indicado, pero sale el error que te he puesto en un fichero jpg, siempre ocurre cuando quieres coger un fichero txt de la sub_carpeta Doc_TXT y cargarlo para hacer la conversión , lo mismo ocurre si creas un texto txt y lo quieres grabar en otra carpeta sale el mismo error. si lo puedes corregir mandame una copia
de los prg a mi e-mail mustalopez@gmail.com o pon un attached

Hello
give you a copy, I think I've done as you've shown me, but you get the error that I have a jpg file, always happens when you take one of the txt file and load sub_carpeta Doc_TXT to make the conversion, the same applies if you create a txt and text you want to record in another folder gives the same error. if you can send a corrected copy
prg for my e-mail or put a mustalopez@gmail.com attached
Salam Esgici

e-mail correct mustalopez@gmail.com

Nota Final: Bicahi Esgici a corregido el fallo en Public ha colocado
cPrgFolder: GetCurrentFolder = ()
y en las Procedures BuscaFicheroF, BuscaFichero, TextoGraba , Borrax
SetCurrentFolder( cPrgFolder )
con esto queda solucionado el error que se producia al cambiar de sub_carpeta.
21-05-2009
dejo una copia compilada.
Saludos a todos

Final Note: Bicahi Esgici to correct the fault has been placed in Public
cPrgFolder: GetCurrentFolder = ()
and the Procedures BuscaFicheroF, BuscaFichero, TextoGraba, Borrax
SetCurrentFolder (cPrgFolder)
this is fixed the error that occurred when changing sub_carpeta.
21-05-2009
and I compiled a copy.
Greetings to all
Mustafa Lopez

[Rathinagiri]

Thanks a LOT.

[mustafa]

Thanks a LOT.

Hola a Todos
He modificado en opcion "Grabar un TxT" no se tenga que escribir la extension TXT es decir solo poner el nombre del nuevo fichero, lo malo es que si guardais encima de un fichero.txt existente se crea el mismo con doble extension ejemplo document.txt.txt
Tambien en opcion de "Borrar TXT" hago que se cargue el fichero a borrar ,para que se pueda ver el contenido escrito y asi no haya dudas.
Tambien en Fichero GenPDF2.prg para construir el nuevo PDF hay tres opciones con * para si se quiere puedan ser activadas, cargar foto, cambio de color tinta, y hacer una linea recta de adorno.
Dejo en Attache el nuevo fichero compilado.

Hello All
I changed "Save a txt" is not taken TXT extension to write it only put the
name of the file, the bad news is that if you keep on top of an existing file.txt is created with the same double extension such document.txt.txt
Also in option "Delete TXT" do you load the file to delete so you can see the content and so no doubt.
Also in File GenPDF2.prg to build the new PDF are three options if you want * to be activated, upload photo, color changing ink, and make a straight line ornament.
I leave in the new attached file compiled

Mustafa López

[fchirico]

Thanks a LOT.

Dejo en Attache el nuevo fichero compilado.
Mustafa López

Muchas Gracias!

Saludos, Fernando Chirico.

[esgici]

I changed "Save a txt" is not taken TXT extension to write it only put the name of the file, the bad news is that if you keep on top of an existing file.txt is created with the same double extension such document.txt.txt

Hola Mustafa

Please try to adding

Code: Select all

  IF  "." $ Cfile  
    CfileD := Cfile 
  ELSE
    CfileD := Cfile+".txt"  
  ENDIF  

to Procedure TextoGraba between

cContenido := Frm_1.Edit_1.value

and

SetCurrentFolder( cPrgFolder )

Saludos

--

Esgici