csv Array Problem

Hallo,

habe erst heute wieder Internet (war 1 Woche von der Welt abgeschnitten)
ich hoffe Ihr hattet alle schöne Feiertage.

Ich habe eine csv Funktion gefunden
die ich toll finde. Leider habe ich noch Probleme mit Arrays!
Kann mir jemand sagen wie ich mit einem Loop
die Felder lesen kann?

So sieht die csv aus:

Hund;Alter;Pass
Collie;1 Jahr; geimpft
Dackel;Welpe;geimpft

das ist die Funktion:

#include <array.au3>
Main()

Func Main()

Local $sAdr = "csv.txt"
Local $h = FileOpen($sAdr, 0)

Local $aRet = _CSV2Array($h, Default, True, 1)

FileClose($h)
_ArrayDisplay($aRet)

EndFunc ;==>Main

; #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

Viele Grüße
Ilse

Hallo Bernd,

danke Dir.
Kannst du mir bitte noch etwas helfen:

Frage 1:

Wie kann ich eine bestimmte Zelle lesen?
Ich meine daß im Loop z.B. nur die erste Zelle also: Dackel, Collie... nacheinander gezeigt wird!

Frage 2:

Wie kann man den kpl. Datensatz anzeigen?
z.B. Dackel, 1Jahr, geimpft
das klappt leider nicht, es kommt alles einzeln.

#include <array.au3>
Main()

Func Main()

Local $sAdr = "csv.txt"
Local $h = FileOpen($sAdr, 0)

Local $aRet = _CSV2Array($h, Default, True, 1)

FileClose($h)
;~ _ArrayDisplay($aRet)

For $iRow = 0 To UBound($aRet, 1) - 1 ; Zeilen von $aRet
For $iCol = 0 To UBound($aRet, 2) - 1 ; Spalten von $aRet
ConsoleWrite($aRet[$iRow][$iCol] & @TAB & @TAB)
Msgbox(4,"",$aRet[$iRow][$iCol]) ; hier habe ich die Werte eingebaut
Next
ConsoleWrite(@CRLF)
Next

EndFunc ;==>Main

; #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

Grüße
Ilse

Hallo Bernd,

muß mich leider nochmal melden. Bin die ganze Zeit am probieren.
Ich verstehe das mit den Arrays noch nicht so ganz.

Ich kann z.Zt. nur Spalten und Zeilen lesen aber keine einzelne "ZELLEN!"

Hier erhalte ich Fehler

For $iRow = 0 To UBound($aRet, 1) - 1 ; Zeilen von $aRet
$szZeile = ""
$Alter = "" ; die Zelle Alter möchte ich lesen!
For $iCol = 0 To UBound($aRet, 2) - 1 ; Spalten von $aRet
;$szZeile &= $aRet[$iRow][$iCol] & @TAB
$Alter &= $aRet[$iCol] & @TAB ; hier komme ich nicht weiter!
Next
;Msgbox(4,"Alter",$Alter) ; hier habe ich die Werte eingebaut
Next

Grüße
Ilse

Hallo Bernd,

merci für deine Hilfe und den Link 2D-Array.
Das würde ich gerne lernen.
Hoffentlich kapiere ich das

Ich wünsche dir schon jetzt einen guten Rutsch
ins neue Jahr 2011

Liebe Grüße
Ilse

Hallo autobert,

dank dir für deine Infos
Vielleicht werde ich nächstes Jahr um diese
Zeit über Arrays "schmunzeln"

...auch dir einen guten Rutsch ins Jahr 2011

Liebe Grüße
Ilse