XProfan

Italia

Detlef
Tussing

Wie kann ich eine txt File optimal Mostra
hier mein Versuch, der aber nicht`s taugt.
Alles weitere steht in der versuch.txt
Kompilieren Markieren Separieren

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

whilenot @Eof(#1)

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

endwhile

close #1
waitkey
KompilierenMarkierenSeparierenDies ist die TXT File, im Original wird sie grösser sein
Versuchstext mit mehreren Zeilen versuch.txt
2 Es solte ein Textfenster geöffnet werden, um den ganzen Text lesbar darzustellen.
Zusätzlich sollten 2 Button angezeigt werden, um den Text zu akzeptieren oder nicht
3
Eventuell scrollbar
5
Hab schon viel Probiert aber der zündende Einfall kam nicht.
7
Für einen Tip wär ich dankbar
9
0
2
3
4
5
6
7
8
9
0

Gruß Detlef Tussing
Windows XP, XProfan 10

27.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jac
de
Lad

Schau mal nach ReadText und lade die ganze File in ein Multiedit. Das sieht schon 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 Zitat

Absatzweise Citazione Zeilenweise Citazione

Eigendlichn Einzeiler.

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

28.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Detlef
Tussing

Ich komm mit euren Vorschlägen nicht wirklich weiter.
Trotzdem Dank per eure Aiuto.
Ich habe alles durchsucht, finde aber kein en vergleichbaren Beitrag.
Es liegt wohl an mir, da ich mit MultiEdit und ähnlichem noch keine Erfahrung habe, und nicht weiss wie man dies einsetzt.

Gruß Detlef Tussing
Windows XP, XProfan 10

28.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Hallo Detlef
Hier ein kleiner Anfangscode....
Kompilieren Markieren Separieren

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/'>END