BDE - criando db de texto (txt)

Top  Previous  Next

Crie um arquivo (.SCH) para armazenar a estrutura de seu arquivo texto, por

exemplo:

 

'meuarquivotexto.txt' contém os registros sem delimitadores com os campos

CODIGO, NOME, TELEFONE:

 

001José da Silva             (065)666-2324

002João BlaBlaBla          (011)222-2222

003Fulano de Tal             (021)333-3333

004Ciclano NhecoNheco(031)444-4444

 

Crie um "meuarquivotexto.SCH" contendo a estrutura:

 

[MEUARQUIVOTEXTO]

Filetype=Fixed

Field1=Codigo,Char,03,00,00

Field2=Nome,Char,19,00,03

Field3=Fone,Char,13,00,22

 

Onde:

"[MEUARQUIVOTEXTO]" -> nome do arquivo TXT referênciado nessa estrutura;

"Filetype=Fixed" -> Informa que o arquivo esta no formato SDF

"Field1...Field2..." -> Correspondem aos campos. Tem que informar o NOME do

campo, TIPO  (CHAR, FLOAT, NUMBER, BOOL, LONGINT, DATE...), TAMANHO, NÚMERO

DE DECIMAIS e COLUNA onde começa o campo.

 

No projeto :

============

Insira uma TTable (tbOrigem) ligada ao arquivo texto e mude a propriedade

TableType para ttASCII e outra TTable (tbDestino) ligada ao arquivo que

receberá os registros. Mantenha as TTables fechadas.

 

No TBatchMove informe os valores para DESTINATION e SOURCE , respectivamente

tbDestino e tbOrigem.

Para efetuar a importação, execute o método "EXECUTE" do TBatchMove.