XProfan

Deutsch

Detlef
Tussing

Wie kann ich eine txt Datei optimal anzeigen
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
end

Kompilieren Markieren Separieren

Dies ist die TXT Datei, 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 zitieren Zeilenweise zitieren

Jac
de
Lad

Schau mal nach ReadText und lade die ganze Datei 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 zitieren Zeilenweise zitieren

Eigendlichn Einzeiler.

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

28.06.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Detlef
Tussing

Ich komm mit euren Vorschlägen nicht wirklich weiter.
Trotzdem Dank für eure Hilfe.
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 zitieren Zeilenweise zitieren

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

END