powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / импорт данных из txt файла
19 сообщений из 19, страница 1 из 1
импорт данных из txt файла
    #38540693
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
И снова здравствуйте!
Может кто нибудь кинуть ссылку на видео или в картинках как происходит импорт данных из txt в таблицу dbf, чтобы просто визуально понять как этот процесс происходит. Я уже как бы представил, но вдруг мой вариант ужасен.
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38540727
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть команда append from ...
Использовать примерно так
Код: sql
1.
2.
3.
sele 0
create cursor tFile (...)
append from MyFile.txt delimited with ...


Начни делать, неполучится - спросишь.

Правда у append from есть особенности, может сглючивать из-за кавычек в начале и незакрытых в конце.

Самый надежный вариант читать файл построчно и разбирать каждую строку.

PS Думаю видео или скриншоты по этому поводу тут мало кто делать захочет.
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38540759
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,

а вместо троеточия, имена временных таблиц писать?
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38540765
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
create cursor tFile (...) это создание курсора (временной таблицы по твоему) в скобках структура
append from MyFile.txt delimited with ... тут символ разделитель из твоего файла
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38540780
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,

мммм, не соображу, что за структура, сейчас я кину свою прогу по картинкам
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38540792
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38540799
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,

Имею такую структуру
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38540821
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38540822
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38540828
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38540829
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ClaymoreDima T,

Имею такую структуру

Командой APPEND FROM ... не получится. Парсить надо, однако.
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38540838
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,

что прописать в кнопке чтоб он добавлял именно эти данные в text8.value
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38540844
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Волшебной команды для разбора таких файлов нет. Только открывать читать построчно и выковыривать нужное.
Начни с разбора одного файла. Напиши функцию которая на вход получит имя файла, разберет его и куда-нибудь сохранит нужное (для начала хоть на экран выдаст) .
Выложи сюда пример файла, схематично покажу как это должно выглядеть.
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38540960
Grin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Claymore,


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
*пишем список файлов в масив+считаем количество csv файлов
m.f_cnt=ADIR(arr1,CURDIR()+'IN\New.csv')

*запускаем цикл обработки всех csv файлов
FOR i=1 TO m.f_cnt
	*определяем имя файла
	m.f_name=SYS(5)+CURDIR()+'IN\'+arr1(i,1)
	*если файл сущестует
	IF FILE (m.f_name)=.t.
		*открываем файл для чтения
		STORE FOPEN(m.f_name) to file_handle  
		*Переходим в начало файла
		STORE FSEEK(m.file_handle,0) TO m.m_position
		*в цикле идем до конца файла
		do while !feof(m.file_handle)
			*Читаем строку из файла
			m.stro = ALLTRIM(fgets(m.file_handle))
			*переменной m.CLN_FNAME присвоим то что между 1 и 30 символом в строке
			m.CLN_FNAME=substr(m.stro,1,30)
			*переменной m.cln_taxcod присвоим то что между 32 и 42 символом в строке
			m.cln_taxcod=ALLTRIM(SUBSTR(m.stro,32,10))
			*вібираем таблицу куда будем сохранять данніе
			SELECT my_table
			*добавляем новую запись
			APPEND BLANK 
			*сохраняем переменніе в поля таблицы
			GATHER MEMVAR 
		endd
		*Закрваем файл
		FCLOSE(file_handle)
	ENDIF 

	MESSAGEBOX('Данные из файла '+m.f_name+' успешно приняты!',64,'Сообщение!',60000)
endf
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38544524
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,

Простите что пропал, эээ....ну попробую что нить сделать...))
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38544530
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Grin,

попробую прописать ваш код, выглядит круто....надеюсь выйдет )
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38544564
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,

Пример файла? то есть?
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38544635
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,

я придумал другую вещь, как прочитаешь напиши пожалуйста)
...
Рейтинг: 0 / 0
импорт данных из txt файла
    #38544666
Claymore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,

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


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