Here is one implementation of a "Stacked Find". Feedback and/or alternate views welcome.
# Stacked Find DRAFT
Set Variable [ $list ; Value: "A¶B" ]
// Set Variable [ $list ; Value: "A¶B¶" ]
// Set Variable [ $list ; Value: "¶A¶B" ]
// Set Variable [ $list ; Value: "A¶¶¶B" ]
// Set Variable [ $list ; Value: "¶¶¶" ]
#
# Validate that the list is NOT empty.
Set Variable [ $list.as_string ; Value: Substitute ( $list ; ¶ ; "" ) ]
If [ IsEmpty ( $list.as_string ) ]
Show Custom Dialog [ "List is empty" ]
# 1 = OK
Halt Script
End If
#
# Stacked Find
Set Variable [ $count ; Value: ValueCount ( $list ) ]
Set Variable [ $i ; Value: 1 ]
Set Variable [ $enterFindMode ; Value: 1 ]
Loop
Exit Loop If [ $i > $count ]
Set Variable [ $value ; Value: GetValue ( $list ; $i ) ]
If [ Length ( $value ) ]
If [ $enterFindMode ]
Enter Find Mode [ Pause: Off ]
Set Variable [ $enterFindMode ; Value: 0 ]
Else
New Record/Request
End If
Set Field [ ListTag::Tag ; "==" & $value ]
End If
#
Set Variable [ $i ; Value: $i + 1 ]
End Loop
#
Set Error Capture [ On ]
Perform Find []
Set Error Capture [ Off ]
#
I might be tempted to shrink it down to this since empty find request seem to be no-ops anyway:
# Stacked Find
Set Variable [ $count ; Value: ValueCount ( $list ) ]
Set Variable [ $i ; Value: 0 ]
Enter Find Mode [ Pause: Off ]
Loop
Exit Loop If [ Let ( $i = $i + 1 ; $i > $count ) ]
New Record/Request
Set Field [ ListTag::Tag ; "==" & GetValue ( $list ; $i ) ]
End Loop
Perform Find []
EDIT: I noticed one potential problem with my implementation. Since you're doing a == find and you want to ignore empty list values, you would need to check if $value is empty before populating the query field.
I agree with Josh. Putting a little extra into the Exit Loop If statement makes the entire loop simpler. I'd rearrange the steps to avoid having an unused request.
# Stacked Find
Set Variable [ $count ; Value: ValueCount ( $list ) ]
Set Variable [ $i ; Value: 1 ]
Enter Find Mode [ Pause: Off ]
Loop
Set Field [ ListTag::Tag ; "==" & GetValue ( $list ; $i ) ]
Exit Loop If [ Let ( $i = $i + 1 ; $i > $count ) ]
New Record/Request
End Loop
Perform Find []
The simpler it gets, the more I appreciate it. One thing I am on the fence about, however, is that there's no escaping of reserved/special find chars done by this scripting. That's certainly not wrong, and, in fact, allows for more versatility, as it allows the consuming code to make use of FMP's special find chars. That said, part of me thinks I'd personally find it the most useful if it did do escaping, and I knew that I could hand it an arbitrary newline-delimited list of values and it would match any of them.
Using my function FOR.list (sorry, fmfunctions.com is down again, I'll have to copy the code here).
It gets that simple.
Enter Find Mode [ pause: Off]
Loop
Exit loop if [ FOR.list ( "i" ; $list )
Set field [ table::field ; "==" & $i.value ]
New Record
End Loop
Perform Find []
Function: FOR.list ( _iterator ; _list )
FOR.list ( _iterator ; _list )
Fabrice Nordmann, @1morethingTweet
www.1-more-thing.com
v1. Dec 2017
Use in an ExitLoop script step to process each value of a ¶ delimited list.
A script like:
Loop
Exit Loop [ FOR.list ( "item" ; list ( "apple" ; "banana" ; "cherry" ))]
Show Custom Dialog [ $item.value ]
End Loop
Will display 3 dialog boxes ("apple", "banana" and "cherry") and stop.
*/
Let ( _iterations = ValueCount ( _list ) ;
Case ( _iterations and not IsEmpty ( _iterator );
Evaluate ( "Let ( $" & _iterator & "= $" & _iterator & "+1 ; \"\" )") &
Evaluate ( "Let ( $" & _iterator & ".value = " & Quote ( GetValue ( _list ; Evaluate ( "$" & _iterator ))) & "; \"\")" ) &
Case (
Evaluate ( "$" & _iterator ) <= _iterations ; 0 ;
Evaluate ( "Let ([ $" & _iterator & "= \"\" ; $" & _iterator & ".value = \"\"] ; 1 )" )
);
True // no iterations -> exit
)
)
Even though I use a clipping library for cutting/pasting code from the FileMaker clipboard, I'm thinking the same thing.
I have a Filemaker Object Archive that converts FMP clipboard data into UTF-8 text and stores it for analysis or for re-use. It's based on Dan Shockley's FmClipTools. I just logged into GitHub to grab the links for Dan's Clip Tools repo, and GitHub pointed me to his latest effort, which is an AppleScript wrapper around @jwilling's FM Rainbow Log.
Even though I'm using iTerm and it allows me to store regex based colourising rules in my profile (so my logs get colourised magically), I'm thinking I need to install Rust.
Question: If I spend all of next weekend watching Rust tutorials, who should I blame?
