Enumeration
  #Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #String_0
  #Button_1
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}

Procedure SaveText()
  Static i.l
  If CreateFile(0, "c:\File_N"+Str(i)+".txt")
      i+1
    WriteString(0, GetGadgetText(#String_0))
    CloseFile(0)
    ; Если не надо стирать, то эту строку убрать!
    SetGadgetText(#String_0,"")
    MessageRequester("Успех!","Строка записана в файл: "+ "C:\File_N"+Str(i)+".txt")
  EndIf
  
EndProcedure



Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 477, 168, 568, 200, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
      StringGadget(#String_0, 5, 20, 550, 20, "")
      ButtonGadget(#Button_1, 10, 155, 150, 25, "Запись в файл")
  EndIf
EndProcedure

OpenWindow_Window_0()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget =#Button_1 
        If Len(GetGadgetText(#String_0))
          SaveText()
        Else
          MessageRequester("Внимание!","Строку надо заполнить!")
        EndIf
      EndIf
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver
;
;}