XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Text in Datei speichern
Lauffähig ab Profan-Version 5.0

proc schreiben

    SetText _dlg%,speichern
    declare i%,ii%
    Let ii%=0
    assign #1,meldung.txt
    rewrite #1

    while lt(ii%,getlinecount(me%))

        print #1,ansitoOEM$(getline$(me%,ii%))
        inc ii%

    wend

    close #1

endproc

proc dialog

    declare zeile$,_ende%,_dlg%,me%,OK%
    windowstyle $F0
    window 0,0-0,0
    SetDialogFont  1
    randomize
    assign #1,meldung.txt
    reset #1
    clearlist

    WHILENOT @EOF(#1)

        INPUT #1, zeile$
        addstring oemtoansi$(Zeile$)

    wend

    close #1
    let _dlg%=@createdialog(%Hwnd,Zur Information:,0,0,540,400)
    let me%=@createmultiedit(_dlg%,,8,8,480,360)
    let OK%=@createdefbutton(_dlg%,OK,500,8,30,360)
    setfocus (ok%)
    @MoveListToEdit (me%)
    let _Ende% = 0

    whilenot _ende%

        waitinput

        if @equ(%key,2)

            let _ende% = 1

        elseif @getfocus(OK%)

            schreiben
            let _ende%=1

        endif

    wend

    @destroywindow(_dlg%)

endproc

Assign #1,meldung.txt
Append #1

if %ioresult

    rewrite #1
    case %ioresult:end
    print #1,Dies ist eine Beispiel!
    print #1,Hier kannst Du beliebigen Text schreibe.
    print #1,Mit Klick auf OK wird alles gespeichert

endif

Close #1
dialog
end