Kommata zählen wenn anzahl dann bestimmten string ersetzen

Hallo,

Brauche wiedermal eure hilfe
will in einem Text jede zeile alle kommas zählen wenn meine anzahl an kommas z.b 11 ist dann,
will einen bestimmten string ,xx ersetzen durch ,,xx

Kann mir jemand dabei helfen,

Danke
SubZero

Was mache ich falsch???

[autoit]

#include <Array.au3>
#include <File.au3>

[/autoit][autoit][/autoit][autoit]

_zeile_abschneiden()

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

Func _zeile_abschneiden()
Dim $sFilePath = 'c:\liste.csv'
Dim $outFile = 'c:\liste.csv'
Dim $aArray
_FileReadToArray($sFilePath, $aArray) ; datei in Array lesen

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

For $i = 1 To $aArray[0] ; zeilenweise durchgehen
$aArray[$i] = StringReplace($aArray[$i], 'System - Domain', 'System - Domain,') ; der String wird ersetzt durch den String mit der Eingabe

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

$aArray[$i] = StringReplace($aArray[$i], ' ', '') ; der String wird ersetzt durch den String mit der Eingabe

$aArray[$i] = StringReplace($aArray[$i], '""', '') ; der String wird ersetzt durch den String mit der Eingabe

$aArray[$i] = StringReplace($aArray[$i], '"', '') ; der String wird ersetzt durch den String mit der Eingabe
$aArray[$i] = StringReplace($aArray[$i], ',,', ',') ; der String wird ersetzt durch den String mit der Eingabe
$aArray[$i] = StringReplace($aArray[$i], 'System-Location', 'System-Location,Gebäude,Etage,TRaum') ; der String wird ersetzt durch den String mit der Eingabe
$aArray[$i] = StringReplace($aArray[$i], 'IPAddress-IPAddress', 'IPAddress') ; der String wird ersetzt durch den String mit der Eingabe
$aArray[$i] = StringReplace($aArray[$i], ',,,', ',1,,') ; der String wird ersetzt durch den String mit der Eingabe
; If not StringInStr($aArray[$i], ',t') Then

$array=StringSplit($aArray[$i],",")
$anzahl=$array[0]+1
if $anzahl = 12 Then $aArray[$i] = StringReplace($aArray[$i], ',de010', ',,de010')


Next

[/autoit][autoit][/autoit][autoit]

If FileExists($outFile) Then FileDelete($outFile) ; falls Ausgabedatei bereits vorhanden - löschen
_FileWriteFromArray($outFile, $aArray, 1) ; vom Array in Ausgabedatei schreiben
EndFunc ;==>_zeile_abschneiden

[/autoit]

Gruß
SubZero

danke ich habs