Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 242952 (4388)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Text-Datei automatisch laden und speichern
Martin Pohl
| Datum:24.05.02 13:50 (bananenfresser@msn.com) |
Hallo! Ich bins mal wieder. Ich habe in einem Dialogfeld eine EditBox eingefügt und möchte nun, dass sie automatische die notiz.txt im selben Verzeichnis öffnet. Dann soll man sie verändern können. Wenn man dann das X oben rechts drückt, dann soll die Datei gespeichert werden und der Dialog geschlossen werden. Könnte mir jemand einen Code dafür erstellen?
Rolf Koch
| Datum: 24.05.02 23:39 (webmaster@rokosoft.de) |
Hi Martin - ich machs immer so:
    '********************** HINWEISE ********************************
    ' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR V 2.5
    ' DATUM  24.05.2002    um  20:44 Uhr
    ' VERWENDETE PROFANVERSION IST 7.0 ODER HÖHER
    SETTRUECOLOR 1
    DECLARE ENDE%
    DECLARE DLG&
    DECLARE MULTIEDIT1%,Zeile%
    DECLARE TEXT1%,zeile$,anzahl%
    DECLARE BEREICH#
    WINDOW 0,0-0,0
    DLG&=CREATE("DIALOG",%HWND,"Text bearbeiten und speichern",92,58,498,297)
    USEFONT "MS Sans Serif",13,0,0,0,0
    SETDIALOGFONT 1
    MULTIEDIT1% =@CREATE("MULTIEDIT",DLG&,"",0033,0030,0428,0172)
    TEXT1% =@CREATE("TEXT",DLG&,"Dein Wunsch geht in Erfüllung klicke auf das X :)",0104,0218,0305,0021)
    If neq$(findfirst$("NOTIZ.TXT"),"")
       DIM Bereich#,@FileSize("NOTIZ.TXT")+2
       ReadText Bereich#,"NOTIZ.TXT"
       @SendMessage(MULTIEDIT1%,$000C,0,Bereich#)
       Dispose Bereich#
    Endif

    WHILENOT ENDE%
    WAITINPUT
       If @EQU(%KEY,2) 'Wenn das X geklickt wird (warum machst Du kein Button?)
          If neq$(findfirst$("NOTIZ.TXT"),"")	'Bearbeiteten Text neu in Notiz.txt schreiben!
    	ASSIGN #1,"NOTIZ.TXT"
    	REWRITE #1
    	let anzahl%=@GetLineCount(Multiedit1%)
    	let zeile%=0
         	WHILENOT equ(anzahl%,zeile%)
    	  print #1,@GetLine$(multiedit1%,zeile%)
    	  inc zeile%
    	wend
            CLOSE #1
           ENDIF
           LET ENDE%= 1
       ELSEIF GETFOCUS(MULTIEDIT1%) 'MULTIEDIT

       ENDIF
    WEND

| Zurück zur Übersicht