AutoIt

CSV Append New Row

Demonstrates how to append a new row to 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())

; Let's say we want to append the following row:
; yelp,Yelp,,web,San Francisco,CA,1-Jul-04,1000000,USD,a

; If we have the row as-is, we could do this:
$oCsvTemp = ObjCreate("Chilkat.Csv")
$bSuccess = $oCsvTemp.LoadFromString("yelp,Yelp,,web,San Francisco,CA,1-Jul-04,1000000,USD,a")
Local $iNumCols = $oCsvTemp.NumColumns
Local $i = 0
Local $iRow = $oCsv.NumRows
While $i < $iNumCols
    $oCsv.SetCell($iRow,$i,$oCsvTemp.GetCell(0,$i))
    $i = $i + 1
Wend

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

; Output should be:
; 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
; yelp,Yelp,,web,San Francisco,CA,1-Jul-04,1000000,USD,a