csv to excel

;==================================================================================================
; Function: _ExcelBookGetWidth($oExcel [, $iTyp=1 [, $iHeader=1 [, $sCol='A']]])
; Description: Gibt die letzte belegte Zeile und/oder Spalte einer Tabelle zurück
; Syntax: _ExcelBookGetWidth($oExcel, $iTyp=1, $iHeader=1, $sCol='A')
; Parameter(s): $oExcel - Referenz eines geöffneten Excel Objekts
; $iTyp - 1=letzte Spalte (Standard); 2=letzte Zeile; 3=Spalte|Zeile
; $iHeader - Nummer der Zeile, in der die letzte Spalte gesucht wird
; $sCol - Buchstabe der Spalte, in der die letzte Zeile gesucht wird
; Return Value(s): Erfolg - letzte Spalte und/oder Zeile
; Ist die Zeile oder Spalte leer, wird '0' zurückgegeben
; Fehler - 0 und setzt @error:
; @error=1 - Objekt existiert nicht
; @error=2 - $iTyp oder $iHeader außerhalb des Wertebereichs (1 - 65536)
; @error=3 - $sCol außerhalb des Wertebereichs (A - IV)
; Requirement(s): $iHeader bzw. $sCol sind durchgängig bis zum letzten Zeilen-/Spaltenelement belegt
; Author(s): BugFix ( [email='bugfix@autoit.de'][/email] )
;==================================================================================================
Func _ExcelBookGetWidth($oExcel, $iTyp=1, $iHeader=1, $sCol='A')
If Not IsObj($oExcel) Then Return SetError(1, 0, 0)
If $iTyp < 1 Or $iHeader < 1 Or $iTyp > 65536 Or $iHeader > 65536 Then Return SetError(2, 0, 0)
$sCol = StringUpper($sCol)
If StringLen($sCol) = 2 Then
Local $str = StringSplit($sCol, '')
If Asc($str[1]) < 65 Or Asc($str[1]) > 73 Then Return SetError(3, 0, 0)
If Asc($str[2]) < 65 Or Asc($str[2]) > 90 Or _
(Asc($str[1]) = 73 And Asc($str[2]) > 86) Then Return SetError(3, 0, 0)
ElseIf StringLen($sCol) > 2 Then
Return SetError(3, 0, 0)
EndIf
If Asc($sCol) < 65 Or Asc($sCol) > 90 Then Return SetError(3, 0, 0)
Local $sColOut, $iRowOut
Select
Case $iTyp = 1 Or $iTyp = 3
For $i = 65 To 90
If $oExcel.Activesheet.Range(Chr($i) & $iHeader).Value = '' Then
If $i = 65 Then
$sColOut = 0
Else
$sColOut = Chr($i-1)
EndIf
ExitLoop
EndIf
If $i = 90 Then
For $j = 65 To 73
For $k = 65 To 90
If $j = 73 And $k = 87 Then
$sColOut = Chr($j) & Chr($k-1)
ExitLoop
EndIf
If $oExcel.Activesheet.Range(Chr($j) & Chr($k)).Value = '' Then
If $k = 65 Then
$sColOut = Chr($j)
Else
$sColOut = Chr($j) & Chr($k-1)
EndIf
ExitLoop
EndIf
Next
Next
EndIf
Next
ContinueCase
Case $iTyp = 2
For $i = 1 To 65536
If $oExcel.Activesheet.Range($sCol & $i).Value = '' Then
$iRowOut = $i -1
ExitLoop
EndIf
Next
EndSelect
Switch $iTyp
Case 1
Return $sColOut
Case 2
Return $iRowOut
Case 3
Return $sColOut & '|' & $iRowOut
EndSwitch
EndFunc ;==>_ExcelBookGetWidth

#include <file.au3>

; die csv-Datei einlesen
Local $Array, $PathCSV = @ScriptDir & '\test_csv.txt'
_FileReadToArray($PathCSV, $Array)

; im Array an Index 0 steht die Anzahl der Zeilen
; an Index 1 steht die Überschrift
; somit beginnen die Daten an Index 2

; das Array durcharbeiten, Variable zum Splitten der Felder erstellen
Global $aSplit ; Global, damit ByRef darauf zugegriffen werden kann
; zum besseren Verständnis erstelle ich hier Variablen für jedes Feld
; nicht zwingend notwendig, man kann auch direkt mit den Arrayvariablen arbeiten
Global $TicketID, $CreateDate, $Submitter, $AssignInd, $AssignGrp, $Descript

For $i = 2 To UBound($Array) -1
$aSplit = StringSplit($Array[$i], ',')
$TicketID = $aSplit[1]
$CreateDate = $aSplit[2]
$Submitter = $aSplit[3]
$AssignInd = $aSplit[4]
$AssignGrp = $aSplit[5]
$Descript = $aSplit[6]
; jetzt die Auswertelogik, hier mal frei erfunden:
Select
Case StringInStr($Submitter, 'agent') And $AssignGrp = 'IT' And $Descript = 'admin'
_AddToGroup('MAC')
Case StringInStr($Submitter, 'agent') And $Descript = 'admin'
_AddToGroup('ADMIN')
; usw.
EndSelect
Next

Func _AddToGroup($Group)
; prüfen ob Sheet mit dem Gruppennamen existiert, wenn nicht erstellen
; Sheet aktivieren
; letzte belegte Zeile ermitteln (meine UDF: _ExcelBookGetWidth() )
; in Folgezeile schreiben Werte entsprechend der Variablen aus der For-Schleife: $TicketID, $CreateDate usw.
EndFunc