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

← →
Programmer1 © (2002-11-13 09:45) [0]

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

Спасибо.

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

← →
Leran2002 © (2002-11-13 12:17) [1]

В принципе надо просто пройтись по этому текстовому файлу, и все...
Присылай если можешь в ASCII виде (лучше сжатом РАРом или ЗИПом), что нить придумаем...

← →
Programmer1 © (2002-11-15 14:37) [2]

Я выслала Вам файл.
Если удастся что-нибудь сделать, то ответ отправьте пожалуйста на tetrad123@narod.ru

Спасибо :)

← →
ScareCrow (2002-11-15 15:18) [3]

Уважаемая 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 вас не устраивает.

Перенос таблицы БД из MS Works в Paradox Найти похожие ветки