Для работы с файлами есть библиотека File http://purebasic.com/documentation/file/index.html
Для работы с INI файлами, используется библиотека Preference http://purebasic.com/documentation/preference/index.html
Эту же информацию можно найти и встроенной справке.
Открытие TXT файла с отображение текста в окне. Code
File.s=OpenFileRequester("","","Текстовые файлы (txt)|*.txt",0)
If File<>""
If ReadFile(0, File) ; Открытие файла
Size=Lof(0) ; Определение размера файла в байтах
*mem=AllocateMemory(Size) ; Запрашиваем у ОС число байт, равное размеру файла
If *mem
ReadData(0, *mem, Size) ; Копирование данных из файла в память
CloseFile(0) ; Закрытие файла
Text.s=PeekS(*mem, Size) ; Копируем данные из памяти в строковую переменную
FreeMemory(*mem) ; Освобождаем память
Else
MessageRequester("", "Не удалось получить запрашиваемую память")
End ; Завершение работы программы
EndIf
Else
MessageRequester("", "Не удалось открыть файл")
End ; Завершение работы программы
EndIf
; Открываем окно
OpenWindow(1,0,0,400,400,"Работа с памятью", #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
CreateGadgetList(WindowID(1))
EditorGadget(1,2,2,396,396) ; Создаём текстовый редактор
SetGadgetText(1,Text) ; Помещаем текст из строковой переменной в редактор.
Repeat ; Главный цикл программы
Event=WaitWindowEvent() ; Получаем идентификатор события в программе
Until Event=#PB_Event_CloseWindow ; Прерываем цикл если нужно закрыть окно
EndIf
Сохранение положения окна в INI файле Code
Gosub LoadPreferences
If OpenWindow(0,x,y,Width,Height,"Заголовок",#PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
Repeat
Event=WaitWindowEvent()
Until Event=#PB_Event_CloseWindow
Gosub SavePreferences
EndIf
End
LoadPreferences:
OpenPreferences("PreferencesWindow.ini")
PreferenceGroup("Окно")
x=ReadPreferenceLong("x",200)
y=ReadPreferenceLong("y",200)
Width=ReadPreferenceLong("Ширина окна",400)
Height=ReadPreferenceLong("Высота окна",300)
ClosePreferences()
Return
SavePreferences:
If CreatePreferences("PreferencesWindow.ini")
PreferenceGroup("Окно")
WritePreferenceLong("x",WindowX(0) )
WritePreferenceLong("y", WindowY(0) )
WritePreferenceLong("Ширина окна", WindowWidth(0) )
WritePreferenceLong("Высота окна", WindowHeight(0))
ClosePreferences()
EndIf
Return
