Seite 1 von 1

Editor und Speichern

Verfasst: 01.04.2005 09:59
von Martin66119
Hilfe! Bin Anfänger und bekomme was nicht hin!

Mit folgenden Code kann ich in ein Editorfenster schreiben. Was muss ich tun, um den eingegebenen Text z.B. in eine Datei zu schreiben. Den Namen und den Speciherort möchte ich in einem "Explorerfenster" eingeben. Danke für die Hilfe


OpenWindow(0, 0, 0, 300, 300, #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "Test")

CreateGadgetList(WindowID())
x = EditorGadget(0, 0, 0, 300, 300)
SendMessage_(x, #EM_SETTARGETDEVICE, 0, 0)

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Verfasst: 01.04.2005 10:41
von Lukaso
Hier ein ganz grobes Beispiel:

Code: Alles auswählen

OpenWindow(0, 0, 0, 300, 300, #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "Test")

CreateGadgetList(WindowID())
X = EditorGadget(0, 0, 0, 300, 300)
SendMessage_(X, #EM_SETTARGETDEVICE, 0, 0)

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

file$ = SaveFileRequester("Speichern", "save.txt", "Text (*.txt)|*.txt", 0)
If file$
  OpenFile(1, file$)
  WriteString(GetGadgetText(0))
  CloseFile(1)
EndIf
[Satz gelöscht von freedimension: Siehe Readme]

MFG Lukaso