Subject Re: IMPORTING CSV file
From Lee Grant <>
Date Thu, 11 Apr 2019 02:02:47 -0400
Newsgroups dbase.getting-started
Attachment(s) quoteclose.prg

Adding to that,

Since I needed to do what I said, I went ahead and created a small
program that just encloses the csv data in quotes so they can manually
append the file to a table they have to format the same way the file
presents the data, in character strings, so things like the periods,
percentage sign and other characters, other than the comma's and the
CR/LF can be brought in as is. They can do conversions once the raw data
has been imported. *WARNING* this is just a sample program and WILL
delete the converted .csv file if you run it again and create it you need to rename or copy the file you want converted to
the "Test.csv" name...sloppy, but I was just making sure it did what I
wanted it to do. :)


On 4/5/2019 3:44 AM, Mervyn Bick wrote:
> On 2019-04-04 6:47 PM, Mustansir Ghor wrote:
>> Dear Mervyn
>> Thank you.
>> A year ago I was totally inclined to XDML but now I would wish OODML
>> There is xyz.txt file generated by an equipment. This file store 15
>> parameters seperated by , . example
>> 15.6,3.4,2.0,4.33,1,5,7.2,1.3,3.4,8.3,4.22,0.0%,3,6,1
>> I need to read this text file and store these data in a table using
>> rowset. So is the best option is to use file(0 function or there is
>> simpler way to do it.
> XDML will import your .csv file with three lines of code.
> use tablename
> append from whatever.csv delimited
> use
> OODML has no built in methods to do this so if you really want to use
> OODML you need to write code.
> One would use a file() object to read the .csv line by line.  One then
> needs to append a blank record and populate the fields by selecting the
> field value from the .csv record.  The value retrieved from the .csv
> file is a character string.  If the field is not a character field then
> the value needs to be converted before being placed in the table.
> In your case all the fields are numeric so there is not too much
> converting to do.
> A little example program is attached.
> Mervyn.

   Filename.....: quoteclose.prg
   Purpose......: Create character fields of .csv files for
                  importing / appending to tables
   Programmer...: Lee Grant
   Date.........: 4/11/2019
   Note........: File in must be named "Test.csv", output file
                  will be named "Testconv.csv". Running the program again
                  will delete the previous "Testconv.csv" and create a new one
   Written for..: Practice and because of a question in the dBASE Newsgroups
   Rev. History.: 1.0 finished working version after trial and errors
   Notes: this isn't fancy, it takes a file in the current directory and will
            process it creating another file with the converted .csv file.
            dBASE won't append mixed data, so this converts the fields in the
            file to charcter fields by enclosing them in quotes. To append them
            into a new database, you need to create the fields in the format
            in a new database that you want them before appending with this file
            ..its really basic and handles only the CR/LF combo of CHR(13)+CHR(10)
            to read in characters and process it.
// Create the constants so we know what filenames we are going to work on. The
// incoming file will be named cTest, and the output file, cConv.
cTest = "test.csv"
cConv = "testconv.csv"
// We need two file objects. One to read in the importing file and one to
// write out the result after transformation.
fIn = new file()
fOut = new file()
// open the incoming file , "R")
// for this time, we're just going to create an arbitrary file to copy into
// so if it exists, delete it and create a new one.
if fOut.exists(cConv)
   fOut.create(cConv, "W")

// Need a variable to check for a "," and if so, file.write() a open/close quote
// and then the variable holding the comma delimiter.
local cIn, cOut
cOut = '"'
// Now the file needs to be parsed per character and processed per comma entry
// so start at begining of input file, start the clean file with an open quote
// to start us off

do while not fIn.eof()
   cIn =
   if cIn == ","  // Comma-seperated value,  
      fOut.write(cOut) // close the quote,
      fOut.write(cIn) // write comma,
      fOut.write(cOut) // open quote.
   elseif cIn == CHR(13) // CR/LF pair, put in close quote here before feed
   elseif cIn == CHR(10) // CR/LF pair, put in open quote here after feed.
      fOut.write(cIn) // Write the current character, it's part of the data.

fOut.write(cOut) // We're at the end of the incoming file, so..let's close the
                 // the last field up with a closing quote.

// We're done copying the file over position by position, so now close the files
// release the variables and exit.
release fIn, fOut, cIn, cOut

// done