;
; ------------------------------------------------------------
;
;   PureBasic - File example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

MessageRequester("PureBasic", "Добро пожаловать !"+Chr(13)+"PureBasic запишет файл с именем: PureBasicTestFile.pb", 0)

If CreateFile(0, "PureBasicTestFile.txt")
  WriteStringN(0, "         Это - тест файла PureBasic")
  WriteString(0, "Теперь записываем это ")
  WriteString(0, "Так же и эта строка.")

  CloseFile(0)
Else
  MessageRequester("PureBasic", "Ошибка: Не возможно записать файл", 0)
  End
EndIf

If ReadFile(0, "PureBasicTestFile.txt")

  First$ =  Trim(ReadString(0))
  MessageRequester("PureBasic", "Чтение строки: "+First$, 0)
  
  CloseFile(0)
Else
  MessageRequester("PureBasic", "Ошибка: Не возможно прочитать файл", 0)
EndIf

End