XProfan

Español

Torsten
Rümker

¡Hola, después de längerer Tiempo ha se veces otra vez algo ergeben, para el Yo nen kleines Programa escribir möchte, y nu stolpere Yo encima el Ausdrucken uno Textdatei.

Zwei Codes, una vez como Procedimiento, una vez stand-alone sozusagen.
El Procedimiento versagt de el zweiten Página, el stand-alone code haut el komplette Expediente por egal como lang ellos es.

Sombrero irgendjemand una Concepto, Yo falso mache?

Kompilieren Marca Separación

Proc Tabelle_drucken

    DECLARE Randlinks%
    DECLARE Línea%
    DECLARE Texto$
    LET Randlinks% = 20
    LET Línea% = 24
    Reset #1
    StartPrint *Tabla

    If %Printing

        DrawText Randlinks%, Línea%, Tabla
        INPUT #1, Texto$

        Sinestar encargado @EoF(#1)

            If Línea% >= 888

                LET Línea% = 24
                NextPage
                DrawText Randlinks%, Línea%, Tabla

            EndIf

            LET Línea% = Línea% + 24
            DrawText Randlinks%, Línea%, @Substr$(Texto$, 1, ;)
            LET Línea% = Línea% + 24
            DrawText Randlinks%, Línea%, @Substr$(Texto$, 2, ;)
            LET Línea% = Línea% + 24
            DrawText Randlinks%, Línea%, @Substr$(Texto$, 5, ;)
            LET Línea% = Línea% + 24
            DrawText Randlinks%, Línea%, ---------------------------------------------
            INPUT #1, Texto$

        EndWhile

    EndIf

    EndPrint

ENDPROC

Kompilieren Marca Separación

DECLARE Randlinks%
DECLARE Línea%
DECLARE Texto$
LET Randlinks% = 20
LET Línea% = 24
Asignar #1, daten.csv
Reset #1
StartPrint *Tabla

If %Printing

    DrawText Randlinks%, Línea%, Tabla
    INPUT #1, Texto$

    Sinestar encargado @EoF(#1)

        If Línea% >= 888

            LET Línea% = 24
            NextPage
            DrawText Randlinks%, Línea%, Tabla

        EndIf

        LET Línea% = Línea% + 24
        DrawText Randlinks%, Línea%, @Substr$(Texto$, 1, ;)
        LET Línea% = Línea% + 24
        DrawText Randlinks%, Línea%, @Substr$(Texto$, 2, ;)
        LET Línea% = Línea% + 24
        DrawText Randlinks%, Línea%, @Substr$(Texto$, 5, ;)
        LET Línea% = Línea% + 24
        DrawText Randlinks%, Línea%, ---------------------------------------------
        INPUT #1, Texto$

    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 Cita Zeilenweise Cita

H.Brill

¡Hola,
Könnte evtl. daran mentira :

1.) en el Proc fehlt el
Asignar #1, daten.csv

2.) Und schließe De todos modos después de Ablauf el
Bucle el Expediente.

Tal vez son lo esta Kleinigkeiten, el esta 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 Cita Zeilenweise Cita

E.T.

¡Hola Torsten,

tener ahora veces con su Proc-Code una wenig rumprobiert
(natürlich después de einfügen el de H.Brill genannten Sachen Asignar y Cerrar).

Hab entonces veces ne Bucle gebaut, en dein Proc mehrmals hintereinander
aufzurufen (siempre con el gleiche Expediente).
Irgendwann Yo entonces como letztes el Drucker-Diálogo gesehen, en klick en OK
gab lo una kompletten Sistema-Neustart. Das debería entonces a el Punto gewesen
ser, wo %Printing abgefragt se.

Aber solange alles durchlief, war el Ausdruck siempre correcto.

Hab el gleiche con deine stand-Alone-Versión gemacht, es 25veces sin Problemas
durchgelaufen.

Habs con lokalem Drucker (natürlich ausgeschaltet, así el alles en el Warteschlange
landet) como con Adobe-pdf-drucker probiert, siempre el gleiche.

Solltes con %Printing zusammenhängen ?? Obwohl, entonces debería el Fehler en efecto en el Stand-Alone-Versión auftreten .
Oder una Aufruf en el Proc, el simplemente a rápidamente durchläuft ?? Aber por * en el Startprint
se sí eigentlich genug gewartet...

Oder tener Yo veces en Abrechen geklickt y el Sistema ha el Var en 0 gesetzt, qué sí el If-Bucle durcheinanderbringen podría , si la Drucker siempre todavía aktiv es? ¿Tengo que igual morgen una vez más ansehen y por el Kopf ir
dejar....

Tiempo abwarten, qué lo todavía para Meinungen son....

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 Cita Zeilenweise Cita

Torsten
Rümker

El Expediente por Asignar se en uno eigenen Procedimiento festgelegt (Ir Diálogo)

Das el Expediente geschlossen voluntad muss al Ende stimmt natürlich, el Yo schonmal geändert.

Leider no Verbesserung,

Ist wirklich muy seltsam, el erste Página se korrekt gedruckt, de el zweiten kommt en lugar de el Inhalt sólo todavía unos pocos Striche, etwa así:
_
__
_
_
----------------------------------

y el entonces para cada Eintrag el eigentlich gedruckt voluntad debería.

Yo tüftel veces También se todavía más, veces sehen si Yo todavía 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 Cita Zeilenweise Cita