From 52edbdceffa1c5c9c9346fd1550dc4b0fe0ff635 Mon Sep 17 00:00:00 2001 From: Jonny007-MKD Date: Sun, 27 Jul 2014 03:03:43 +0200 Subject: [PATCH] Remove unneeded --- _CSV2Array.au3 | 97 -------------------------------------------------- 1 file changed, 97 deletions(-) delete mode 100644 _CSV2Array.au3 diff --git a/_CSV2Array.au3 b/_CSV2Array.au3 deleted file mode 100644 index 539bc20..0000000 --- a/_CSV2Array.au3 +++ /dev/null @@ -1,97 +0,0 @@ -; #FUNCTION# =================================================================== -; Name ..........: _CSV2Array -; Description ...: -; AutoIt Version : V3.3.0.0 -; Syntax ........: _CSV2Array($hFile[, $cSeperator = "auto"[, $bFilterString = True[, $iColumnMode = 0]]]) -; Parameter(s): .: $hFile - Handle for the CSV file to Read -; $cSeperator - Optional: (Default = "auto") : Tries to find the separator char (; or , or TAB or | or space) -; | Data-seperator-char -; | Empty-string = Opt("GUIDataSeparatorChar") -; $bFilterString - Optional: (Default = True) : Removes leading and trailing " or ' -; $iColumnMode - Optional: (Default = 0) : -; | 0: Sets error if lines have different columns and @extended to the csv-line number -; | 1: returns lines with different columns numbers comparing to the first line, too -; | 2: removing all columns > column numbers in the first line -; Return Value ..: Success - 2-dim Array -; Failure - 0 -; @ERROR - 1: error file read -; @ERROR - 2: different number of columns / @EXTENDED = CSV-line -; - 3: parameter error -; Author(s) .....: Thorsten Willert -; Date ..........: Mon Dec 07 18:54:35 CET 2009 -; ============================================================================== -Func _CSV2Array($hFile, $cSeperator = "auto", $bFilterString = True, $iColumnMode = 0) - Local $s = FileRead($hFile) - If @error Then Return SetError(1) - - If $cSeperator = Default Then $cSeperator = "auto" - If Not $cSeperator Then $cSeperator = Opt("GUIDataSeparatorChar") - - ; searching the line-seperator and splitting the lines into an array - Local $aLines - If StringInStr($s, @CRLF) Then - $aLines = StringSplit($s, @CRLF, 1) - ElseIf StringInStr($s, @CR) Then - $aLines = StringSplit($s, @CR) - Else - $aLines = StringSplit($s, @LF) - EndIf - - ; searching the delimiter in the first line - Local $aTMP - If $cSeperator = "auto" Then - Local $iMax = 0 - Local $iC[5] = [0, 0, 0, 0, 0] - Local $sC[5] = [";", ",", @TAB, "|", " "] - - $aTMP = StringRegExp($aLines[1], ";", 3) - If Not @error Then $iC[0] = UBound($aTMP) - $aTMP = StringRegExp($aLines[1], ",", 3) - If Not @error Then $iC[1] = UBound($aTMP) - $aTMP = StringRegExp($aLines[1], "\t", 3) - If Not @error Then $iC[2] = UBound($aTMP) - $aTMP = StringRegExp($aLines[1], "\|", 3) - If Not @error Then $iC[3] = UBound($aTMP) - $aTMP = StringRegExp($aLines[1], "[ ]", 3) - If Not @error Then $iC[4] = UBound($aTMP) - - For $i = 0 To UBound($sC) - 1 - If $iC[$i] > $iMax Then - $iMax = $iC[$i] - $cSeperator = $sC[$i] - EndIf - Next - EndIf - - ; creating 2-dim array based on the number of data in the first line - $aTMP = StringSplit($aLines[1], $cSeperator) - Local $iCol = $aTMP[0] - Local $aRet[$aLines[0]][$iCol] - - ; splitting and filling the lines - For $i = 1 To $aLines[0] - $aTMP = StringSplit($aLines[$i], $cSeperator) - If @error Then ContinueLoop - If $aTMP[0] > $iCol Then - Switch $iColumnMode - Case 0 - Return SetError(2, $i) - Case 1 - ReDim $aRet[$aLines[0] - 1][$aTMP[0]] - Case 2 - $aTMP[0] = $iCol - Case Else - Return SetError(3) - EndSwitch - EndIf - For $j = 1 To $aTMP[0] - $aTMP[$j] = StringStripWS($aTMP[$j], 3) - If $bFilterString Then ; removing leading and trailing " or ' - $aTMP[$j] = StringRegExpReplace($aTMP[$j], '^("|'')(.*?)\1$', '$2') - EndIf - $aRet[$i - 1][$j - 1] = $aTMP[$j] - Next ; /cols - Next ; /lines - - Return $aRet -EndFunc ;==>_CSV2Array