powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как пользоваться "?"...
12 сообщений из 12, страница 1 из 1
Как пользоваться "?"...
    #33720254
splayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем наверняка изместна команда "?" с пом-ю которой можно напечатать текст в любой активной форме... Проблема состоит вот в чем: "Как весь написанный на форме текст сохранить в файл?"
...
Рейтинг: 0 / 0
Как пользоваться "?"...
    #33720617
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Т.к. ты производил это сам, т.е. создавал команду
Код: plaintext
? ....
то предварительно открыть файл на низком уровне функция FCREATE() см.HELP и пишешь туда (в файл) паралельно тому как создавал команды "?", а потом закрываешь файл открытый на низком уровне FCLOSE() см. HELP.
...
Рейтинг: 0 / 0
Как пользоваться "?"...
    #33720694
alexFV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а можно попользовать SET ALTERNATE
...
Рейтинг: 0 / 0
Как пользоваться "?"...
    #33720888
S866
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а можно
Код: plaintext
1.
2.
3.
Set device to file
 или 
set device to printer
set printer to 
тогда ? выведет в файл
...
Рейтинг: 0 / 0
Как пользоваться "?"...
    #33722814
splayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
1. По поводу параллельного сливания в файл, а не будет ли это дублированием?... если уже есть надпись.... Пример. Сообщение типа "Программа работает..." А до этого порядок запуска процедур, а до этого открываемые таблицы и базы... и это все сливать параллельно в файл?... Может все-таки есть метод слить в файл...
2. По поводу ALTERNATE - да.... в принципе в шестом работает, но не в 9-ке... Файл создает, а не записывает ничего...
...
Рейтинг: 0 / 0
Как пользоваться "?"...
    #33722921
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
splayn1. По поводу параллельного сливания в файл, а не будет ли это дублированием?... если уже есть надпись....Под понятием "дублирование" понимается, что больше кода написать, я так понимаю? ДА! Это при том, что хотите и на экран и в файл. А если куда-то в одно место. То конечно не нужно дулирование. Надо полностью рассказывать, что Вы хотите.
...
Рейтинг: 0 / 0
Как пользоваться "?"...
    #33722980
splayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Верно. Я хочу осуществить механизм протоколирования действий пользователя. Простейшим является способ типа:

ACTIVATE SCREEN
?TTOC(DATETIME())+' Загрузка логики...'

Вот я и интересуюсь... После такого вывода текст можно слить в текстовый файл? Если да, то каким образом?.. Да и забыл уточнить... в каждой форме в инициализации прописано какая форма грузится и сколько времени выполняется загрузка формы.
...
Рейтинг: 0 / 0
Как пользоваться "?"...
    #33723053
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
splaynВерно. Я хочу осуществить механизм протоколирования действий пользователя. Простейшим является способ типа:

ACTIVATE SCREEN
?TTOC(DATETIME())+' Загрузка логики...'

Вот я и интересуюсь... После такого вывода текст можно слить в текстовый файл? Если да, то каким образом?.. Да и забыл уточнить... в каждой форме в инициализации прописано какая форма грузится и сколько времени выполняется загрузка формы.Ну вот, что я описывал тебе, посмотри в HELP-ах, как с этими командами работать. И вперед. Я например, иногда веду *.log - файл, что у пользователя (на первом этапе загрузки данных) не так может получиться. Именно таким способом. Потом этот файл он мне присылает и я начинаю анализировать. Пример из HELP-а
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
IF FILE('errors.txt')  && Does file exist? 
  gnErrFile = FOPEN('errors.txt', 12 )  	&& If so, open read-write
ELSE
  gnErrFile = FCREATE('errors.txt')  && If not create it
ENDIF
IF gnErrFile <  0 	  && Check for error opening file
  WAIT 'Cannot open or create output file' WINDOW NOWAIT
ELSE  && If no error, write to file
  =FWRITE(gnErrFile , 'Error information to be written here')
ENDIF
=FCLOSE(gnErrFile )	  && Close file
MODIFY FILE errors.txt NOWAIT  && Open file in edit window
...
Рейтинг: 0 / 0
Как пользоваться "?"...
    #33723099
splayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Забавная получится ситуация, когда я на открытие и закрытие 30 с лишним форм поставлю подобный кусок кода, причем еще и каждый "кусок" придется адаптировать к "своему месту" в программе... Мне же нужен простой метод протоколирования текущего состояния:

Форма "такая-то" загрузилать за 3 сек.
Форма "такая-то" выгрузилась.
Процедура отработала за ХХХ сек.

и т.д.

А потом всё это "взЯть" сохранить, допустим при закрытии проекта. Всего-то делов.
Чуствую придется делать для этого новую форму в проекте и в ней делать подобные действия, используя какой-нибудь List...
...
Рейтинг: 0 / 0
Как пользоваться "?"...
    #33723168
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
splaynФорма "такая-то" загрузилать за 3 сек.
Форма "такая-то" выгрузилась.
Процедура отработала за ХХХ сек...
А это случаем не штатное средство VFP - coverage profiler?
...
Рейтинг: 0 / 0
Как пользоваться "?"...
    #33723192
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
splayn...Чуствую придется делать для этого новую форму в проекте и в ней делать подобные действия, используя какой-нибудь List...Я твою задачу досканально не знаю. И каждый выбирает свой путь решения.
...
Рейтинг: 0 / 0
Как пользоваться "?"...
    #33723658
Гулин Федор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если все сделано на базовых классов - нет проблем
прописал в нужные методы writelog( prog() ) - и пишешь
что и как хочешь writelog- лучше отдельной прг
а если нет увы ...
ps а про coverage profiler это правильно сказали
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как пользоваться "?"...
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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