Advertisement
Guest User

Untitled

a guest
Nov 21st, 2014
127
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.90 KB | None | 0 0
  1. <!---CSV FILE--->
  2. <cffile action="read" file="C:/ColdFusion10/cfusion/wwwroot/kelly2/debitorders.csv" variable="csvfile">
  3.  
  4. <cfoutput>
  5. <!---LOOP THROUGH CSV FILE--->
  6. <cfloop index="index" list="#csvfile#" delimiters="#chr(10)##chr(13)#">
  7.  
  8. <!---SET VALUES--->
  9.  
  10. <!---TRIM VALUES--->
  11.  
  12. <!---SET STRING LENGTH FOR EACH--->
  13.  
  14. <!---SET TOTAL STRING--->
  15.  
  16.  
  17.  
  18. <!---IF FILE FOR BANK EXISTS--->
  19. <cfif FileExists(ExpandPath("#listgetAt('#index#',5)#.txt"))>
  20.  
  21. <!---READ EXISTING FILE HEADER--->
  22. <cffile action="read" file="C:/ColdFusion10/cfusion/wwwroot/kelly2/#bankname#.txt" variable="bankheader">
  23. <!---SPLIT UP THE HEADER TO ADD NEW VALUES ONTO IT--->
  24. <cfset numericvalue = listfirst(bankheader,chr(13))>
  25. <cfset numericvalue = #Right(numericvalue, 13)#>
  26.  
  27. <cfset RecordCountvalue = #Left(numericvalue, 3)#>
  28. <cfset RecordCountvalue = #RecordCountvalue# + 1>
  29. <cfset RecordCountvalue = #NumberFormat(RecordCountvalue,"000")#>
  30. <cfset RecordCountvalue = #Left(RecordCountvalue, 3)#>
  31. <cfset RecordCountvalue = #RJustify(RecordCountvalue, 3)#>
  32.  
  33. <cfset TotalRecordvalue = #Right(numericvalue, 10)#>
  34. <cfset TotalRecordvalue = (#TotalRecordvalue# + #amount#) * 100000>
  35. <cfset TotalRecordvalue = #NumberFormat(TotalRecordvalue,"0000000000")#>
  36. <cfset TotalRecordvalue = #Left(TotalRecordvalue, 10)#>
  37. <cfset TotalRecordvalue = #RJustify(TotalRecordvalue, 10)#>
  38.  
  39. <!---SET HEADER FOR FILE--->
  40. <cfset fileheader_bank = "#UCase(bankname)#">
  41. <cfset fileheader_bank = "#Left(fileheader_bank, 15)#">
  42. <cfset fileheader_bank = "#LJustify(fileheader_bank, 16)#">
  43. <cfset newfile_header = "#fileheader_bank##RecordCountvalue##TotalRecordvalue#">
  44.  
  45. <!---APPEND FILE AND ADD UPDATED HEADER--->
  46. <cfset bankheader = listSetAt(bankheader,1,"#newfile_header#","#chr(13)#")>
  47. <cffile action="write" file="#getDirectoryFromPath(getTemplatePath())#/#listgetAt('#index#',5)#.txt" output="#bankheader#">
  48.  
  49. <!---APPEND FILE AND ADD NEW ENTRY--->
  50. <cffile action = "append"
  51. file = "C:/ColdFusion10/cfusion/wwwroot/kelly2/#listgetAt('#index#',5)#.txt"
  52. output = "#total_string#">
  53.  
  54. </cfif>
  55. </cfloop>
  56. </cfoutput>
  57.  
  58. <!---APPEND FILE AND ADD UPDATED HEADER--->
  59. <cfset bankheader = listSetAt(bankheader,1,"#newfile_header#","#chr(13)#")>
  60. <cffile action="write" file="#getDirectoryFromPath(getTemplatePath())#/#listgetAt('#index#',5)#.txt" output="#bankheader#">
  61.  
  62. <!---APPEND FILE AND ADD NEW ENTRY--->
  63. <cffile action = "append"
  64. file = "C:/ColdFusion10/cfusion/wwwroot/kelly2/#listgetAt('#index#',5)#.txt"
  65. output = "#total_string#">
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement