100000 Excel Zellen Püfen

#include <Array.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
Local $aResult, $iRows, $iColumns
$Allarray = _CSV2Array("Datei Nr 1.csv", ";")
$Sucharray = _CSV2Array("Suchdatei.csv", ";")
_SQLite_Startup()
_SQLite_Open()
$columns = ""
For $i = 0 To UBound($Allarray, 2) - 1
$columns &= $i & " VARCHAR(255),"
Next
_SQLite_Exec(-1, "CREATE TABLE Search (" & StringTrimRight($columns, 1) & ");")
$aSql = 'Begin Transaction ;' & @CRLF
For $i = 1 To UBound($Allarray) - 1
$values = ""
For $k = 0 To UBound($Allarray, 2) - 1
$values &= _SQLite_Escape($Allarray[$i][$k]) & ","
Next
$aSql &= "INSERT INTO Search VALUES (" & StringTrimRight($values, 1) & ");" & @CRLF
Next
_SQLite_Exec(-1, $aSql)
For $i = 1 To UBound($Sucharray) - 1
_SQLite_GetTable2d(-1, "SELECT * FROM Search WHERE 1 = " & _SQLite_Escape($Sucharray[$i][0]) & ";", $aResult, $iRows, $iColumns)
_ArrayDisplay($aResult)
Next

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[4] = [";", ",", @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], 7)
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