Code Problem
-
Hroudtwolf
- Beiträge: 1416
- Registriert: 30.10.2004 23:33
- Kontaktdaten:
das funktioniert 100% !!!!!!
gruss...
Code: Alles auswählen
If OpenFile(0,"Datei.txt")
WegDatei$=ReadString()
CloseFile(0)
EndIf
Enumeration
#Window_0
#Editor
#New
#Open
#Save
#Delet
#LDL
#Exit
EndEnumeration
mmessage.w=0
Zeile.w=0
If OpenWindow(#Window_0,0,0,500,350, #PB_Window_ScreenCentered,"Editor")
If CreateToolBar(0, WindowID())
ToolBarStandardButton(#New, #PB_ToolBarIcon_New):ToolBarToolTip(#New,"Neu Strg+N")
ToolBarStandardButton(#Open, #PB_ToolBarIcon_Open):ToolBarToolTip(#Open,"Öffnen Strg+O")
ToolBarStandardButton(#Save, #PB_ToolBarIcon_Save):ToolBarToolTip(#Save,"Speichern Strg+S")
ToolBarStandardButton(#Delet, #PB_ToolBarIcon_Delete):ToolBarToolTip(#Delet,"Alles löschen Strg+L")
ToolBarStandardButton(#LDL, #PB_ToolBarIcon_Properties):ToolBarToolTip(#LDL,"Letzte Datei Laden")
ToolBarStandardButton(#Exit, #PB_ToolBarIcon_Delete):ToolBarToolTip(#Exit,"Programm beenden")
EndIf
If CreateGadgetList(WindowID())
EditorGadget(#Editor,0,25,500,250)
EndIf
If CreatePopupMenu(0)
MenuItem(1, "Open")
MenuItem(2, "Save")
MenuItem(3, "Save as")
MenuItem(4, "Quit")
EndIf
Repeat
AddKeyboardShortcut(0, #PB_Shortcut_Control|#PB_Shortcut_N, #New)
AddKeyboardShortcut(0, #PB_Shortcut_Control|#PB_Shortcut_O, #Open)
AddKeyboardShortcut(0, #PB_Shortcut_Control|#PB_Shortcut_S, #Save)
AddKeyboardShortcut(0, #PB_Shortcut_Control|#PB_Shortcut_L, #Delet)
Select WaitWindowEvent()
Case #PB_Event_Menu
Select EventMenuID()
Case #New
message=MessageRequester("Neu","Möchten sie eine Neue Datei?",#PB_MessageRequester_YesNo)
If message=6
ClearGadgetItemList(#Editor)
Weg$=""
EndIf
Case #Open
Weg$=OpenFileRequester("Was möchten sie öffnen?",Satndertweg$,"*.txt",0)
If Weg$<>""
OpenFile(0,Weg$)
Repeat
AddGadgetItem(#Editor,Zeile,ReadString())
Zeile+1
Until Eof(0)
CloseFile(0)
EndIf
Case #Save
Zeile=0
If Weg$<>""
CreateFile(0,Weg$)
Ende=0
Repeat
String.s=GetGadgetItemText(#Editor,Zeile,0)
WriteStringN(String)
If GetGadgetItemText(#Editor,Zeile,0)=""
Ende+1
Else
Ende=0
EndIf
Zeile+1
Until Ende=10
CloseFile(0)
Else
Weg$=SaveFileRequester("Speichern","C:\","*.txt",0)
CreateFile(0,Weg$+".txt")
Ende=0
Repeat
String.s=GetGadgetItemText(#Editor,Zeile,0)
WriteStringN(String)
If GetGadgetItemText(#Editor,Zeile,0)=""
Ende+1
Else
Ende=0
EndIf
Zeile+1
Until Ende=10
CloseFile(0)
EndIf
Case #Delet
message=MessageRequester("Löschen","Möchten sie alles Löschen?",#PB_MessageRequester_YesNo)
If message=6
ClearGadgetItemList(#Editor)
EndIf
Case #Exit
Exit=1
Case #LDL
If WegDatei$<>""
If OpenFile(0,WegDatei$)
Zeile=0
Repeat
AddGadgetItem(#Editor,Zeile,ReadString())
Zeile+1
Until Eof(0)
CloseFile(0)
EndIf
EndIf
EndSelect
Case #WM_RBUTTONUP
DisplayPopupMenu(0,WindowID())
Case #PB_Event_Menu
Select EventMenuID()
Case 4 ; Quit
Quit =1
EndSelect
EndSelect
Until Exit=1
EndIf
CreateFile(0,"Datei.txt")
WriteString(Weg$)
CloseFile(0)
End
