从excel中提取数据并创建自定义CSV - ColdFusion

时间:2012-12-27 16:37:59

标签: coldfusion coldfusion-9

我从客户端收到excel文件,我需要从它们创建一个csv文件。我的问题是excel文件中的值与我们的标准不匹配,只是通过复制它来创建csv文件。在创建文件时,我需要获取值并将它们按正确顺序放置。我通读了liveocs的CF,但我找不到任何有用的东西。

我正在考虑创建一个结构并将数据拉出来,然后根据我的结构创建csv文件,但我之前没有做过这样的事情,我不确定它是否可能。我还想过使用listGetAt而不是结构但仍未尝试过。

之前有人做过这样的事吗?我正在尝试尽可能少地编写代码,因为如果我们让第二个客户端遇到同样的问题,我会发现这会成为未来的问题。

更新(过去几天我改变了我的代码,所以这就是我现在所拥有的)

<cfset DataDirectory = "E:\testfolder\test.xlsx"> 

<cfspreadsheet action="read" src="#DataDirectory#" excludeHeaderRow="true" headerrow="1"  query="queryData"> 

 <cfquery name="contact" datasource="#ds#">
        select ClientBrandID 
        from ClientBrands 
        where surveyReferralID IN
                                (select surveyReferralID from clientAdmin where username = '#res#')
     </cfquery>


    <cfscript>
        dataFile = structNew();
        StructInsert(datafile,"ClientBrandID",contact.ClientBrandID);
        StructInsert(datafile,"surveyType", queryData.surveyType);  
    </cfscript>
 <cfscript> 

    ///We need an absolute path, so get the current directory path. 
    theFile=  "E:\testfolder\NewTest.csv";
    //Create a new Excel spreadsheet object and add the query data. 
    theSheet = SpreadsheetNew("PatientData"); 

    SpreadsheetAddRow(theSheet, "ClientBrandID,SurveyType,Location,ClientContactID,FirstName,LastName,HomePhone,WorkPhone,CellPhone,Email"); <!---This is the header of the new CSV --->
    SpreadsheetAddRows(theSheet, "datafile.clientbrandid, datafile.surveytype"); <!--- This is my latest failed attempt. Tried to pass in data from my struct, probably the quotes are the issue but haven't tried it without them --->
</cfscript> 

<!--- Write the spreadsheet to a file, replacing any existing file. ---> 
<cfspreadsheet action="write" filename="#theFile#" format="csv" name="theSheet" overwrite=true >

所有这些操作都需要在cfloop中才能浏览我的测试文件夹中的所有文件。现在,在我做其他事情之前,我正在硬编码单个文件以解决手头的问题。此外,我错过了另一个需要遍历文件的所有值的循环。它应该是<cfloop query='queryData'>,这是我从cfspreadsheet获得的查询。

2 个答案:

答案 0 :(得分:6)

您可以让它接受任何订单,但您仍然需要将预期的列标题硬编码到数组或其他内容中并考虑它仅供内部使用我只需将数据添加回CSV中的顺序它应该是。我上次从查询中制作了一个电子表格,我这样做了。也许它会有所帮助。

<cfscript>
    sMySpreadSheet = spreadsheetNew();
    column = 1;
    <!--- header row --->
    <!--- Remember what is expected from SpreadsheetSetCellValue --->
    <!--- SpreadsheetSetCellValue(spreadsheetObj, value, row, column) --->

    spreadsheetSetCellValue(sMySpreadSheet ,"First Name",1,column); column++;
    spreadsheetSetCellValue(sMySpreadSheet ,"Last Name",1,column); column++;
    spreadsheetSetCellValue(sMySpreadSheet ,"DOB",1,column); column++;
    spreadsheetSetCellValue(sMySpreadSheet ,"Phone Number",1,column); column++;
    spreadsheetSetCellValue(sMySpreadSheet ,"Number of Kids",1,column); column++;

    <!--- data rows --->
    <!--- if you're not using a header row with real titles you can just use the 
          default col_x 
          example: spreadsheetSetCellValue(sMySpreadSheet , queryData.col_1[q], q+1, column); column++; --->
    for(q=1; q LTE queryData.recordCount; q++){
        column = 1;
        spreadsheetSetCellValue(sMySpreadSheet , queryData.first[q], q+1, column); column++;
        spreadsheetSetCellValue(sMySpreadSheet , queryData.last[q], q+1, column); column++;
        spreadsheetSetCellValue(sMySpreadSheet , queryData.dob[q], q+1, column); column++;
        spreadsheetSetCellValue(sMySpreadSheet , queryData.phoneNumber[q], q+1, column); column++;
        spreadsheetSetCellValue(sMySpreadSheet , queryData.kidCount[q], q+1, column); 

    }
    <!--- make it purdy (optional) --->
    spreadsheetFormatRow(queryData, {fgcolor="light_cornflower_blue"},1);   
</cfscript>

如果您想简单地添加到CSV,您可以执行以下操作(将您的内容包装成“如果您有资格):

<cfsetting enableCFoutputOnly = "Yes">
<cfsaveContent variable = "myCSV">
<cfset newline = #chr(13)#&#chr(10)#>
<cfoutput>First Name,Last Name,DOB,Phone Number,Number of Kids#newline#</cfoutput>
  <cfoutput query="queryData">#queryData.first#,#queryData.last#,#queryData.dob#,#queryData.phoneNumber#,#kqueryData.idCount##newline#/cfoutput>
</cfsaveContent>
</cfsetting>
<cffile action = "append" file = "[your file]" output = "#myCSV#">

如果cfsavecontent导致出现空格问题而且cfsetting没有帮助,这是另一种选择。

<cfset myCSV = "First Name,Last Name,DOB,Phone Number,Number of Kids#newline#">
<cfloop query="queryData">
  <cfset myCSV &= "#queryData.first#,#queryData.last#,#queryData.dob#,#queryData.phoneNumber#,#queryData.kidCount##newline#">
</cfloop>

答案 1 :(得分:0)

以下是基于已编辑问题的一些建议。即使编辑的问题没有说明你想要实现的目标,我也在制作它们。

关于“所有这些操作都需要在cfloop中才能遍历我的测试文件夹中的所有文件”,您可以在该文件夹上使用cfdirectory。它将返回一个ColdFusion查询,您可以通过该查询循环。

其余代码看起来比它需要的更复杂。阅读电子表格会为您提供一个查询对象 - 到目前为止一直很好。

您的数据库查询,名为contact,看起来很有用。你引用一个名为res的变量,但不清楚它来自哪里。如果它来自电子表格,则值列表可能更合适。顺便说一下,使用查询参数。

您似乎希望自己的csv文件合并电子表格和数据库查询中的数据。如果是这种情况,查询查询可能会有用。

如果是我,我会使用cffile action =“write”来创建我的csv文件。我也会用双引号括住每个值,以防它们中的任何一个包含逗号。