Editor und Speichern

[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

[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