XProfan

Français

Detlef
Tussing

comment peux je une txt Dossier optimal Montrer
ici mon Versuch, qui mais nicht`s taugt.
Alles weitere steht dans qui versuch.txt
Kompilieren Marque Séparation

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

whilenot @Eof(#1)

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

endwhile

close #1
waitkey
KompilierenMarqueSéparationca ist qui TXT Dossier, im Original wird vous grösser son
Versuchstext avec mehreren Zeilen versuch.txt
2 Es solte un Textfenster ouvert volonté, um den ganzen Text lesbar darzustellen.
Zusätzlich devrait 2 Button angezeigt volonté, um den Text trop akzeptieren ou bien pas
3
Eventuell scrollbar
5
Hab déjà viel Probiert mais qui allumage la fantaisie kam pas.
7
Pour une Tip wär je reconnaissant
9
0
2
3
4
5
6
7
8
9
0

Gruß Detlef Tussing
Windows XP, XProfan 10

27.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

exposition la fois pour ReadText et lade qui ganze Dossier dans un Multiedit. cela sieht déjà besser aus.

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

27.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Eigendlichn Einzeiler.

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

28.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Tussing

je komm avec euren Vorschlägen pas wirklich plus.
quand même Dank pour eure Aider.
j'ai alles durchsucht, finde mais ne...aucune en vergleichbaren Beitrag.
Es liegt wohl à mir, là je avec MultiEdit et ähnlichem encore aucun Erfahrung habe, et pas weiss comment on ca einsetzt.

Gruß Detlef Tussing
Windows XP, XProfan 10

28.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

allô Detlef
ici un kleiner Anfangscode....
Kompilieren Marque Séparation

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

/../funktionsreferenzen/XProfan/end/'>FIN