Reading CSV file but avoiding comments (#)

[getk]

hi

I'm able to read a CSV file perfectly.

But I couldn't find a way to avoid/omit comments in the CSV file.

I'm trying to avoid any entries which has (#) in its start.

I'm doing

_FileReadToArray(@ScriptDir & "\ServerList.csv", $aConfig)

For $i = 1 To $aConfig[0]    
    $aValues = StringSplit($aConfig[$i], ",")


    $SERVERTYPE = $aValues[1]
    $IPADDRESS = $aValues[2]
    $HOSTNAME = $aValues[3]
....

CSV sample

#SERVERTYPE,IPADDRESS,HOSTNAME,ENVIRONMENT,SERVICE,SHORTNAME,
LINUX,1.1.1.1,serverUKA
LINUX,2.2.2.2,serverUSA
# This is a comment
WINDOWS,3.1.1.1,serverUKA
WINDOWS,4.2.2.2,serverUSA

Edited February 10, 2014 by getk

[water]

_FileReadToArray(@ScriptDir & "\ServerList.csv", $aConfig)

For $i = 1 To $aConfig[0]    
    If Stringleft($aConfig[$i], 1) <> "#" Then
        $aValues = StringSplit($aConfig[$i], ",")


        $SERVERTYPE = $aValues[1]
        $IPADDRESS = $aValues[2]
        $HOSTNAME = $aValues[3]
        ....
    Endif
Next

[Jury]

Or

$file = FileOpen(@ScriptDir & "\ServerList.csv", 0)
; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
$ServerList = FileRead ($file)

FileClose($file)

$array = StringRegExp($ServerList, '(?i)(?-s)([^\#].*?),(\d+)\.(\d+)\.(\d+)\.(\d+),(\w+)', 3)

For $i = 0 To UBound($array) - 1
    ConsoleWrite($array[$i] & @CRLF)
Next

[getk]

Thanks a lot mate.

The 1st solution worked like a charm.

Much appreciated.