CSV FILE to 2D Dim?

[tbaror]

Hello,

i am trying to read CSV delimited with "," file and insert it into 2D i have tried to play with LibCsv2.au3 but keeps getting error.

i wonder if there is any other function to deal with csv files.

thanks

[DaleHohm]

Hello,

i am trying to read CSV delimited with "," file and insert it into 2D i have tried to play with LibCsv2.au3 but keeps getting error.

i wonder if there is any other function to deal with csv files.

thanks

Ivan created one as well. Search the forum.

I've used LibCsv2.au3 without any trouble, so there may be trouble with your source file or with how you are trying to use it.

Dale

[Malkey]

Hello,

i am trying to read CSV delimited with "," file and insert it into 2D i have tried to play with LibCsv2.au3 but keeps getting error.

i wonder if there is any other function to deal with csv files.

thanks

I am not sure if this will help, but from here

http://www.autoitscript.com/forum/index.ph...st&p=474934

I extracted this

expandcollapse popup

; Save matrix to disk. csv file extension
Func savemat($mainfrm, $m)
    GUISetState (@SW_ENABLE,$mainfrm )
    $Pathfile = FileSaveDialog( "Choose a name.",@WorkingDir,"Comma-Separated Variables files (*.csv)|All (*.*)",8) 
    If @error Then
        ;MsgBox(4096,"","No File(s) chosen") 
        $p = 1
        return $p
        ;MsgBox(0,"return -1", $p)
    EndIf
    dim $r = UBound($m), $c = UBound($m, 2)
    
    if StringRight($Pathfile,4) <> ".csv" then $Pathfile = $Pathfile & ".csv"
        $filename = StringTrimLeft($Pathfile,StringLen(@WorkingDir)+1)  
        $hfile = FileOpen($Pathfile, 2)
        $Line = ""
        $Counter = 0
        for $x = 0 to $r -1
            for $y = 0 to $c -1
                if $mainfrm = "Matrix 1" Then 
                    $COMMALESS = StringReplace (GUICtrlRead($run1[$Counter]),",","{COMMA}")     
                    $Line = $Line & $COMMALESS & ","
                EndIf
                if $mainfrm = "Matrix 2" Then 
                    $COMMALESS = StringReplace (GUICtrlRead($run2[$Counter]),",","{COMMA}")     
                    $Line = $Line & $COMMALESS & ","
                EndIf   
                if $mainfrm = "Matrix 3" Then 
                    $COMMALESS = StringReplace (GUICtrlRead($run3[$Counter]),",","{COMMA}")     
                    $Line = $Line & $COMMALESS & ","
                EndIf                       
                $Counter += 1
            Next
            FileWriteLine($hfile, StringTrimRight($Line,1) & @CRLF)
            $Line = ""
        next                
        FileClose($hfile)
        $p = 0
        ;MsgBox(0,"End", $p)
        Return $p       
EndFunc
    
; Open file stored on disk.  csv file extension
;  $Pathfile - path and name of file to be opened
; If $Pathfile not supplied, FileOpenDialog will allow the choosing a file to be open.
Func fileop($Pathfile = "") 
    If $Pathfile = "" Then      
        $Pathfile = FileOpenDialog( "Choose a name.",@WorkingDir,"Comma-Separated Variables files (*.csv)|All (*.*)",8)
    EndIf       
    If @error Then
        ;MsgBox(4096,"","No File(s) chosen") 
        $m = 1
        return $m
    EndIf
    $filename = StringTrimLeft($Pathfile,StringLen(@WorkingDir)+1)
    $hfile = FileOpen($Pathfile, 0)
    $colcount = 1
    $line = FileReadLine($hfile)
    for $ch = 1 to StringLen($line)
        if StringMid($line, $ch,1) = "," then $colcount += 1    
            ;MsgBox(0,"","rowcount "& $rowcount & "      colcount " & $colcount)            
    next
    $rowcount = 1
    While 1 
        $line = FileReadLine($hfile)
        If @error = -1 Then ExitLoop    
        $rowcount += 1
    Wend
    ;MsgBox(0,"","rowcount "& $rowcount & "      colcount " & $colcount)
    FileClose($hfile)
    $m = MatCreate($rowcount, $colcount)
    ;MsgBox(0,"","$rowcount=" & $rowcount & "  $colcount="  & $colcount)
    $hfile = FileOpen($Pathfile, 0)
    for $x = 0 to $rowcount - 1
        $line = StringSplit (FileReadLine($hfile),",")
        for $y = 0 to $colcount - 1 
            $m[$x][$y] = StringReplace ($line[$y+1],"{COMMA}",",")                  
            ;MsgBox(0,"","$x=" & $x & "  $y="  & $y &  "  $m[$x][$y]=" & $m[$x][$y] )                       
        Next        
    next    
    FileClose($hfile)
     return $m
 EndFunc

Because I wanted commas in the data, when saving to file, data commas became "{COMMA}"

When reading the saved file, the data went through StringReplace () replacing "{COMMA}" with ",".

I am certain there are other CSV related functions on the forum. I hope this one helps.

Edit: I just found the LibCsv2.au3 file at

http://www.autoitscript.com/forum/index.ph...st&p=383317

It looks very good.

Edited July 27, 2008 by Malkey