sergeyermakПросто я хотел бы узнать где именно написать эту програму, что при запуски .ехе проекта на ФоксПро запускалась команда Append from&
Если я правильно понял, то у вас должен запускаться EXE-файл, скомпилированный в проекте?
Тогда, как я писал уже:
1) Открываете файл на низком уровне - Fopen()
2) Читаете и перемещаете указатель внутри текстового файла - Fread() и Fseek()
3) Добавляете записи в таблицу - Append Blank ...
4) Закрываете файл (Обязательно) - Fclose()

sergeyermakЯ написал такой код

IF FILE('3.txt') && Does file exist?
gnErrFile = FOPEN('3.txt',12) && If so, open read/write
ELSE
gnErrFile = FCREATE('3.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
=FRead(gnErrFile,10)
=FSEEK (gnErrFile,0,2)
APPEND BLANK 1.dbf
ENDIF
=FCLOSE(gnErrFile) && Close file

Но оно не хочет работать, то есьт откуда оно будет брать мою таблицу?

use <Ваша таблица> in <Алиас> && Отсюда ОНО будет брать таблицу

IF FILE('3.txt') && Такой файл есть?
gnErrFile = FOPEN('3.txt',12) && Если да, отрываем его
ELSE
gnErrFile = FCREATE('3.txt') && Если нет, то создаем его(Зачем?)
ENDIF
IF gnErrFile < 0 && Если открытие файла не произошло
WAIT ' Не могу открыть файл! ' WINDOW NOWAIT
ELSE && Если нет ошибок, файл открылся (Ура!)
cFraza =FRead(gnErrFile,10) &&Читаем первые 10 симоволов
=FSEEK (gnErrFile,0,2) &&Не надо (Курсор в файле и так уже переместился на десятую строку)
APPEND BLANK in 1.dbf
replace <поле1> with cFraza in <алиас> && Вот оно
ENDIF
=FCLOSE(gnErrFile) && Close file

Счастье!

Я сторонник такого подхода импорта/экспорта данных из текстового файла.

sergeyermakА можешь раскщать что писать в строку

replace <поле1> with cFraza in <алиас>,

И как поставить в FRead не десять записей, а все записи.

Короче сделал вот так но пишет ошибку "Не могу открыть файл!"

Убираю условия ошибки, тогда пишет что .dbf не существует

use zarplata!prem

IF FILE('1.txt')
gnErrFile = FOPEN('1.txt',12)
ELSE
gnErrFile = FCREATE('1.txt')
ENDIF
IF gnErrFile < 0
WAIT Не могу открыть файл!' WINDOW NOWAIT
ELSE
cFraza=FRead(gnErrFile,12)
APPEND BLANK in prem
replace Tn with cFraza in zarplata!prem
ENDIF
=FCLOSE(gnErrFile)

Можешь скинуть какой небудь свой рабочий пример?

И эта програма относиться ко всем текстовым файлам или нет.Просто у меня файл с расширением CSV

Заранее спасибо!

Дано: Файл Imy.CSV - текстовой с содержанием 123456,Запись1. В качестве разделителя - ",". Задача: Импортировать данные в таблицу Table1.dbf со структурой Pole1 n(6), pole2 char(10).

create table table1 (pole1 n(6), Pole2 c(10)) -создаем таблицу

append blank in table1 &&добавляем запись в таблицу

if file('Imy.csv')=.t. &&Если файл найден
nFlag=fopen('imy.csv') &&открываем файл низкового уровня
cFraza=alltrim(fgets(nFlag,8190)) && Считываем всю первую строку, в нашем случае "123456,Запись1,"

*Далее ищем разделитель (запятую), т.е. chr(44) - Начало блока 1
FOR i=1 TO LEN(cfraza)
IF SUBSTR(cfraza,i,1)=CHR(44) && Это знак "," ?
replace Pole1 WITH VAL(SUBSTR(cfraza,1,i-1)) IN table1 && Проставляем в Pole1 123456
J=I+1
EXIT
ENDIF
ENDFOR
*Далее ищем разделитель (запятую), т.е. chr(44) - Конец блока 1

*Далее ищем разделитель (запятую), т.е. chr(44) - Начало блока 2
FOR i=J TO LEN(cFraza)
IF SUBSTR(cFraza,i,1)=CHR(44) && Это знак "," ?
replace Pole1 WITH VAL(SUBSTR(cFraza,1,i-1)) IN table1 && Проставляем в Pole2 "Запись1"
EXIT
ENDIF
ENDFOR
*Далее ищем разделитель (запятую), т.е. chr(44) - Конец блока 2
endif

=fclose(nFlag)
sele table1
browse
* И будет счастье!

Кстати, в качестве разделителя не советую использовать Chr(44), т.е. "," , потому что может попасться левая запятая. Лучше используй chr(1).