FileMaker Pro Custom Functions

/* RF_Audit ( LogField ; Watchlist ) By Peter Vinogradov inspired by SuperLog CFs and technique by Ray Cologon, Nightwing Enterprises Sample Audit Line: [12.25.06 13:30:31] User {UserName} changed field <{FieldName}> to |this is the value╫this is another line| from |this was the value| note: "╫" = alt+4567 in windows */ If ( Substitute ( Watchlist ; " " ; "") = "" ; LogField ; //End Recursion after last value Let ( [ //-------------- Color settings DT_r = 50 ; DT_G = 200 ; DT_b = 50; //date colors U_r = 50 ; U_G = 50 ; U_b = 170; //User colors newVal_r = 100; newVal_g = 0; newVal_b = 0; //new value colors oldVal_r = 100; oldVal_g = 100; oldVal_b = 100; //old value colors ESC_CR = "╫"; // the character used to escape CRs ESC_PIPE = "@@ESCPIPE@@"; //the character used to escape pipes TABCHR = " "; DT = TextColor ( Get (CurrentTimeStamp) ; RGB (DT_r ; DT_g; DT_b )); usr = TextColor ( Get ( UserName) ; RGB (U_r ; U_g; U_b ) ); WatchlistCleanSpaces = Substitute ( Watchlist ; [" &" ; "&"];["& ";"&"] ); WatchlistVL = Substitute ( WatchlistCleanspaces ; "&" ; "¶" ); CurField = Substitute ( LeftValues ( WatchlistVL ;1) ; "¶";""); Remainder = RightValues (Watchlistvl ; ValueCount (Watchlistvl)-1); //-------- Isolate references to the field being evaluated and determine position and range of previous value curFieldReference = "------ <" & TextStyleAdd ( curfield; Bold+Uppercase) & ">" & TABCHR &"to |"; CurFieldWasStrt = Position ( LogField ; curFieldReference ;1 ;1 ); CurFieldWasEnd = Position ( LogField ; "|" ; curfieldWasStrt + Length (curFieldReference) ;1 ); CurFieldWasLen = CurFieldWasEnd - ( CurFieldWasStrt + Length(curFieldReference)); //---------Capture previous value of current field CurFieldWas = If ( CurFieldWasStrt <>0 ; TextColor ( TextStyleAdd ( If (CurFieldWasLen>0 ; Middle ( LogField ; CurFieldWasStrt + Length ( curFieldReference ) ; CurFieldWasLen ); "[...]" ) ; Italic+Strikethrough) ; RGB ( oldVal_r ; oldVal_g ; oldVal_b ) ) ; "") ; passonWatchlist = Substitute (Remainder ; "¶" ; "&"); // Passed to next iteration curfieldVal = Substitute ( GetAsText ( Evaluate (CurField) ) ; ["¶"; ESC_CR];["|";ESC_PIPE]) ; CurfieldValue = TextColor ( TextStyleAdd ( If (curfieldVal = "" ; "[...]" ; curfieldVal) ; Bold ) ; RGB(newval_r ; newval_g; newval_b) ) ] ; If (curFieldValue <> CurFieldWas and curfieldVal<>"?" ; "["& DT & "]" & TABCHR & " User "& usr & TABCHR & curFieldReference &curfieldValue & "| "& TABCHR &"from |" & CurFieldWas & "|" & "¶" ; "") //audit line or nothing & RF_Audit ( logfield ; passonWatchlist ) // rest of recursion ) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.