powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Импорт текстового файла
9 сообщений из 9, страница 1 из 1
Импорт текстового файла
    #33319527
karpi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!
Мне необходимо некий файла с расширением *.txt импортировать в таблицу. С помощью wizarda понятно как сделать, а вот как программно это сделать.
Спасибо за помощь!
...
Рейтинг: 0 / 0
Импорт текстового файла
    #33319595
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Могу предложить способ считывания файла по строкам:

IF FILE('имя файла') && Does file exist?
gnfile = FOPEN('имя файла',12) && If so, open read-write
if gnfile = -1
messagebox ("Can not open file 'имя файла'!",48,"FMG")
return
endif
ELSE
messagebox ("File 'имя файла' not found!",16,"FMG")
return
ENDIF
STORE FSEEK(gnfile, 0, 2) TO gnfileEnd && Move pointer to EOF
STORE FSEEK(gnfile, 0) TO gnfileTop && Move pointer to BOF

for gnstringcount = 1 to gnfileEnd
gnfilestring = FGETS(gnfile, gnfileend) && Store contents
** gnfilestring в эту переменную будут заносится строки файла по очереди и до конца
**Здесь можно ставить любые операции со строчками даже для заноса в грид инфы
*выход из for команда exit
endfor
...
Рейтинг: 0 / 0
Импорт текстового файла
    #33319609
foxwizard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
APPEND FROM
...
Рейтинг: 0 / 0
Импорт текстового файла
    #33319621
foxwizard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Структуру ДБФ и пример файла в студию!
...
Рейтинг: 0 / 0
Импорт текстового файла
    #33319689
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как через APPEND FROM это делать?
...
Рейтинг: 0 / 0
Импорт текстового файла
    #33319718
foxwizard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если текст с разделителями .Например ;

APPEND FROM my.txt DELIMITED WITH CHARACTER ';' as 866
...
Рейтинг: 0 / 0
Импорт текстового файла
    #33319728
karpi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Структура простая
numeric(2,2)
char(50)
...
Рейтинг: 0 / 0
Импорт текстового файла
    #33319748
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
это если есть разделения. а когда их нет? И что такое 866?
...
Рейтинг: 0 / 0
Импорт текстового файла
    #33319759
foxwizard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
as 866
Это когда текстовый файл в 866 кодировке (DOS) а таблица в 1251 (WIN).

Несколько строк текста своего давай.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Импорт текстового файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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