XProfan

Deutsch

Torsten
Rümker

Hallo, nach längerer Zeit hat sich mal wieder etwas ergeben, für das ich nen kleines Programm schreiben möchte, und nu stolpere ich über das Ausdrucken einer Textdatei.

Zwei Codes, einmal als Prozedur, einmal stand-alone sozusagen.
Die Prozedur versagt ab der zweiten Seite, der stand-alone code haut die komplette Datei durch egal wie lang sie ist.

Hat irgendjemand eine Idee, was ich falsch mache?

Kompilieren Markieren Separieren

Proc Tabelle_drucken

    DECLARE Randlinks%
    DECLARE Zeile%
    DECLARE Text$
    LET Randlinks% = 20
    LET Zeile% = 24
    Reset #1
    StartPrint *Tabelle

    If %Printing

        DrawText Randlinks%, Zeile%, Tabelle
        INPUT #1, Text$

        WhileNot @EoF(#1)

            If Zeile% >= 888

                LET Zeile% = 24
                NextPage
                DrawText Randlinks%, Zeile%, Tabelle

            EndIf

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

        EndWhile

    EndIf

    EndPrint

EndProc

Kompilieren Markieren Separieren

DECLARE Randlinks%
DECLARE Zeile%
DECLARE Text$
LET Randlinks% = 20
LET Zeile% = 24
Assign #1, daten.csv
Reset #1
StartPrint *Tabelle

If %Printing

    DrawText Randlinks%, Zeile%, Tabelle
    INPUT #1, Text$

    WhileNot @EoF(#1)

        If Zeile% >= 888

            LET Zeile% = 24
            NextPage
            DrawText Randlinks%, Zeile%, Tabelle

        EndIf

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

    EndWhile

EndIf

EndPrint

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

21.04.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

H.Brill

Hallo,
Könnte evtl. daran liegen :

1.) in der Proc fehlt das
Assign #1, daten.csv

2.) Und schließe auch immer nach Ablauf der
Schleife die Datei.

Vielleicht sind es diese Kleinigkeiten, die diese Nebeneffekte
auslösen.

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.

21.04.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

E.T.

Hallo Torsten,

hab jetzt mal mit Deinem Proc-Code ein wenig rumprobiert
(natürlich nach einfügen der von H.Brill genannten Sachen Assign und Close).

Hab dann mal ne Schleife gebaut, um dein Proc mehrmals hintereinander
aufzurufen (immer mit der gleiche Datei).
Irgendwann habe ich dann als letztes den Drucker-Dialog gesehen, bei klick auf OK
gab es einen kompletten System-Neustart. Das müsste dann an der Stelle gewesen
sein, wo %Printing abgefragt wird.

Aber solange alles durchlief, war der Ausdruck immer richtig.

Hab das gleiche mit deine stand-Alone-Version gemacht, ist 25mal ohne Probleme
durchgelaufen.

Habs mit lokalem Drucker (natürlich ausgeschaltet, so das alles in der Warteschlange
landet) wie auch mit Adobe-pdf-drucker probiert, immer das gleiche.

Solltes mit %Printing zusammenhängen ?? Obwohl, dann sollte der Fehler ja auch in der Stand-Alone-Version auftreten .
Oder ein Aufruf im Proc, der einfach zu schnell durchläuft ?? Aber durch * im Startprint
wird ja eigentlich genug gewartet...

Oder hab ich mal auf Abrechen geklickt und das System hat die Var auf 0 gesetzt, was ja die If-Schleife durcheinanderbringen könnte , wenn der Drucker immer noch aktiv ist? Muß ich mir gleich morgen noch mal ansehen und durch den Kopf gehen
lassen....

Mal abwarten, was es noch für Meinungen gibt....

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...

22.04.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Torsten
Rümker

Die Datei per Assign wird in einer eigenen Prozedur festgelegt (Datei öffnen Dialog)

Das die Datei geschlossen werden muss am Ende stimmt natürlich, das habe ich schonmal geändert.

Leider keine Verbesserung,

Ist wirklich sehr seltsam, die erste Seite wird korrekt gedruckt, ab der zweiten kommt statt dem Inhalt nur noch ein paar Striche, etwa so:
_
__
_
_
----------------------------------

und das dann für jeden Eintrag der eigentlich gedruckt werden sollte.

Ich tüftel mal selber auch noch weiter, mal sehen ob ich es noch herausbekomme.

MfG
Torsten

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

23.04.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren