Text files, Arrays, Forms, editing, updating, and deleting

<!---file location--->
<cfset textfile = "/fullpath/data.txt">
<!---linefeed character and carriage return character--->
<cfset crlf = Chr(10) & Chr(13)>
<!---save variable at starting point --->
<cfset rowID = 0>
<!---text existence of a parameter, if doesnot exist, continue regardless--->
<cfparam name="edit" default="">

<!---Read file--->
<cffile action="read" variable="Message" file="#textfile#">	

<!--- Set each line in variable--->
<cfset line="#Message#">
<!--- Set array variable, delimiter--->
<cfset arr = ListToArray(line, '|', true)>
    
	<cfif edit EQ "yes"> 
    <h1>Employee Data</h1>
    <p><a href="./edit.cfm">Back to Edit Page list</a></p>
    <table>
        <form action="edit.cgi" method=post>       
            <tr>
            	<td>Code:</td>
            	<td><input type=text size=7 maxlength=7 name=code value="<cfoutput>#arr[1]#</cfoutput>"></td>
            </tr>
            <tr>
            	<td>Name:</td>
            	<td><input type=text size=50 maxlength=50 name=name value="<cfoutput>#arr[2]#</cfoutput>"></td>
            </tr>
            <tr>
            	<td>Title:</td>
            	<td><textarea rows=4 cols=50 name=objective wrap=soft><cfoutput>#arr[3]#</cfoutput></textarea></td></tr>
            <tr>
            	<td colspan="2" align="right"><input type=submit value="Submit Changes" name="Submit Changes"></td>
           </tr>
        </form>
    </table>   

	<cfelse>
    
    <!---Output the Table headings --->
    <h1>Employee Data - Edit Page</h1>
    
    <table border="1">
      <tr align="left" class="tableHeadingEdit">
        
		<th valign="top">Code</th>
        <th valign="top">Name</th>
        <th valign="top">Title</th>
      </tr>
     
    <!---Iterate, read the file data by line ending--->
    <cfloop index="message" file="#textfile#">	
    
		<!--- Count row --->
        <cfset rowID = rowID + 1>
        
        <!--- Set each line in variable --->
            <cfset list="#message#">
            
            <!--- Set array variable, delimiter--->
            <cfset arr = ListToArray(list, '|', true)>
    
            <!--- Set array names for each field --->
            <cfset fieldNameArray = ArrayNew(1)>
            <cfset fieldNameArray[1] = "code">	
            <cfset fieldNameArray[2] = "name">
            <cfset fieldNameArray[3] = "title">
            <cfset fieldNameArray[4] = "">
    
          <tr>  
            
            <!--- Set colID to start at 0 for count --->
            <cfset colID = 0>
        
            <!--- Loop through each "message" in cells for a row--->
			<cfloop from="1"  to="#arraylen(arr)#" index="i">
    
                <!--- Set colID to count in increments of 1 --->
                <cfset colID = colID + 1>        
                
                <!--- Output each iteration of delimited values in cells across all fields --->
                <cfoutput>
                    <td class="rowText" name="#fieldNameArray[colID]##rowID#">#arr[variables.i]#</td>            	
                </cfoutput>
                    
            </cfloop>
                        
            <!--- Edit buttons --->              
            <cfset arrURL = ListToArray(list, '|', true)>  
            <cfoutput>
                <td align="center"><a href="?edit=yes&code=#arrURL[1]#">edit</a></td>
            </cfoutput>
        
          </tr>
              
    </cfloop>
    </table><br/>
    
    </cfif>

SOF|Steve|Software Engineer|
ADM|Mary|Administrator|