AutoIt

CSV Append a Column with Values

See more CSV Examples

Append an additional column and initialize with a value. AutoIt

Local $bSuccess = False

; First initialize the CSV with content.  

; 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())

; Show the initial CSV:
ConsoleWrite($oCsv.SaveToString() & @CRLF)
ConsoleWrite("----" & @CRLF)

; Now let's add a new rightmost column.
Local $iNumColumns = $oCsv.NumColumns
Local $iNumRows = $oCsv.NumRows

; Set the column name.
Local $iColumnIdx = $iNumColumns
$oCsv.SetColumnName($iColumnIdx,"new_column")

; Add the column to each row.
Local $i = 0
While $i < $iNumRows
    $oCsv.SetCell($i,$iColumnIdx,"newData")
    $i = $i + 1
Wend

; Show the updated CSV:
ConsoleWrite($oCsv.SaveToString() & @CRLF)