XProfan

English

Detlef
Tussing

How can I a txt File optimal Show
here my attempt, the but nicht`s taugt.
everything further standing in the attempt.txt
Compile Mark Separation

 {$DEBUG}
declare x$
Assign #1,versuch.txt
reset #1

whilenot @Eof(#1)

    input #1,x$
    print x$ close #1

endwhile

close #1
waitkey
CompileMarkSeparationthis is The TXT File, in the Original becomes tappt im dunkeln greater his
Versuchstext with several Lines attempt.txt
2 it solte one Textfenster opened go, circa whom whole Text readable darzustellen.
Additional should 2 Button displayed go, circa whom Text To to accept or not
3
possible scrollable
5
Have already plenty Probiert but the zündende Einfall coming not.
7
for a hint would I grateful
9
0
2
3
4
5
6
7
8
9
0

Gruß Detlef Tussing
Windows XP, XProfan 10

06/27/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

look time to ReadText and load The whole File in one MultiEdit. the sees already rather from.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

06/27/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Eigendlichn Einzeiler.

var edit&=createedit(%hwnd,file_get_contents(myfile),0,0,width(%hwnd),-height(%hwnd))

06/28/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Tussing

I komm with euren Vorschlägen not really moreover.
nevertheless Thanks for eure Help.
I have everything search, find but no en vergleichbaren Posting.
it's located well on me, I with MultiEdit and ähnlichem yet no experience have, and not knows How one this einsetzt.

Gruß Detlef Tussing
Windows XP, XProfan 10

06/28/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hello Detlef
here one small Anfangscode....
Compile Mark Separation

DECLARE edit&,bereich#
DECLARE EE%,print%,save%,aus%,font%
font%=CREATE(FONT,ARIAL,16,6,0,0,0)
EE%=0
-----------------------------------------

PROC BEENDEN

    DISPOSE bereich#
    EE%=1

ENDPROC

------------------------------------------

PROC EDITOR

    PARAMETERS datei$

    IF datei$ >

        edit&=CREATE(MULTIEDIT,%HWnd,,10,25,615,415)
        SetFont edit&,font%
        Dim Bereich#, @FileSize(datei$) + 5
        ReadText Bereich#, datei$
        SendMessage(edit&, $000C, 0, Bereich#)

    ENDIF

ENDPROC

-----------------------------------------
WindowStyle 26
WINDOW (%MaxX/2-320),(%MaxY/2-240)-640,480
USEICON TEXT
WindowTitle Beispielcode
save%=CREATE(BUTTON,%HWND,&Speichern,10,2,80,20)
SetFont save%,font%
print%=CREATE(BUTTON,%HWND,&Drucken,100,2,80,20)
SetFont print%,font%
aus%=CREATE(BUTTON,%HWND,ESC Ende,545,2,80,20)
SetFont aus%,font%
EDITOR dateiname Deine Datei als String angeben

WHILENOT EE%

    WAITINPUT
    CASE ISKEY(27) | CLICKED(aus%):BEENDEN

ENDWHILE

/../Function-References/XProfan/end/'>END