Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <!---CSV FILE--->
- <cffile action="read" file="C:/ColdFusion10/cfusion/wwwroot/kelly2/debitorders.csv" variable="csvfile">
- <cfoutput>
- <!---LOOP THROUGH CSV FILE--->
- <cfloop index="index" list="#csvfile#" delimiters="#chr(10)##chr(13)#">
- <!---SET VALUES--->
- <!---TRIM VALUES--->
- <!---SET STRING LENGTH FOR EACH--->
- <!---SET TOTAL STRING--->
- <!---IF FILE FOR BANK EXISTS--->
- <cfif FileExists(ExpandPath("#listgetAt('#index#',5)#.txt"))>
- <!---READ EXISTING FILE HEADER--->
- <cffile action="read" file="C:/ColdFusion10/cfusion/wwwroot/kelly2/#bankname#.txt" variable="bankheader">
- <!---SPLIT UP THE HEADER TO ADD NEW VALUES ONTO IT--->
- <cfset numericvalue = listfirst(bankheader,chr(13))>
- <cfset numericvalue = #Right(numericvalue, 13)#>
- <cfset RecordCountvalue = #Left(numericvalue, 3)#>
- <cfset RecordCountvalue = #RecordCountvalue# + 1>
- <cfset RecordCountvalue = #NumberFormat(RecordCountvalue,"000")#>
- <cfset RecordCountvalue = #Left(RecordCountvalue, 3)#>
- <cfset RecordCountvalue = #RJustify(RecordCountvalue, 3)#>
- <cfset TotalRecordvalue = #Right(numericvalue, 10)#>
- <cfset TotalRecordvalue = (#TotalRecordvalue# + #amount#) * 100000>
- <cfset TotalRecordvalue = #NumberFormat(TotalRecordvalue,"0000000000")#>
- <cfset TotalRecordvalue = #Left(TotalRecordvalue, 10)#>
- <cfset TotalRecordvalue = #RJustify(TotalRecordvalue, 10)#>
- <!---SET HEADER FOR FILE--->
- <cfset fileheader_bank = "#UCase(bankname)#">
- <cfset fileheader_bank = "#Left(fileheader_bank, 15)#">
- <cfset fileheader_bank = "#LJustify(fileheader_bank, 16)#">
- <cfset newfile_header = "#fileheader_bank##RecordCountvalue##TotalRecordvalue#">
- <!---APPEND FILE AND ADD UPDATED HEADER--->
- <cfset bankheader = listSetAt(bankheader,1,"#newfile_header#","#chr(13)#")>
- <cffile action="write" file="#getDirectoryFromPath(getTemplatePath())#/#listgetAt('#index#',5)#.txt" output="#bankheader#">
- <!---APPEND FILE AND ADD NEW ENTRY--->
- <cffile action = "append"
- file = "C:/ColdFusion10/cfusion/wwwroot/kelly2/#listgetAt('#index#',5)#.txt"
- output = "#total_string#">
- </cfif>
- </cfloop>
- </cfoutput>
- <!---APPEND FILE AND ADD UPDATED HEADER--->
- <cfset bankheader = listSetAt(bankheader,1,"#newfile_header#","#chr(13)#")>
- <cffile action="write" file="#getDirectoryFromPath(getTemplatePath())#/#listgetAt('#index#',5)#.txt" output="#bankheader#">
- <!---APPEND FILE AND ADD NEW ENTRY--->
- <cffile action = "append"
- file = "C:/ColdFusion10/cfusion/wwwroot/kelly2/#listgetAt('#index#',5)#.txt"
- output = "#total_string#">
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement