Показано с 1 по 4 из 4

Тема: Файл не закрывается :(

  1. #1
    Пользователь
    Регистрация
    23.09.2008
    Адрес
    Центророссийск
    Сообщений
    2,318

    По умолчанию Файл не закрывается :(

    ...............
    Последний раз редактировалось Валенок; 09.08.2021 в 13:10.

  2. #2

    По умолчанию

    fclose Возвращает 0, если всё удачно.

  3. #3

    По умолчанию

    Проблемы возникают, когда вы открываете файл 2 раза. Чтобы этого избежать, пользуйтесь такой конструкцией:

    SysFileClose(hFile);(*закрываем для надежности*)
    hFile:=SysFileOpen(file_name, 'w');(*и создаем его*)

    И поменяйте расширение файла на .log.
    Переименовать в .csv можно потом на компьютере.
    Удачи!

  4. #4

    По умолчанию

    Фрагмент кода:

    file_size:=SysFileGetSize(file_name); (*Проверяем размер файла*)
    pos:=SysFileGetPos(hFile); (*и положение курсора*)


    (*ОТКРЫТИЕ/СОЗДАНИЕ ФАЙЛА*)
    IF file_size=0 THEN (*Если файл еще не создан*)
    SysFileClose(hFile); (*закрываем для надежности*)
    hFile:=SysFileOpen(file_name, 'w'); (*и создаем его*)
    SysFileWrite(hFile, ADR(Header1), LEN(Header1)); (*затем записываем заголовок*)
    file_opened:=TRUE;

    ELSIF NOT file_opened THEN (*если файл существует, но не открыт*)
    SysFileClose(hFile); (*закрываем для надежности*)
    hFile:=SysFileOpen(file_name, 'w'); (*открываем его*)
    set:=SysFileSetPos(hFile, file_size); (*и ставим курсор в конец файла*)
    file_opened:=TRUE;
    END_IF

    IF file_opened=TRUE THEN
    SysFileClose(hFile);
    file_opened:=FALSE;
    END_IF

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •