XProfan

- Page 2 -

Rainer
Trusch

Vielen Thanks!!
it functions objectively.
unfortunately observe I again once, I yet plenty learn must.

P.s. to Statement: it deals itself with whom Files circa Plot-Files. in the Endeffekt should so time a Selbstbau- Fräse angesteuert go.

Win XP XProfan10

Jörg
Sellmeyer

here again with read. is wrong around, but with something Anpassung Better get going klappen:
Compile Mark Separation

Cls
Screen 3000,3000
ShowMax
ChDir "D:Downloads"
Declare B#,bytes&,s1$,s2$,x%,y%
Var size& = FileSize("12345.txt")
Dim B#, Size& + 1
Var hdl& = Assign("12345.txt")
OpenRW hdl&
bytes& = @BlockRead(hdl&, B#, 0, size&)
Close hdl&
Assign hdl&,""
Var s$ = Char$(B#,0,bytes&)
Print bytes&,Len(s$)
Print Mid$(s$,32767,100)
Print Len(s$,"PD"),"-mal PD im Text enthalten"
Print Len(s$,"PU"),"-mal PD im Text enthalten"
WaitInput
hdl& = Assign("12345.txt")
Reset hdl&
Clear bytes&

WhileLoop Len(s$,"PU")

    s1$ = SubStr$(s$,&Loop,"PU"),&Loop
    Print "Gruppe: " + Str$(&Loop)

    WhileLoop Len(s1$,";PD")

        s2$ = SubStr$(s1$,&Loop,";PD"),&Loop
        x% = Val(SubStr$(s2$,1,","))
        y% = Val(SubStr$(s2$,2,","))

        If &Loop = 1

            MoveTo x%,y%

        EndIf

        LineTo x%,y%
        sleep 100
        Case %mousepressed=2:waitinput

    Wend

    Print "#####################################"
    sleep 10
    Case %mousepressed=2:waitinput

Wend

WaitInput

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Jörg
Sellmeyer

another Question Your code:
what bezweckst You with this row?
Compile Mark Separation

Case Knopf% = 7 : @DestroyWindow(Knopf%)

button is still quite no Fensterobjekt, separate only the Return Value the Messagebox.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Jörg
Sellmeyer

OK, now Have ichs
Compile Mark Separation

Cls
Screen 2000,2000
ShowMax
ChDir "D:Downloads"
Declare B#,bytes&,s1$,s2$,x%,y%
Var size& = FileSize("12345.txt")
Dim B#, Size& + 1
Var hdl& = Assign("12345.txt")
OpenRW hdl&
bytes& = @BlockRead(hdl&, B#, 0, size&)
Close hdl&
Assign hdl&,""
Var s$ = Char$(B#,0,bytes&)
Print bytes&,Len(s$)
Print Mid$(s$,32767,100)
Print Len(s$,"PD"),"-mal PD im Text enthalten"
Print Len(s$,"PU"),"-mal PU im Text enthalten"
Print Len(s$,"PZ"),"-mal PZ im Text enthalten"
WaitInput
Clear bytes&

WhileLoop Len(s$,"PU")

    s1$ = SubStr$(s$,&Loop,"PU"),&Loop
    Print "Gruppe: " + Str$(&Loop)

    WhileLoop Len(s1$,";PD")

        s2$ = SubStr$(s1$,&Loop,";PD"),&Loop
        x% = Val(SubStr$(s2$,1,","))
        y% = Val(SubStr$(s2$,2,","))

        If &Loop = 1

            moveto (x%) , ( %Maxy + 2000 -  y%)
            MoveTo x%,y%

        EndIf

        lineto (x%) , (  %Maxy + 2000 - y%)
        LineTo x%,y%
        sleep 100
        Case %mousepressed=2:waitinput

    Wend

    Print "#####################################"
    sleep 10
    Case %mousepressed=2:waitinput

Wend

WaitInput

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Rainer
Trusch

I faith, the box wished not vanish.
Also white I always not, where one The Rückgabewerte the suitable Dialog boxes get. The Help Profan is Yes very bulkily but many items find I simply not.

Win XP XProfan10

Jörg
Sellmeyer

which values of whom boxing?
The Return Value is the angeklickte Button:
Compile Mark Separation

Declare ret%,Ende%
Cls

Proc ProgEnde

    ret% = @MessageBox("Willst Du schon aufhören?","Ernstgemeinte Frage",3 + 32)
    Case Ret% = 6:Ende% = 1
    Return Ret%

EndProc

WhileNot Ende%

    WaitInput
    Case IsKey(27):Print ProgEnde()"Escape"

Wend

WaitInputnur um Das Ergebnis bei Ja noch ansehen zu can

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Sebastian
Sprenger

Rainer Trusch

I faith, the box wished not vanish.

If I the right understood have - no, is a Irrglaube. an MessageBox disappears always, if of/ one the Buttons or the Closing-Cross pressed becomes, before not. and before does it Program neither moreover.
Rainer Trusch

The Rückgabewerte the suitable Dialog boxes get.

is on two Hilfeseiten declared:

reference > functions > MessageBox (integrally under: "Das Result is the squeezed Knopf")

reference > System-Variables > %Button (these Systemvariable becomes to eachone MessageBox-, ListBox-, LoadFile$-function etc. staid)
Greeting, Sebastian

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

Rainer
Trusch

OK have The Information found. be beeindruckt, How genial your The Problematik resolved have.

Bedanke me and wish yet a lovely evening.

Win XP XProfan10

Jörg
Sellmeyer

how far is this plt-stature really standardisiert? If I with Coreldraw a graphic as plt speicherer sustain I complete others data. The letters PU PD u.s.w. are always yet drin, but everything is objectively Zeilenweise stored and to PU, PD comes still one Minuszeichen:

IN;
IN;
VS32,1;
VS32,2;
VS32,3;
VS32,4;
VS32,5;
VS32,6;
VS32,7;
VS32,8;
WU0;
PW0.350,1;
PW0.350,2;
PW0.350,3;
PW0.350,4;
PW0.350,5;
PW0.350,6;
PW0.350,7;
PW0.350,8;
SP1;
PU-2174 4119;
PD-2271 4119;
PD-2271 5010;
PD-2469 5010;
PD-2469 5107;
PD-1977 5107;
PD-1977 5010;
PD-2174 5010;
PD-2174 4119;
SP1;
PU-1216 4462;
PD-1889 4462;
PD-1889 4462;
PD-1888 4447;
PD-1886 4432;
PD-1884 4418;

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Frank
Abbing

where it Opportunities gives, the too abzufangen or the box in a own Thread to start...

Rainer
Trusch

I have already fixes, that it many mutants gives. would have You z.B. a Uraltversion of Corel Draw (I know it version of 3), would The File except for The Zeilenumbrüche none so differently looks. the HPGL-stature is already right old and was always moreover complement. command, The z.B. Farbangaben include, there were initially logischerweise not. Also there many Parameter and command, The but into Files, The from the gängigen Programs prepares go so well How none vorkommen. an complete Overview have I there neither. here are some command to find:
www.dorner.at/support/documents/okipage6ex_000.pdf

Win XP XProfan10

08/25/08 ▲