Jump to content
Sign in to follow this  
getk

Reading CSV file but avoiding comments (#)

Recommended Posts

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

Share this post


Link to post
Share on other sites
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

  • Like 1

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
getk

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  

×