[Custom Functie] FindRepetition()

[Peter Wagemans]

syntax:

FindRepetition ( searchString; repeatingField; start; occurrence; end; partialMatch; matchCase )

voorbeeld input en resultaat: zie bijgevoegd bestandje

Let (
theString = GetRepetition ( repeatingField ; start ) ;
Case ( 
start > end ; 0 ;
PatternCount ( theString ; searchString ) = 0 ; FindRepetition ( searchString; repeatingField ; start + 1 ; occurrence ; end ; partialMatch ; matchCase ) ;
partialMatch = 0 and theString <> searchString ; FindRepetition ( searchString; repeatingField ; start + 1 ; occurrence ; end ; partialMatch ; matchCase ) ;
partialMatch = 0 and matchCase <> 0 and not Exact ( theString ; searchString ) ; FindRepetition ( searchString; repeatingField ; start + 1 ; occurrence ; end ; partialMatch ; matchCase ) ;
partialMatch <> 0 and matchCase <> 0 and ( not FindRepetition ( searchString; Middle ( theString ; Position ( theString ; searchString ; 1 ; 1 ) ; Length ( searchString ) ); 1 ; 1 ; 1 ; 0 ; 1) ); FindRepetition ( searchString; repeatingField ; start + 1 ; occurrence ; end ; partialMatch ; matchCase ) ;
occurrence <> 1 ; FindRepetition ( searchString; repeatingField ; start + 1 ; occurrence - 1 ; end ; partialMatch ; matchCase ) ;
start
)
)

FindRepetition.fp7

[rmw]

Kan de download in zip formaat?

Ik kan met Safari 1.2.4 op OS X 10.3.7 nog steeds geen filemaker bestanden binnen halen.

 

rmw

[Peter-Paul]

Bij deze

FindRepetition.zip

[rmw]

Dank.

 

Maar met OS X 10.4.3 en Safari 2.0.2 lukt het tegenwoordig wel.

 

rmw