XProfan

English

Torsten
Rümker

Hello, to längerer Time has time again something yield, for the I NEN small Program write would like, and nu stolpere I over the Print out of/ one Textdatei.

two Codes, once as procedure, once stood-alone sozusagen.
The procedure fail ex the second Page, the stood-alone code skin The complete File through alike How long she's.

has someone a idea, I wrong make?

Compile Mark Separation

Proc Tabelle_drucken

    DECLARE Randlinks%
    DECLARE row%
    DECLARE Text$
    LET Randlinks% = 20
    LET row% = 24
    Reset #1
    StartPrint *scheduler

    If %Printing

        DrawText Randlinks%, row%, scheduler
        INPUT #1, Text$

        WhileNot @EoF(#1)

            If row% >= 888

                LET row% = 24
                NextPage
                DrawText Randlinks%, row%, scheduler

            EndIf

            LET row% = row% + 24
            DrawText Randlinks%, row%, @SubStr$(Text$, 1, ;)
            LET row% = row% + 24
            DrawText Randlinks%, row%, @SubStr$(Text$, 2, ;)
            LET row% = row% + 24
            DrawText Randlinks%, row%, @SubStr$(Text$, 5, ;)
            LET row% = row% + 24
            DrawText Randlinks%, row%, ---------------------------------------------
            INPUT #1, Text$

        EndWhile

    EndIf

    EndPrint

ENDPROC

Compile Mark Separation

DECLARE Randlinks%
DECLARE row%
DECLARE Text$
LET Randlinks% = 20
LET row% = 24
Assign #1, data.csv
Reset #1
StartPrint *scheduler

If %Printing

    DrawText Randlinks%, row%, scheduler
    INPUT #1, Text$

    WhileNot @EoF(#1)

        If row% >= 888

            LET row% = 24
            NextPage
            DrawText Randlinks%, row%, scheduler

        EndIf

        LET row% = row% + 24
        DrawText Randlinks%, row%, @SubStr$(Text$, 1, ;)
        LET row% = row% + 24
        DrawText Randlinks%, row%, @SubStr$(Text$, 2, ;)
        LET row% = row% + 24
        DrawText Randlinks%, row%, @SubStr$(Text$, 5, ;)
        LET row% = row% + 24
        DrawText Randlinks%, row%, ---------------------------------------------
        INPUT #1, Text$

    EndWhile

EndIf

EndPrint

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

04/21/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

Hi,
might evtl. on it lying :

1.) in Proc missing the
Assign #1, data.csv

2.) and schließe too always to term the
Loop The File.

Perhaps are it these Kleinigkeiten, The these Nebeneffekte
. Trigger

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

04/21/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

Hello Torsten,

Have now time with your Proc-code a little bit rumprobiert
(naturally to insert the of H.Brill named things Assign and Close).

Have then time ne Loop built, circa your Proc number of times one after another
aufzurufen (always with the same File).
Sometime have I then as a last whom printer-dialog seen, with klick on OK
there were a kompletten system-Neustart. the should then on the place been
his, where %Printing quizzed becomes.

but as long as everything durchlief, was the expression always correctly..

Have the same with your stood-Alone-Version made, is 25times without Problems
durchgelaufen.

Habs with lokalem printer (naturally off, so the everything in the Warteschlange
alights) as well as with Adobe-pdf-printer probiert, always the same.

Solltes with %Printing zusammenhängen ?? though, then ought to the Error indeed in the stood-Alone-Version appear .
or one appeal in the Proc, the simply To quick durchläuft ?? but through * in the Startprint
becomes Yes really enough waited...

or Have I time on Abrechen clicked and the system has The Var on 0 staid, what Yes The If-Loop to mix up could , if the printer still active is? mandatory I me same tommorrow once more standing and by the head weg
let....

time to wait it out, what it yet for opinions gives....

Mario

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

04/22/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Torsten
Rümker

The File by Assign becomes in a own procedure set (Open File dialog)

the The File closed go must end is correct naturally, the have I Schonmal changed.

unfortunately no improvement,

is really very strange, The first Page becomes correctly printed, ex the second comes instead of the Content only another couple Striche, about so:
_
__
_
_
----------------------------------

and the then for each entry the really printed go ought to.

I tüftel time yourself too yet moreover, time see whether I it yet herausbekomme.

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

04/23/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote