XProfan

Français

Torsten
Rümker

allô, pour längerer Zeit hat sich la fois wieder quelque chose ergeben, pour le moi nen kleines Programme écrivons voudrais, et nu stolpere je sur cela Ausdrucken einer Textdatei.

deux Codes, einmal comme Procédure, einmal stand-alone sozusagen.
qui Procédure versagt ab qui zweiten page, qui stand-alone code haut qui komplette Dossier par égal comment long vous ist.

Hat irgendjemand une concept, quoi je faux fais?

Kompilieren Marque Séparation

Proc Tabelle_drucken

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

    Si %Printing

        DrawText Randlinks%, la ligne%, Tabelle
        INPUT #1, Text$

        WhileNot @EoF(#1)

            Si la ligne% >= 888

                LET la ligne% = 24
                NextPage
                DrawText Randlinks%, la ligne%, Tabelle

            EndIf

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

        Endwhile

    EndIf

    EndPrint

ENDPROC

Kompilieren Marque Séparation

DECLARE Randlinks%
DECLARE la ligne%
DECLARE Text$
LET Randlinks% = 20
LET la ligne% = 24
Assign #1, données.csv
Reset #1
StartPrint *Tabelle

Si %Printing

    DrawText Randlinks%, la ligne%, Tabelle
    INPUT #1, Text$

    WhileNot @EoF(#1)

        Si la ligne% >= 888

            LET la ligne% = 24
            NextPage
            DrawText Randlinks%, la ligne%, Tabelle

        EndIf

        LET la ligne% = la ligne% + 24
        DrawText Randlinks%, la ligne%, @$ Substr(Text$, 1, ;)
        LET la ligne% = la ligne% + 24
        DrawText Randlinks%, la ligne%, @$ Substr(Text$, 2, ;)
        LET la ligne% = la ligne% + 24
        DrawText Randlinks%, la ligne%, @$ Substr(Text$, 5, ;)
        LET la ligne% = la ligne% + 24
        DrawText Randlinks%, la ligne%, ---------------------------------------------
        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 citation

Absatzweise Citation Zeilenweise Citation

H.Brill

Salut,
Könnte peut-être. daran liegen :

1.) dans qui Proc fehlt cela
Assign #1, données.csv

2.) et schließe De toute façon pour le bout qui
Boucle qui Dossier.

peut-être sommes es cet Kleinigkeiten, qui cet 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 citation

Absatzweise Citation Zeilenweise Citation

E.T.

allô Torsten,

hab maintenant la fois avec Deinem Proc-Code un peu rumprobiert
(naturellement pour insérer qui de H.Brill genannten Sachen Assign et Fermer).

Hab ensuite la fois ne Boucle gebaut, um dein Proc plusieurs fois hintereinander
aufzurufen (toujours avec qui gleiche Dossier).
Irgendwann habe je ensuite comme letztes den Drucker-Dialog gesehen, chez klick sur OK
donnais es une kompletten System-Neustart. cela devrait ensuite à qui Stelle gewesen
son, wohin %Printing abgefragt wird.

mais solange alles durchlief, était qui Ausdruck toujours richtig.

Hab cela gleiche avec deine stand-Seul-Version gemacht, ist 25la fois sans Probleme
durchgelaufen.

Tricolore avec lokalem Drucker (naturellement ausgeschaltet, so cela alles dans qui Warteschlange
landet) aussi avec Adobe-pdf-drucker probiert, toujours cela gleiche.

Solltes avec %Printing zusammenhängen ?? quoique, ensuite sollte qui faute oui aussi dans qui Stand-Seul-Version auftreten .
ou bien un Aufruf im Proc, qui simple trop vite durchläuft ?? mais par * im Startprint
wird oui eigentlich genug gewartet...

ou bien hab je la fois sur Abrechen geklickt et cela System hat qui Var sur 0 gesetzt, quoi oui qui Si-Boucle durcheinanderbringen pourrait , si qui Drucker toujours aktiv ist? Doit je mir juste demain encore la fois regarder et par den tête aller
laisser....

la fois abwarten, quoi es encore pour 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 citation

Absatzweise Citation Zeilenweise Citation

Torsten
Rümker

qui Dossier per Assign wird dans einer eigenen Procédure festgelegt (Aller Dialog)

cela qui Dossier geschlossen volonté muss am Ende stimmt naturellement, cela habe je Schonmal geändert.

malheureusement aucun amélioration,

Ist wirklich très seltsam, la première page wird korrekt gedruckt, ab qui zweiten venez statt dem le contenu seulement encore un paire Striche, etwa so:
_
__
_
_
----------------------------------

et cela ensuite pour jeden Eintrag qui eigentlich gedruckt volonté sollte.

je tüftel la fois selber aussi encore plus, la fois voyons si je es encore herausbekomme.

MfG
Torsten

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

23.04.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Peter
Max
Müller

Salut,
sans es maintenant getestet trop avons:
exposition la fois si cela hilft:
[web]https://www.rgh-soft.de/forum01/read.php?f=7&i=4280&t=4280[/web]
Salut

XProfan X3, X4ß, Win 10.1

23.04.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Torsten
Rümker

oui