Sign in to follow this  
Followers 0
getk

Reading CSV file but avoiding comments (#)

4 posts in this topic

#1 ·  Posted (edited)

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 by getk

Share this post


Link to post
Share on other sites



_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

1 person likes this

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Thanks a lot mate.

The 1st solution worked like a charm.

Much appreciated.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0