Здр-те форумчане!

Я использую Excel для вывода отчетов из FoxPro. Информации в отчетах меняются каждый месяц и мне приходиться изменить все эти настройки в коде программы и заменить на сервере exe файл на следующий день. Можно ли в текстовом файле все изменить, а в программе читать содержимое текстового файла? К примеру, текстовый файл 1.txt, файл содержит тексты.

T1gRa_NTПамятуя Ваш прошлый пост:
1. У Вас меняется структура файла Excel?
2. У Вас меняется текст в ячейках Excel?
3. Если настройки содержаться в файле, то чем замена файла легче exe?

Форма отчета в Excel не меняется, только данные. Я хотел написанные мною в программе коды сохранить в текстовом файле и читать его в Foxpro.

T1gRa_NTУже лучше.
Коды чего?

Н-р такие коды:

xl=CREATEOBJECT('Excel.Application')
xl.Visible= .t.
xl.WorkBooks.open(ALLTRIM(sysfile.s_pathfwp)+'m.xlt')
GO TOP
xl.WorkBooks(1).Sheets(1).Select
xl.WorkBooks(1).Sheets(1).Range('C18').Select
xl.Selection.Value=m_date

ularsoftT1gRa_NTУже лучше.
Коды чего?

Н-р такие коды:

xl=CREATEOBJECT('Excel.Application')
xl.Visible= .t.
xl.WorkBooks.open(ALLTRIM(sysfile.s_pathfwp)+'m.xlt')
GO TOP
xl.WorkBooks(1).Sheets(1).Select
xl.WorkBooks(1).Sheets(1).Range('C18').Select
xl.Selection.Value=m_date

и открыть в фоксе FOPEN(ALLTRIM(sysfile.s_pathfwp)+'1.txt')

T1gRa_NTНу если хоте с файлом, то пожалуйте.
Гуглите символ перевода строки, и берите настройки из файла.

ИМХО: "Путь не очень." или вообще не понял задачи.

Короче, я хочу сохранить в текстовом файле (н-р, 1.txt) следующие коды из программы:
m_date=Thisform.cl_date1
e_date=Thisform.cl_date2
i=5
ex=CREATEOBJECT('Excel.Application')
ex.WorkBooks.open(ALLTRIM(sysfile.s_pathfwp)+'kor10102.xlt')
ex.WorkBooks(1).Sheets(1).Select
WITH ex.WorkBooks(1).Sheets(1)
DO WHILE m_date<=e_date
ex.WorkBooks(1).Sheets(1).Range('A'+ALLTRIM(STR(i))).Value=m_date
ok=OD070(m_date,'TEMP')
IF !ok
MESSAGEBOX('Run-time Error ',016)
RETURN
ENDIF
SELECT TEMP
CALCULATE sum(T1_n) TO sm FOR INLIST(t1_1,'123456')
IF sm < 0
sm=ABS(sm)
ELSE
sm=-sm
ENDIF
.Range('B'+ALLTRIM(STR(i))).Select
ex.Selection.Value=sm
m_date=m_date+1
i=i+1
ENDDO
ENDWITH
ex.Visible= .t.
ThisForm.Release

т.к. будет меняться
CALCULATE sum(T1_n) TO sm FOR INLIST(t1_1,'123')
где 123.
Может добавиться еще 456 или 789.

Вот поэтому хочу в текстовом файле добавлять или удалять эти 123, 456, 789, чтобы не менять в программе.

Dima Tularsoftт.к. будет меняться
CALCULATE sum(T1_n) TO sm FOR INLIST(t1_1,'123')
где 123.
Может добавиться еще 456 или 789.

Вот поэтому хочу в текстовом файле добавлять или удалять эти 123, 456, 789, чтобы не менять в программе.
Месье знает толк в извращениях

Может по-человечески лучше сделать? Для этого параметры придумали. Передавай в параметрах свое 123.
Если значений переменное количество: делай курсор и передавай в параметрах его имя.

PS Не надо в кучу мешать код и данные, никогда ничего хорошего из этого не получалось.

Нельзя что ли просто сохранить выше коды в 1.txt и вызвать его?

Dima TularsoftНельзя что ли просто сохранить выше коды в 1.txt и вызвать его?
Тогда уж 1.prg
Если не путаю, из готового exe не запустится, т.к. сначала prg компилируется в fxp, а компиляция без установленного фокса невозможна. Устанавливать фокс всем юзерам подряд - это нелегальное распространение ПО, уголовно-наказуемо.

В дельфи есть такая возможность чтения из текстового файла.
Н-р, событие при нажатии кнопки:
procedure TForm1.Button1Click(Sender: TObject);
begin
with Table1 do
begin
Close;
SQL.Clear;
SQL.LoadFromFile('1.txt');
Open;
end;
end;

Текстовый файл 1.txt содержит следующее:
SELECT * FROM <ТАБЛИЦА SQL> WHERE <УСЛОВИЕ> GROUP BY <...> и т.д.

Dima TВ фоксе тоже можно прочитать файл


затем меняй lcText и пиши обратно


ularsoftТекстовый файл 1.txt содержит следующее:
SELECT * FROM <ТАБЛИЦА SQL> WHERE <УСЛОВИЕ> GROUP BY <...> и т.д.
Это запрос SQL серверу, который выполняется объектом SQL, ты же хочешь выполнить код на том же языке. Попробуй в дельфях код на паскале прочитать и выполнить, т.е. в 1.txt вставь это



Это был просто пример

Dima TПроверил. Не будет работать. Код теста



Если запустить из IDE фокса, то выдает оба сообщения.
Если откомпилировать в EXE и запускать EXE, то выходит только первое.

Не совсем так как я писал выше, но все-равно не заработало.

Короче, безнадежно да