AutoIt

CSV Set Column Name

Demonstrates how to set the name of a column in a CSV. AutoIt

Local $bSuccess = False

; We have the following CSV...

; permalink,company,numEmps,category,city,state,fundedDate,raisedAmt,raisedCurrency,round
; lifelock,LifeLock,,web,Tempe,AZ,1-May-07,6850000,USD,b
; mycityfaces,MyCityFaces,7,web,Scottsdale,AZ,1-Jan-08,50000,USD,seed
; flypaper,Flypaper,,web,Phoenix,AZ,1-Feb-08,3000000,USD,a
; infusionsoft,Infusionsoft,105,software,Gilbert,AZ,1-Oct-07,9000000,USD,a
; gauto,gAuto,4,web,Scottsdale,AZ,1-Jan-08,250000,USD,seed

Local $bCrlf = True
$oSb = ObjCreate("Chilkat.StringBuilder")
$oSb.AppendLine("permalink,company,numEmps,category,city,state,fundedDate,raisedAmt,raisedCurrency,round",$bCrlf)
$oSb.AppendLine("lifelock,LifeLock,,web,Tempe,AZ,1-May-07,6850000,USD,b",$bCrlf)
$oSb.AppendLine("mycityfaces,MyCityFaces,7,web,Scottsdale,AZ,1-Jan-08,50000,USD,seed",$bCrlf)
$oSb.AppendLine("flypaper,Flypaper,,web,Phoenix,AZ,1-Feb-08,3000000,USD,a",$bCrlf)
$oSb.AppendLine("infusionsoft,Infusionsoft,105,software,Gilbert,AZ,1-Oct-07,9000000,USD,a",$bCrlf)
$oSb.AppendLine("gauto,gAuto,4,web,Scottsdale,AZ,1-Jan-08,250000,USD,seed",$bCrlf)

$oCsv = ObjCreate("Chilkat.Csv")

$oCsv.HasColumnNames = True
$bSuccess = $oCsv.LoadFromString($oSb.GetAsString())

; Get each column name..
Local $iNumCols = $oCsv.NumColumns
Local $i = 0
While $i < $iNumCols
    ConsoleWrite($oCsv.GetColumnName($i) & @CRLF)
    $i = $i + 1
Wend
ConsoleWrite("---" & @CRLF)

; Change the "numEmps" column name to "employeeCount"
$bSuccess = $oCsv.SetColumnName(2,"employeeCount")

$iNumCols = $oCsv.NumColumns
$i = 0
While $i < $iNumCols
    ConsoleWrite($oCsv.GetColumnName($i) & @CRLF)
    $i = $i + 1
Wend

; Use the updated column name...
ConsoleWrite("---" & @CRLF)
ConsoleWrite($oCsv.GetCellByName(3,"employeeCount") & @CRLF)

; Output should be:

; permalink
; company
; numEmps
; category
; city
; state
; fundedDate
; raisedAmt
; raisedCurrency
; round
; ---
; permalink
; company
; employeeCount
; category
; city
; state
; fundedDate
; raisedAmt
; raisedCurrency
; round
; ---
; 105