powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Запись в текстовый файл
9 сообщений из 9, страница 1 из 1
Запись в текстовый файл
    #36795211
faustgreen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите как решить следующую проблемку:
Создаю проект в который включаю текстовый файл file1.txt и форму с 1 кнопкой
код кнопки:

gnFHandle = FOPEN("file1.txt")
nSize = FSEEK(gnFHandle, 0, 2)
= FSEEK(gnFHandle, 0, 0)
MESSAGEBOX(FREAD(gnfhandle,nsize))


cstr='sdgdfg'
= FWRITE(gnFHandle,cstr)
= FCLOSE(gnFHandle)

1-й блок команд проходит нормально(чтение фала), а вот писать почему то не хочет.
В хелпе покопался, но там мало инфы. К примеру как будет производится запись: с начала строки, с конца или от позиции курсора. И будет ли при этом замещаться старый текст ?
...
Рейтинг: 0 / 0
Запись в текстовый файл
    #36795270
FOPEN(cFileName [, nAttribute])

По умолчанию nAttribute=0. А если nAttribute=0, то файл открывается только на чтение. Может, поэтому?
...
Рейтинг: 0 / 0
Запись в текстовый файл
    #36795290
faustgreen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да, спасибо.
...
Рейтинг: 0 / 0
Запись в текстовый файл
    #36796815
FoxSoftware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
faustgreen,

не проще ли воспользоваться функцией STRTOFILE() ?
она сразу пишет строку в файл!
Читать из файла также просто: FILETOSTR()
...
Рейтинг: 0 / 0
Запись в текстовый файл
    #36796840
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FoxSoftwarefaustgreen,

не проще ли воспользоваться функцией STRTOFILE() ?
она сразу пишет строку в файл!
Читать из файла также просто: FILETOSTR()Это удобно, если файлы небольшие. Иначе превед старым машинам.
...
Рейтинг: 0 / 0
Запись в текстовый файл
    #36799708
faustgreen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Помогите, пожайлусто еще с одним вопросом:
Суть выше изложенной задачи - сохранение логина последнего вошедшего пользователя в программу и востановление его при старте программы. Форма авторизации простая: 2 edit (login,password) и кнопка.
текст программы:


код init формы

Local gnFileHandle,nSize,cString
gnFileHandle = FOPEN("login.ini")
nSize = FSEEK(gnFileHandle, 0, 2)
IF nSize = 0
thisform.txtLogin.Value=""
ELSE
= FSEEK(gnFileHandle, 0, 0)
cString = FREAD(gnFileHandle, nSize)
thisform.txtLogin.Value=cString
ENDIF
= FCLOSE(gnFileHandle)

код click кнопки *Сохранение логина последнего вощедшего пользователя

gnFHandle = FOPEN("login.ini",2)
nSize = FSEEK(gnFHandle, 0, 2)
= FSEEK(gnFHandle, 0, 0)
cStr=thisform.txtLogin.Value
= FCHSIZE(gnfhandle,0)
= FWRITE(gnFHandle,cstr)
= FCLOSE(gnFHandle) && Закрытие файла


При запуске проекта через Foxpro все работает, а после создания *.ехе файла, программа перестает писать данные в файл. Т.е. при старте формы в поле "логин" отображается те данные, которые хранились в текстовом файле на момент создания *.ехе(например "USER1"). После входа под другим пользователем("USER2") и повторном запуском программы в поле логин по прежнему будет отображаться "USER1".
...
Рейтинг: 0 / 0
Запись в текстовый файл
    #36799826
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А зачем вы используете простой ASCII-файл вообще?
Чем вас не устраивает свободная таблица dbf (тот же самый тектовик :) )?
...
Рейтинг: 0 / 0
Запись в текстовый файл
    #36799827
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
faustgreen
При запуске проекта через Foxpro все работает, а после создания *.ехе файла, программа перестает писать данные в файл. Т.е. при старте формы в поле "логин" отображается те данные, которые хранились в текстовом файле на момент создания *.ехе(например "USER1"). После входа под другим пользователем("USER2") и повторном запуском программы в поле логин по прежнему будет отображаться "USER1".

Похоже, файлик включен в ехешник. Поставь EXCLUDE в свойствах файла в проекте.
...
Рейтинг: 0 / 0
Запись в текстовый файл
    #36799907
faustgreen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sqlnew, все заработало. Спасибо.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Запись в текстовый файл
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]