Converte a txt file

[Silvio.Falconi]

My friend give me a big big txt with DATA
I have this file txt and I wish converte it into a dbf

Code: Select all  Expand view

:Record
-Nome
17 Marzo
-Tipo_Piatto
Bevande
-Ing_Principale
China Martini
-Persone
1
-Note
 -
-Ingredienti
2/10 ==== Panna Liquida
Alcune Gocce ==== Liquore Allo Zabaglione
2/10 ==== Vanil Zucca
3/10 ==== Illycaffè Espresso
3/10 ==== China Martini
-Preparazione
Mettere i primi tre ingredienti nello shaker con ghiaccio. Mischiare la panna liquida con lo zabaglione. Versare il contenuto dello shaker nel bicchiere (doppia coppetta da cocktail) ed aggiungere il resto.
:Record
 

when on the file the procedure read this row
:Record
-> it must append new record

when on the file the procedure read this row
-Nome
-> insert the next row into a field Name

when on the file the procedure read this row
-Ing_Principale
-> insert the next row into a field PRINCIPALE



when on the file the procedure read this row
-Persone
-> field PERSONE ( NUMBER)

when on the file the procedure read this row
-Note
-> field NOTE 255 CR

when on the file the procedure read this row
-Ingredienti
-> field iNGRE 255 CR

when on the file the procedure read this row
-Preparazione
->field PREPARA 255 CR

Someone can help me pls ?

[James Bott]

Here is some code to get you started:

Code: Select all  Expand view

   
      cTxtFile = MemoRead( cRCFile )
      nFrom = 1

      while nFrom < Len( cTxtFile )
         cLine = ExtractLine( cTxtFile, @nFrom )
         ...

      end

[Silvio.Falconi]

thanks