|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) CSV Append a Column with ValuesSee more CSV ExamplesAppend an additional column and initialize with a value.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' 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 bCrlf = 1 ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sb = Server.CreateObject("Chilkat.StringBuilder") success = sb.AppendLine("permalink,company,numEmps,category,city,state,fundedDate,raisedAmt,raisedCurrency,round",bCrlf) success = sb.AppendLine("lifelock,LifeLock,,web,Tempe,AZ,1-May-07,6850000,USD,b",bCrlf) success = sb.AppendLine("mycityfaces,MyCityFaces,7,web,Scottsdale,AZ,1-Jan-08,50000,USD,seed",bCrlf) success = sb.AppendLine("flypaper,Flypaper,,web,Phoenix,AZ,1-Feb-08,3000000,USD,a",bCrlf) success = sb.AppendLine("infusionsoft,Infusionsoft,105,software,Gilbert,AZ,1-Oct-07,9000000,USD,a",bCrlf) success = sb.AppendLine("gauto,gAuto,4,web,Scottsdale,AZ,1-Jan-08,250000,USD,seed",bCrlf) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Csv") set csv = Server.CreateObject("Chilkat.Csv") csv.HasColumnNames = 1 success = csv.LoadFromString(sb.GetAsString()) ' Show the initial CSV: Response.Write "<pre>" & Server.HTMLEncode( csv.SaveToString()) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>" ' Now let's add a new rightmost column. numColumns = csv.NumColumns numRows = csv.NumRows ' Set the column name. columnIdx = numColumns success = csv.SetColumnName(columnIdx,"new_column") ' Add the column to each row. i = 0 Do While i < numRows success = csv.SetCell(i,columnIdx,"newData") i = i + 1 Loop ' Show the updated CSV: Response.Write "<pre>" & Server.HTMLEncode( csv.SaveToString()) & "</pre>" %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.