Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 242952 (4388)
  Suchen
 Zurück zur Übersicht
 AutorThema: Text-Datei automatisch laden und speichern
Martin Pohl
Datum:24.05.02 13:50 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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