XProfan

cls
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Textdatei von TopOCR

Proc New_PDF

    var s_dlg%= Create("Dialog",%hwnd,"",0,0,370,330)
    Declare Edit%, Bereich#,text$,x%,y%
    Edit% = @Create("MultiEdit", %hwnd, "", 0,0, 360, -320)
    Dim Bereich#, @FileSize("TEXT.TXT") + 4
    ReadText Bereich#, "TEXT.TXT"
    @SendMessage(Edit%, $000C, 0, Bereich#)
    Assign #2,"TEXT.pdf"
    Rewrite #2
    Print #2,"%PDF-1.2"
    Print #2,"%âãÏÓ"
    Print #2,"1 0 obj"
    Print #2,"<<"
    Print #2,"/Author ()"
    Print #2,"/CreationDate (D:20090105223536)"
    Print #2,"/Creator (PDFproducer  v1.3)"
    Print #2,"/Producer (PDFproducer )"
    Print #2,"/Title ()"
    Print #2,"/Subject ()"
    Print #2,"/Keywords ()"
    Print #2,">>"
    Print #2,"endobj"
    Print #2,"4 0 obj"
    Print #2,"<<"
    Print #2,"/Type /Font"
    Print #2,"/Subtype /Type1"
    Print #2,"/Name /F1"
    Print #2,"/Encoding 5 0 R"
    Print #2,"/BaseFont /Arial"
    Print #2,">>"
    Print #2,"endobj"
    Print #2,"5 0 obj"
    Print #2,"<<"
    Print #2,"/Type /Encoding"
    Print #2,"/BaseEncoding /WinAnsiEncoding"
    Print #2,">>"
    Print #2,"endobj"
    Print #2,"6 0 obj"
    Print #2,"<<"
    Print #2,"  /Font << /F1 4 0 R >>"
    Print #2,"  /ProcSet [ /PDF /Text ]"
    Print #2,">>"
    Print #2,"endobj"
    Print #2,"7 0 obj"
    Print #2,"<<"
    Print #2,"/Type /Page"
    Print #2,"/Parent 3 0 R"
    Print #2,"/Resources 6 0 R"
    Print #2,"/Contents 8 0 R"
    Print #2,"/Rotate 0"
    Print #2,">>"
    Print #2,"endobj"
    Print #2,"8 0 obj"
    Print #2,"<<"
    Print #2,"/Length 6 0 R"
    Print #2,">>"
    Print #2,"stream"
    Print #2,"BT"
    Print #2,"/F1 10 Tf"

    If GetLineCount(Edit%)<80

        print #2,"1 0 0 1 10 782 Tm"

    Else

        Print #2,"1 0 0 1 10 1782 Tm"

    EndIf

    Print #2,"12 TL"

    whileloop @GetLineCount(Edit%)-1

        text$=trim$(GetLine$(Edit%,(&loop-1)))
        text$=Translate$(Text$,"(","(")
        text$=Translate$(Text$,")",")")
        text$="T* (" + text$ + ") Tj"
        Print #2,text$

    wend

    Print #2,"1 0 0 1 504 25 Tm"
    Print #2,"(1) Tj"
    Print #2,"/F1 10 Tf"
    Print #2,"ET"
    Print #2,"endstream"
    Print #2,"endobj"
    Print #2,"9 0 obj"
    Print #2,"2360"
    Print #2,"endobj"
    Print #2,"2 0 obj"
    Print #2,"<<"
    Print #2,"/Type /Catalog"
    Print #2,"/Pages 3 0 R"
    Print #2,">>"
    Print #2,"endobj"
    Print #2,"3 0 obj"
    Print #2,"<<"
    Print #2,"/Type /Pages"
    Print #2,"/Count 1"

    If GetLineCount(Edit%)<80

        Print #2,"/MediaBox [ 0 0 238 792 ]"

    Else

        Print #2,"/MediaBox [ 0 0 238 1782 ]"

    EndIf

    Print #2,"/Kids [ 7 0 R ]"
    Print #2,">>"
    Print #2,"endobj"
    Print #2,"0 10"
    Print #2,"0000000000 65535 f"
    Print #2,"0000000013 00000 n"
    Print #2,"0000002875 00000 n"
    Print #2,"0000002918 00000 n"
    Print #2,"0000000156 00000 n"
    Print #2,"0000000245 00000 n"
    Print #2,"0000000307 00000 n"
    Print #2,"0000000372 00000 n"
    Print #2,"0000000453 00000 n"
    Print #2,"0000002858 00000 n"
    Print #2,"trailer"
    Print #2,"<<"
    Print #2,"/Size 10"
    Print #2,"/Root 2 0 R"
    Print #2,"/Info 1 0 R"
    Print #2,">>"
    Print #2,"startxref"
    Print #2,"2996"
    Print #2,"%%EOF"
    Close #2
    WaitInput

EndProc

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~