<cfset badwordslist = valuelist(badwordscheck.BD)>
<cfset badWordsstatus = 0>
<cfoutput>
<cfloop index="somethingelse" from="1340" to="1343">
<cfset FAList = listappend(FAList,trim(FormAnswer))>
<cfset FAList = Replace(FAList," ",",","ALL")>
<cfloop list="#FAList#" index="i" delimiters="|,">
<cfif findnocase(i,#badwordslist#)>
<cfset badWordsstatus = badWordsstatus + 1>
</cfif>
</cfloop>
<cfset FAList = "">
</cfloop>
</cfoutput>
<cfif badWordsstatus EQ 0>
...
...
</cfif><body>
<cfset badwordslist = "uno,dos,tres,cuatro,cinco,seis,siete">
<cfset badWordsstatus = 0>
<cfoutput>
<cfloop index="FAList" from="1340" to="1343">
<cfoutput><hr>Beginning: #FALIST#<br></cfoutput>
<!---At this point FAList is just a number, nothing else--->
<cfset FAList = listAppend(FAList,[b]'uno cinco, diez'[/b])>
<!--get whatever the user provided and added to FAList: Results in a number, a comma and the entry from the user--->
<cfset FAList = replaceNocase(Falist," ",",","ALL")>
<!--- replace all spaces with a comma. Good but if you have multiple spaces you end up with ",,,,,,,, "empty elements that will get processed.--->
<cfoutput>Middle: #FALIST#<br></cfoutput>
<cfset FAList = reReplaceNoCase(Falist,",{2,}",",","ALL")>
<!---since something like "uno , dos" will get transformed into "uno,,,dos" then we need to replace every place where there are more than two commas with only one. We use Regexp for that.--->
<!---Now we have a nice clean list separated by commas and with no empty elements--->
<!---We need to loop through the list and compare each element to the BadWordsList, if we find one then increase the counter--->
<cfloop list="#FAList#" index="usrToken">
<cfif listFindNoCase(badWordsList,usrToken) eq 0>
<cfset badWordsstatus = badWordsstatus + 1>
</cfif>
</cfloop>
<cfset FAList = "">
</cfloop>
</cfoutput>
</body><cfset badwordslist = "badword1,badword2,badword3,badword4">
<cfset badWordsstatus = 0>
<cfoutput>
<cfloop index="FAListIndex" from="1340" to="1343">
<cfset FAList = listappend(FAList,trim(FormAnswer))>
<cfset FAList = Replace(FAList," ",",","ALL")>
<cfloop list="#FAList#" index="i" delimiters="|,">
<cfif findnocase(i,#badwordslist#)>
<cfset badWordsstatus = badWordsstatus + 1>
</cfif>
</cfloop>
<cfset FAList = "">
</cfloop>
</cfoutput>QUERY:
<cfquery name="badwordscheck" datasource="#default_ds#">
SELECT RTRIM(BadWords) as BD
FROM BadWordsTable
</cfquery>
CODE:
<cfset badwordslist = valuelist(badwordscheck.BD)>
<cfset badWordsstatus = 0>
<cfoutput>
<cfloop index="FAListIndex" from="1340" to="1343">
<cfset FAList = listappend(FAList,trim(FormAnswer))>
<cfset FAList = Replace(FAList," ",",","ALL")>
<cfloop list="#FAList#" index="i" delimiters="|,">
<cfif findnocase(i,#badwordslist#)>
<cfset badWordsstatus = badWordsstatus + 1>
</cfif>
</cfloop>
<cfset FAList = "">
</cfloop>
</cfoutput><cfset badwordslist = valuelist(badwordscheck.BD)>
[b]<cfset badwordslist = reReplaceNoCase(badwordslist," ","","ALL")>[/b]
<cfset badWordsstatus = 0><!--- set up export dlimiter and text qualifier --->
<cfset delimiter = chr(9)>
<!--- set up export filename and path --->
<cfset FileName="filename_#DateFormat(now(),'MMDDYYYY')#.txt">
<cfset FullPathName = "#getdirectoryfrompath(gettemplatepath())#files\#FileName#">
<!--- badwords query, table has only 35 words for now --->
<cfquery name="badwordscheck" datasource="#default_ds#">
SELECT RTRIM(BadWords) as BD
FROM BadWordsTable
</cfquery>
<!--- gets the user info --->
<cfquery name="getTheUser" datasource="#default_ds#">
SELECT DISTINCT User_ID, FirstName, LastName, FAns, FormField_ID, CreateDate AS timestamp
FROM MyTable
WHERE (Form_ID = #The_Form#)
ORDER BY U.User_ID, FA.FormField_ID
</cfquery>
<!--- create text file --->
<cffile action="write" file="#FullPathName#" output="FirstName#delimiter#MiddleName#delimiter#LastName#delimiter#answer1#delimiter#answer2#delimiter#answer3#delimiter#answer4" addnewline="Yes">
<table>
<cfoutput query="getTheUser" group="User_ID">
<tr>
<td></td>
<!--- gets the answers from the table depending on the FormField_ID --->
<cfoutput>
<cfif FormField_ID is 1340>
<cfset answer1 = trim(FAns)>
<cfelseif FormField_ID is 1341>
<cfset answer2 = Replace(FAns,chr(13)&chr(10),"|","ALL")>
<cfelseif FormField_ID is 1342>
<cfif len(FAns) eq 0><cfset answer3 = "no"><cfelse><cfset answer3 = trim(FAns)></cfif>
<cfelseif FormField_ID is 1343>
<cfif len(FAns) eq 0><cfset answer4 = "off"><cfelse><cfset answer4 = trim(FAns)></cfif>
</cfif>
</cfoutput>
<!--- <cfset badwordslist = "badwords1,badwords2,badwords3,badwords4,badwords5,badwords6,badwords7"> --->
<!--- creates a list of the badwords from the table via 'valuelist()' --->
<cfset badwordslist = valuelist(badwordscheck.BD)>
<!--- sets badWordsstate to 0 intially --->
<cfset badWordsstatus = 0>
<cfoutput>
<cfloop index="FAListIndex" from="1340" to="1343">
<!--- creates a list for the FAns --->
<cfset FAList = listappend(FAList,trim(FAns))>
<!--- repalces all blank spaces with a comma --->
<cfset FAList = Replace(FAList," ",",","ALL")>
<cfloop list="#FAList#" index="i" delimiters="|,">
<cfif listfindnocase(i,#badwordslist#)>
<!--- if badwords found, increment by one --->
<cfset badWordsstatus = badWordsstatus + 1>
</cfif>
</cfloop>
<!--- sets the FA:ist back to blank so another userid's values can be set into a list and looped through --->
<cfset FAList = "">
</cfloop>
</cfoutput>
<cfif badWordsstatus EQ 0 and len(answer2) gt 0>
<cffile action="append" file="#FullPathName#" output="#FirstName##delimiter##delimiter##LastName##delimiter##answer1##delimiter##answer2##delimiter##answer3##delimiter##answer4#" addnewline="Yes">
<cfset Status = "Sent">
<cfelse>
<cfset StatusDesc = "Failed: bad words">
</cfif>
</cfoutput>
</table>
Done
<cfmail from="email@from.com" to="email@to.com" subject="Test">
<cfsilent>
<cfmailparam file="#FullPathName#">
</cfsilent>
</cfmail> <cfset badwordslist = valuelist(badwordscheck.BD)>
<!--- sets badWordsstate to 0 intially ---> <cfset badwordslist = valuelist(badwordscheck.BD)>
<!--- sets badWordsstate to 0 intially --->
<cfset badwordslist=replace(badwordslist," ","","ALL")><cfset answer2 = Replace(FAns,chr(13)&chr(10),"|","ALL")>