dealing with a CSV file

[hag]

I am importing a comma delimited file and I need to make certain the user has set up the file properly.
Is there a way to count the delimiters (commas) in the file and fix it if it has too may delimiters. All has to be at run time and behind the scenes.

[Antonio Linares]

Harvey,

You can use NumAt() to count the commas in each line:

NUMAT(<cStringToMatch>, <cString>, [<nIgnore>]) --> nCount

To extract each line, in a fast way, you can use this code:

Code: Select all  Expand view

       local cText := MemoRead( "text.csv" ), cLine
       local nLen := Len( cText )
       local nFrom := 1

       While nFrom <= nLen
          cLine  := ExtractLine( cText, @nFrom )
          if NumAt( ",", cLine ) != 5 // number of ","
             MsgAlert( "error in line " + Str( nFrom - 1 ) )
          endif
       end
 

[hag]

Thanks Antoonio.

I'll give it a try tomorrow.

[hag]

Antonio

Where is the function numat() located. Won't compile.

[Antonio Linares]

Harvey,

If you are using Harbour then you have to link hbct.lib, if you use xHarbour then link ct.lib