ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / vfp против .txt
9 сообщений из 9, страница 1 из 1
vfp против .txt
    #35490052
Alex-ZZZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex-ZZZ
Гость
Записываю значение переменной MES в текстовый файл, путь к которому = PATHTXT. Проблема в том, что если предыдущее значение MES было длине чем последующее, то они как бы накладываются друг на друга и получаем сообщение плюс кусок предыдущего, какой командой чистить txt или еще как то можно убрать предыдущее значение?

Код: plaintext
1.
2.
3.
4.
OTKR=FOPEN(PATHTXT, 2 ) 
IF OTKR<>- 1  
   	FWRITE(OTKR,MES) 
	FCLOSE(OTKR) 
ENDIF
...
Рейтинг: 0 / 0
15.08.2008, 15:20
| Ответить | Цитировать | Написать  
vfp против .txt
    #35490077
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
StrToFile() поизучай
...
Рейтинг: 0 / 0
15.08.2008, 15:26
| Ответить | Цитировать | Написать  
vfp против .txt
    #35490124
Sergey Sizov.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov.
Гость
Alex-ZZZЗаписываю значение переменной MES в текстовый файл, путь к которому = PATHTXT. Проблема в том, что если предыдущее значение MES было длине чем последующее, то они как бы накладываются друг на друга и получаем сообщение плюс кусок предыдущего, какой командой чистить txt или еще как то можно убрать предыдущее значение?

Код: plaintext
1.
2.
3.
4.
OTKR=FOPEN(PATHTXT, 2 ) 
IF OTKR<>- 1  
   	FWRITE(OTKR,MES) 
	FCLOSE(OTKR) 
ENDIF

Для полной перезаписи файла обычно пользуют не fOpen(), а FCreate().
...
Рейтинг: 0 / 0
15.08.2008, 15:41
| Ответить | Цитировать | Написать  
vfp против .txt
    #35490165
Alex-ZZZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex-ZZZ
Гость
Sergey Sizov.Для полной перезаписи файла обычно пользуют не fOpen(), а FCreate().

Файл создан на сетевом диске, то есть просто удалить его и создать занова нельзя, нужно изменить именно его содержимое.
...
Рейтинг: 0 / 0
15.08.2008, 15:57
| Ответить | Цитировать | Написать  
vfp против .txt
    #35490254
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Alex-ZZZпросто удалить его и создать занова нельзя, нужно изменить именно его содержимое.

Код: plaintext
StrToFile(MES, PATHTXT)
Так работает?
...
Рейтинг: 0 / 0
15.08.2008, 16:23
| Ответить | Цитировать | Написать  
vfp против .txt
    #35491334
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Код: plaintext
=FCHSIZE(OTKR, 0 )
?

Вернее, так:
Код: plaintext
1.
2.
3.
4.
m.OTKR=FOPEN(m.PATHTXT,  2 ) 
IF m.OTKR<>- 1  .and. FCHSIZE(m.OTKR,  0 )= 0 
   	FWRITE(m.OTKR, m.MES) 
	FCLOSE(m.OTKR)
ENDIF
...
Рейтинг: 0 / 0
17.08.2008, 02:30
| Ответить | Цитировать | Написать  
vfp против .txt
    #35491364
Galyamov Rinat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Galyamov Rinat
Участник
>
> m.OTKR=FOPEN(m.PATHTXT, 2)
> IF m.OTKR<>-1 .and. FCHSIZE(m.OTKR, 0)=0
> FWRITE(m.OTKR, m.MES)
> FCLOSE(m.OTKR)
> ENDIF

Не вдаваясь в суть:

Закрытие файла не должно зависеть от того, удалось/не удалось изменить
размер файла:

m.OTKR=FOPEN(m.PATHTXT, 2)
IF m.OTKR<>-1
if FCHSIZE(m.OTKR, 0)=0
FWRITE(m.OTKR, m.MES)
endif
FCLOSE(m.OTKR)
ENDIF


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
17.08.2008, 08:37
| Ответить | Цитировать | Написать  
vfp против .txt
    #35491873
Alex-ZZZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex-ZZZ
Гость
Dima T
Код: plaintext
StrToFile(MES, PATHTXT)
Так работает?

Чето нет, надо скачать хелп поновее, а то в моем нету команды StrToFile

Сделал так:

Код: plaintext
1.
2.
3.
4.
5.
OTKR=FOPEN(PATHTXT, 2 ) 
IF OTKR<>- 1 
        FCHSIZE(OTKR, 0 )
	FWRITE(OTKR,MES) 
	FCLOSE(OTKR) 
ENDIF

ВСЕМ СПАСИБО ЗА ПОМОЩЬ ))))
...
Рейтинг: 0 / 0
18.08.2008, 09:41
| Ответить | Цитировать | Написать  
vfp против .txt
    #35492250
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
StrToFile() и FileToStr() были введены в VFP6.

FWRITE() только и исключительно заменяет символы с текущей позиции, на указанный текст (символьную строку). Эта функция не может добавить (вставить) или удалить символы в середине файла. После ее использования размер файла остается неизменным.

Исключение - это запись в конец файла, поэтому, если надо изменить размер файла, то создают новый файл.

Для версий младше VFP6 можно "прокачивать" файл через мемо-поле

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
CREATE CURSOR Content (txtFile M)
APPEND BLANK
APPEND MEMO txtFile FROM (m.PATHTXT)

* Модификация мемо-поля курсора
...

* и выгрузка результата в файл с тем же именем
COPY MEMO txtFile TO (m.PATHTXT)

Поскольку в этом случае создается новый файл (пусть и с тем же самым именем), то его размер может быть любым. И допустимы любые изменения содержимого. А с содержимым мемо-поля можно работать как с обычной символьной строкой.
...
Рейтинг: 0 / 0
18.08.2008, 12:12
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / vfp против .txt
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=35490052&tid=1587376]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 85ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 334ms
total:  511ms
созд. / загр.: 511ms
x
x
Закрыть


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