Database Search

TechHome

	Samples from Users
	Sort

• 3-Dimensional Array
• Accessing Multidimensional Arrays
• Add a Row to a Two Dimensional Array
• Array and Lists - Split and Join
• Array copy problem
• Array Size and Making a Binary Copy
• ArrayFileGet VMalloc Error
• ArrayFileGetCsv - How to detect invalid CSV line
• ArrayInsert Examples
• Arrayize and Dimensioned Arrays
• ArrayRedim Issue
• Arrays for the Layman
• Arrays vs Item Lists Speed
• ArraySearch Duplicate Values
• ArrInitialize NULL Fails
• Convert an Array to a Delimited List
• Convert SafeArray into a WIL Array
• Convert String to an Array
• Delete a Member of an Array
• DirInfotoArray Sort
• File Names in the Shell Like Sort Order
• Filling an Array from a column in a DB
• ForEach in Array Trick
• Is it an Array
• Is there an AskArrayList
• ObjectType Error 1690 Ole Unable to Perform Enumeration of the Specified Object
• PtrPersistent and ArrInitialize Issue
• Remove a Line from a File Using Arrays
• Resize an Array
• Reverse Array
• Searching an array for data
• Secondary Sort on Columns
• Sort Files by Modified Date
• Transpose Array
• Variable Table to Array
• VMalloc Error - VirtualAlloc Failed 487
• Why use arrays

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

ArrayFileGetCsv - How to detect invalid CSV line

 Keywords: ArrayFileGetCSV Error 1808 File Invalid CSV line Bad Format Formatting @LF Validate CSV

Question:

Answer:

;-----------------------------------------------------------------------------------------------------------------------------------------
#DefineFunction udfCheckCSVFile (strCSVFile, strDelimiter, blnTrim)
; Trim leading and trailing empty lines.
If !!blnTrim
   intBytesWritten = FilePut (strCSVFile, StrReplace (StrTrim (StrReplace (FileGet (strCSVFile), @CRLF, @TAB)), @TAB, @CRLF))
EndIf

blnRetVal = @TRUE
strFileTemp = FileCreateTemp ("WBT")

arrCSVFile = ArrayFileGet (strCSVFile)
intLines = ArrInfo (arrCSVFile, 1)
intLineLast = intLines - 1

IntControl (72, 1, @TRUE, "", 0) ; On next cancel event goto label :CANCEL.

For intLine = 0 To intLineLast
   intBytesWritten = FilePut (strFileTemp, arrCsvFile[intLine])

   intLastEM = ErrorMode (@OFF)
   LastError ()
   arrTest = ArrayFileGetCSV (strFileTemp, 0, strDelimiter)
   intLastError = LastError ()
   ErrorMode (intLastEM)
   If intLastError > 0
      blnRetVal = @FALSE
      Pause ("Error in CSV line", "Line: " : intLine + 1 : @LF : arrCsvFile[intLine])
   EndIf
Next

:CANCEL
Drop (arrTest, arrCSVFile)
blnresult = FileDelete (strFileTemp)

Return blnRetVal
;..........................................................................................................................................
; This UDF udfCheckCSVFile is a simple helper to check a given CSV file for possible formatting errors.
;
; The given CSV File must
; - have CRLF end of line delimiters;
; - not have any @TAB character;
; - allow read and write access when trimming leading and trailing empty lines.
;
; This UDF returns a boolean value @TRUE (1) or @FALSE (0) to indicate that the given file can be used as a CSV file or not.
;
; Detlev Dalitz.20100814.
;..........................................................................................................................................
#EndFunction
;------------------------------------------------------------------------------------------------------------------------------------------






Article ID:   W17655

Filename:   ArrayFileGetCsv - How to detect invalid CSV line.txt
File Created: 2014:04:18:08:41:08
Last Updated: 2014:04:18:08:41:08