FileMaker Pro Custom Functions

Was this working for you?

Lee Smith, Woodland
March 29, 2012 6:54pm

WOW!
totally messed up the copy / paste

Here is what i intended to past>

/*
###################################

Match v.1_0
by: Ian moree
date: Mar 29, 2012

Definition: Match ( string; search ; )

eg. this finds chars in sequence {IA} , if not, then returns Message stating so
// My first custom function- I am sure there is room for improvement,just dont know yet!

#####################################
*/


Case
( IsEmpty( string) or IsEmpty( search ); "" ;
/* else */
Let( [

len = Length ( search );
pos = Position( string; search ; 1 ;1 )
];


Case( pos = 0 ; 0 ; Exact (search; Middle ( string ; pos; len ) )
) )
)

Ian Moree, Nassau Bahamaas
March 29, 2012 9:11pm

Initially I noticed that you had a typo in the Let statement

POS = Position (text; search; 1:1)

S/B POS = Position (string; search; 1; 1)

In addition you had the opening case statements closing within the Let calculation, instead of at the end where it belonged.

I tested your revised Custom Functions and I noticed that you modified the calculation for the Let so that it no longer gives statement “there was no match”

Anyway, here is a modification of your original custom function, that I think does what you wanted to do.

Case (
IsEmpty ( text ) or IsEmpty ( Search ) ;
Get ( LastError ) ;
Let ( [
len = Length ( Search ) ;
pos = Position ( text ; Search ; 1 ; 1 )
] ;
Case (
pos = 0 ;
"There was no Match" ;
Middle ( text ; pos ; len )
)
)
)
//end case

Lee Smith, Woodland
March 30, 2012 12:40am

thanks Lee.

Ian Moree, Nassau Bahamaas
March 30, 2012 6:58am