Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как перегнать данные из TXT в Базу... Как внести данные из TXT в DataSet... 
:(
    Опции темы
User32
Дата 9.12.2005, 16:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 7.11.2005

Репутация: нет
Всего: нет
Проблема кроется в считывании данных из текстового файла (*.TXT), где предпологаемые поля данных разделены точкой с запятой ";" и вставкой в DataSet.
Как реализовать считование до точки с запятой и вставкой в поле1 следующию секцию в поле2 и так далее до конца строки в текстовом файле, после перейти к следуюшей строке и продолжить тоже самое до конца всего файла...

Я начаю так...


Код

procedure TForm1.ImportbasefromTXT1Click(Sender: TObject);
var
 i: Integer;
 t: TextFile;
 s, l: string;
 FullFileName : string;
begin
   OpenDialog3.FileName := '*.TXT';
   if OpenDialog3.Execute then begin
   FullFileName := OpenDialog3.FileName;
   if FullFileName = '' then Exit else

s := InputBox('What will be a Separator?', 'Separator: . , ; : Tab Sps', ';');
if s = '' then Exit else

 AssignFile(t, OpenDialog3.FileName);
 Read(t);
// ReadLn(t, l);


CloseFile(t);


end;
end;
PM MAIL   Вверх
Dron84
Дата 9.12.2005, 16:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: 1
Всего: 1
User32
какаой формат баз
PM MAIL   Вверх
User32
Дата 9.12.2005, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 7.11.2005

Репутация: нет
Всего: нет
Цитата(Dron84 @ 9.12.2005, 16:29)
User32
какаой формат баз

FoxPro...
PM MAIL   Вверх
Dron84
Дата 9.12.2005, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: 1
Всего: 1
User32
не знаю, с FoxPro не работал, могу дать рабочий пример для Paradox...
PM MAIL   Вверх
User32
Дата 9.12.2005, 16:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 7.11.2005

Репутация: нет
Всего: нет
Цитата(Dron84 @ 9.12.2005, 16:41)
User32
не знаю, с FoxPro не работал, могу дать рабочий пример для Paradox...

Хоть так... кидай если не жалко, сам дойду как ....
PM MAIL   Вверх
Dron84
Дата 9.12.2005, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 11.9.2005
Где: Россия

Репутация: 1
Всего: 1
User32
сходи на второй до боли знакомый тебе форум, там найдёшь ответ, на такой же вопрос ;)
PM MAIL   Вверх
User32
Дата 9.12.2005, 16:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 7.11.2005

Репутация: нет
Всего: нет
Цитата(Dron84 @ 9.12.2005, 16:54)
User32
сходи на второй до боли знакомый тебе форум, там найдёшь ответ, на такой же вопрос ;)

smile Уже видел СПАСИБО!!!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1157 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.