Introducing the option of "PartialFind" and "InvertedSearch" to ListFind and ListFindNoCase

[marcovth]

I am adding the option of "PartialFind" and "InvertedSearch" to ListFind and ListFindNoCase.

Additional options with cfPHP ...
e.g. list="test,aaa,bbb,ccc", Find="AA" ... PartialFind returns 2, FullFind returns 0
list="test,aaa,bbb,ccc" Find="AAA" ... PartialFind returns 2, FullFind returns 2

InvertedSearch will take each element in list="test,aaa,bbb,ccc", and checks if they can be found in ...
e.g. Find="AAAA is a long sentence" ... PartialFind returns 2, FullFind returns 0;

<
function ListFindNoCase($list,$find,$delimiter=",",$PartialFind=0,$InvertedSearch=0){
// Determines the index of the first list element in which a specified value occurs.
// Returns 0 if not found. Case-insensitive
// listFind(list, value [, delimiters, includeEmptyValues]) → returns numeric
// https://cfdocs.org/listfind

// Additional options with cfPHP ...
// list="test,aaa,bbb,ccc" Find="AA" ... PartialFind returns 2, FullFind returns 0;
// list="test,aaa,bbb,ccc" Find="AAA" ... PartialFind returns 2, FullFind returns 2;
// InvertedSearch will take each element in the same list, and checks if they can 
// 	be found in ... Find="AAAA is a long sentence" ... 
//		PartialFind returns 2, FullFind returns 0;

//echo "[$PartialFind][$delimiter][".UCASE($PartialFind)."]<br>\n";
if(null===$PartialFind) $PF=false; else $PF=true;
if(UCASE($PartialFind)==="FULL" or UCASE($PartialFind)==="FULLFIND") { $PF=false; } 
else if(UCASE($PartialFind)==="PARTIAL") { $PF=true; } 
else if($PartialFind==0) { $PF=false; } 
else if($PartialFind==1) { $PF=true; } 

if(null===$InvertedSearch) $IS=false; else $IS=true; 
if(UCASE($InvertedSearch)==="INVERTED" or UCASE($InvertedSearch)==="INVERTEDSEARCH") { $IS=true; } 
else if($InvertedSearch==0) { $IS=false; } 
else if($InvertedSearch==1) { $IS=true; } 

//echo "ListFindNoCase([list][$find][$delimiter][$PF][$IS])<br>\n";
//echo "$list<br>\n";

$words=ListToArray($list,$delimiter); //print_r($words);
$found=0; $n=0;
foreach($words as &$word) {	$n++;
	$word=UCASE($word);
	$find=UCASE($find);
	if(!$IS){
		// Normal function call ... Find="AA" in list="test,aaa,bbb,ccc"
		//echo "ListFind=[$find] IN [$word]<br>\n";
		if($PF){
			if(Find($find,$word)>0){ 
				$found=$n; break;
			}
		} else {
			$word=RemoveSurroundingQuotes($word);
			if($find===$word){
				$found=$n; break;
			}
		}
	} else {
		// Inverted search ... Find any of the elements in list="test,aaa,bbb,ccc"
		// in search-string Find="AAAA is a long sentence"
		$Sentence=ListToArray($find," ");
		if($PF){
			foreach($Sentence as &$sword) {
				$sword=UCASE(RemoveSurroundingQuotes($sword));
				if(Find($word,$sword)>0){ 
					$found=$n; break; break;
				}
			}
		} else {
			$word=RemoveSurroundingQuotes($word);
			foreach($Sentence as &$sword) {
				$sword=UCASE(RemoveSurroundingQuotes($sword));
				if($sword===$word){
					$found=$n; break; break;
				}
			}
		}
	}
}
return $found;

}

[Pete Freitag]

@marcovth thanks for the info. While your cfphp project does look interesting, I'm not ready to add its differences to cfdocs.org yet. I will certainly revisit this stance again in the future, if the project does gain traction I would reconsider, but for now I'm going to close this issue.