Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перенос таблицы БД из MS Works в Paradox [D5, Paradox]

Programmer1 © (2002-11-13 09:45:00)
Уважаемые мастера программирования! Подскажите, пожалуйста, как можно электронную таблицу базы данных TableName.wdb, созданную в Micrisift (R) Works Версия 2.0 1987-1990гг. преобразовать в таблицу Paradox?

Спасибо.

PS
В самом редакторе Works есть возможность преобразовать таблицу в ASCII файл, как "текст и запятые" и как "текст и табуляции".

Leran2002 (2002-11-15 15:49:00) [1]

> Programmer1 © (15.11.02 14:37)

Вы точно его выслали???
Почемуто мой ящик пуст... :((
menshov_s@mail.ru

ScareCrow (2002-11-15 15:18:00) [2]
Уважаемая Programmer1 !

Свойство TTable.TableType может принимать значение ttASCII
(Table is a text file with comma-delimited, quoted strings for each field - Это из хелпа). Я использовал такой путь.

Вообще, для текстовой таблицы (в DELPHI) с фиксированной шириной столбцов должен присутствовать (или создавайте Сами) файл-дескриптор (*.sch) и его имя без расширения должно совпадать со значением свойства TTable.TableName

Вот как мне доводилось его формировать:
...
SCHFileName:=ExtractFileName(tbTXT.TableName); { т.е. без расширения }
AssignFile(SCHFile,SCHFileName+".sch");
Rewrite(SCHFile);
Writeln(SCHFile,"["+ExtractFileName(SCHFileName)+"]");
Writeln(SCHFile,"Filetype=Fixed");
Writeln(SCHFile,"Field1=F1,Char,15,00,00");
Writeln(SCHFile,"Field2=F2,Char,20,00,15");
Writeln(SCHFile,"Field3=F3,Char,02,00,35");
CloseFile(SCHFile);
tbTXT.Open; (tbTXT:TTable)
...

т.е. его содержимое:

[MyImportTXTFile]
Filetype=Fixed
Field1=F1,Char,15,00,00
Field2=F2,Char,20,00,15
Field3=F3,Char,02,00,35

Теперь из tbTXTделайте BatchMoveв tbParadox:TTable.
Естественно, tbParadox должна существовать на диске или быть создана Вами (ручками или программно).
Если я что непонятно обяснил, спрашивайте:). И, кстати, обратите внимание на Filetype=Fixed, если Fixedвас не устраивает.

Programmer1 (2002-11-15 14:37:00) [3]
Я выслала Вам файл.
Если удастся что-нибудь сделать, то ответ отправьте пожалуйста на tetrad123@narod.ru

Спасибо :)

Leran2002 (2002-11-13 12:17:00) [4]
В принципе надо просто пройтись по этому текстовому файлу, и все...
Присылай если можешь в ASCII виде (лучше сжатом РАРом или ЗИПом), что нить придумаем...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »