PatternCountMultiTotal ( Text ; SearchList, CaseSensitive )

It extend the PatternCount function to a valuelist

Average rating: 4.0 (6 votes) Log in to vote

Philip Wang - Show more from this author
106th Street Wheel and Tire
http://www.106sttire.com

Sample input:

PatternCountMultiTotal( "We jump we laugh we smile we JUMP again.";"We¶JUMP"; 0 )

PatternCountMultiTotal( "We jump we laugh we smile we JUMP again.";"We¶JUMP"; 1 )

Sample output:

6

2

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*
  Made by Philip Wang on 2017-02-17

 This is based on
 ALoopingDemo v1 created 2015-03-21 by Doug Staubach
 http://www.briandunning.com/cf/1755
 Thank you Doug for making loop in CF easy to do!
 This function will search the patterns by a search string list.
 And it will return the total counts of all the match values. It allows multiple   search strings to match in the Text.
*/

Case (

    // First cycle through the loop, so the counter does not exist yet
    not $LoopCount
    ;Let ( [
        // On the first loop, initialize internal variables and start first recursion
        $LoopCount = 1
        ;$Marker = "φ"
        ;$TotalCount = 0
        ;Text = If (CaseSensitive; Text; Upper ( Text ) )
        ;SearchList = If (CaseSensitive; SearchList; Upper(SearchList ) )
     ];
        // This is the first recursion -- the function just calls itself,
        // with the same parameter(s) that the user entered
        PatternCountMultiTotal ( Text ; SearchList; CaseSensitive)
     )

    // On the second cycle through the loop, the counter will be set to 1
    // the third cycle the counter will be set to 2, then 3 and so forth
    ;$LoopCount < ValueCount( SearchList )+1
    ;Let ( [
        // This is where you would place the majority of your detailed work
        // (inside the top part of the LET statement)
        // The last line should increment your loop counter
        
        SubText = Substitute ( Text ; GetValue ( SearchList ; $LoopCount ) ; $Marker )
        ;$TotalCount = $TotalCount + PatternCount ( SubText; $Marker)
        ;$LoopCount = $LoopCount + 1
     ];
        // After finishing each step, we recurse again
        PatternCountMultiTotal(Text; SearchList; CaseSensitive)
     )

    // We have now completed the last cycle through the loop
    ;$LoopCount ≥ ValueCount( SearchList )+1
    ;Let ( [
        result = $TotalCount
        // before exiting the last step, we will release all variables
        // (we do this to keep memory clean)
        ;$Marker = ""
        ;$LoopCount= ""
        ;$TotalCount= ""
     ];
        // The very last line is the function return value
        // If the function needs to return a calculated result
        // (text, number or date) -- put that value on the line below
        // If the function only sets global memory variables (for example, a
        // function called by an event trigger) -- type True on the line below
        result
     )
)

If the SearchList contains only one value, it acts exactly like PatternCount, except that CaseSensitive option.

The order of the value list doesn't matter. For example, if Text is "888 888", and the SearchList is "888¶8". The search of "888" always returns 2, the search of "8" always returns 6, no matter the order of the list.

I use this function to check invalid characters in a string.

Comments

		Philip Wang, 106th Street Wheel and Tire Feb 18, 2017
The reason I use Substitute instead of direct PatternCount is for the CaseSensitive. PatternCount don't have this option so I had to do it this way. With this function the validating multiple invalid characters became easy. Here is and example: Not PatternCountMultiTotal ( Self ; "\|Â¶'Â¶\"Â¶,Â¶;Â¶ Â¶/Â¶\\" ; 0 ) The above will validate against the characters \| ' " , ; / \ and space. You can add any characters or words that you don't like. Also a good use of it is to search multiple derogatory terms. You can have a long list of words that's not allow, run this function and you will see any hits.

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

PatternCountMultiTotal ( Text ; SearchList, CaseSensitive )

Comments

Support this website.

Support this website.