Четверг, 08.12.2022, 12:42
PureBasic - кроссплатформенный язык программирования
Главная Форум Регистрация Вход
Приветствую Вас, Гость · RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
PureBasic - форум » Вопросы по PureBasic (Windows) » Вопросы новичков » OpenFile или OpenPreference помогите плиз (OpenFile или OpenPreference помогите плиз)
OpenFile или OpenPreference помогите плиз
Alex97Дата: Среда, 03.08.2011, 12:39 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 1
Статус: Offline
Привет)
работаю с васиком для микроконтроллеров уже год но с подобным диалектом сталкиваюсь впервые
люди помогите плиз,объясните по словечку как файл открывать(ini или txt
 
filsДата: Четверг, 04.08.2011, 19:22 | Сообщение # 2
Сержант
Группа: Администраторы
Сообщений: 24
Статус: Offline
Для работы с файлами есть библиотека 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
 
PureBasic - форум » Вопросы по PureBasic (Windows) » Вопросы новичков » OpenFile или OpenPreference помогите плиз (OpenFile или OpenPreference помогите плиз)
  • Страница 1 из 1
  • 1
Поиск:

Копировать материалы сайта без разрешения автора, ЗАПРЕЩЕНО!

Сделать бесплатный сайт с uCoz