conversion of .txt file into pdf using pdf include

[Shrestha]

hi,
i hav converted .txt file in to pdf file using pdf include. but the problem is that i coudn't able to convert the severals tags in .txt files like \b \u which i need to make font bold and underlined. and
[TABEL][071L][020-][095R][020-]
Ten behoeve van: de heer B. van Klaveren/ 7138737 afgedrukt d.d. 05-06-2008/17.0b
[ETABEL]
into table format.

My code is like below.
{ pdf_inc.i }


DEFINE VARIABLE cPdfFile AS CHARACTER NO-UNDO.
DEFINE VARIABLE cTxtFile AS CHARACTER NO-UNDO.
DEFINE VARIABLE cLine AS CHARACTER NO-UNDO.
DEFINE VARIABLE CurrentY AS integer NO-UNDO.
DEFINE VARIABLE vlines AS integer NO-UNDO.
DEFINE VARIABLE cRegel AS CHARACTER FORMAT "x(1000)" NO-UNDO.
DEFINE VARIABLE lTabel AS LOGICAL NO-UNDO.
DEF STREAM so.
DEFINE STREAM stTxtFile.
PROCEDURE PageFooter:
/*------------------------------------------------------------------------------
Purpose: Procedure to Print Page Footer -- on all pages.
------------------------------------------------------------------------------*/
/* Display a Sample Watermark on every page */
RUN pdf_watermark ("pdfStream","Test Test Test","Courier-Bold",34,.87,.87,.87,175,500).

RUN pdf_skip ("pdfStream").
RUN pdf_set_dash ("pdfStream",1,0).
RUN pdf_line ("pdfStream", 20, pdf_TextY("pdfStream") - 10, pdf_PageWidth("pdfStream") - 40 , pdf_TextY("pdfStream") - 10, 1).
RUN pdf_skip ("pdfStream").
RUN pdf_skip ("pdfStream").
RUN pdf_text_at("pdfStream","Offertenummer 3-1 afgedrukt d.d. 05-06-2008/17.0b", 5).
RUN pdf_text_to ("pdfStream", "Page: "
+ STRING(pdf_page("pdfStream"))
+ " of " + pdf_TotalPages("pdfStream"), 97).

vlines = 1. /* Restart our count for the linking */

END. /* PageFooter */

PROCEDURE PageHeader:
/*------------------------------------------------------------------------------
Purpose: Procedure to Print Page Heade -- on all pages.
------------------------------------------------------------------------------*/
/* Display a Sample Watermark on every page */
/*RUN pdf_watermark ("pdfStream","Customer List","Courier-Bold",34,.87,.87,.87,175,500).*/
RUN pdf_skip ("pdfStream").
RUN pdf_text_to ("pdfStream", "Het Zwitserleven Privilege Pensioen " , 80).
RUN pdf_set_dash ("pdfStream",1,0).
RUN pdf_line ("pdfStream", 20, pdf_TextY("pdfStream") - 10, pdf_PageWidth("pdfStream") - 40 , pdf_TextY("pdfStream") - 10, 1).
RUN pdf_skip ("pdfStream").
RUN pdf_skip ("pdfStream").
vlines = 1.

END. /* PageHeader */


ASSIGN cPdfFile = "D:\pdf\page.pdf"
cTxtFile = "D:\pdf\page.txt".


RUN pdf_new("pdfStream",cPdfFile).
RUN pdf_set_font("pdfStream","Helvetica-Oblique",10.0).
pdf_PageHeader ("pdfStream",THIS-PROCEDURE:HANDLE,"PageHeader").
RUN pdf_new_page("pdfStream").
RUN pdf_set_BottomMargin ("pdfStream", 80).
RUN pdf_set_PageHeight ("pdfStream",792).
RUN pdf_set_PageWidth ("pdfStream",612).
pdf_PageFooter ("pdfStream",THIS-PROCEDURE:HANDLE,"PageFooter").

INPUT STREAM stTxtFile FROM VALUE (cTxtFile).

REPEAT:
IMPORT STREAM stTxtFile UNFORMATTED cLine.

/*RUN pdf_text_at("pdfStream",cLine, 5).*/
/*RUN pdf_text_to ("pdfStream",cLine,30).*/

RUN pdf_wrap_Text
("pdfStream",
cLine,
10,
90,
"left",
OUTPUT CurrentY).

RUN pdf_skip("pdfStream").


END.

INPUT STREAM stTxtFile CLOSE.
RUN pdf_close("pdfStream").

I would really appreicte ur help in the matter.

i will forward to hear from u.

thank you,
Ganga

 

[yoachan]

Hi there,
I don't know what really happennin, but as far as i know, progress (webspeed) treat '\' (backslash) character as one of it's keyword just like '~' and '{'. Have you ever try using different tag, such as [/b] instead of using \n....