GetTextColor ( text )

Returns the text color in an integer format.

Average rating: 4.5 (30 votes) Log in to vote

Joe Gold - Show more from this author
Angel City Data
http://www.angelcitydata.com

Sample input:

FirstName (pretend this is red)

Sample output:

14483456

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

/*
GetTextColor function

Small modification Michael Horak's GetRGB function-

Author
Michael Horak *COMMENT Visual Realisation
with a very small modification by Joe Gold of Angel City Data

Format
GetTextColor ( Text) 

Parameters
text - any text expression or text field

Data type returned
number

Description
Returns an integer value representing the text color.
*/

Let ( [

theText = Substitute ( text ; ¶ ; "" ) ;
style = GetAsCSS ( Substitute ( theText ; "#" ; "~" ) ) ; 

// THE FIRST LINE OF CSS (contains portions of text. surrounded by style tags) 
styleLine = Substitute ( LeftValues ( style ; 1 ) ; ¶ ; "" ) ;

// THE TEXT PORTION OF THE FIRST LINE OF CSS
styleLineText = Evaluate ( Substitute (
Quote ( styleLine ) ;
[ "<" ; Quote ( "& Left (" ) ] ;
[ ">" ; Quote ( " ; 0 ) & " ) ]
)
) ;

// WHERE IS THE TEXT PORTION IN THE TEXT ITSELF?
pos = Position ( theText ; styleLineText ; 1 ; 1 ) ;

// FROM END OF THE CURRENT TEXT TO END OF TEXT
nextText = Middle ( theText ; pos + Length ( styleLineText ) ; Length ( theText ) - Length ( styleLineText ) + 1 ) ;

// IS THERE A COLOR TAG IN THE CURRENT STYLE LINE? AND WHERE IS IT?
colorStart = Position ( styleLine ; "#" ; 1 ; 1 ) ;

// GET CURRENT COLOR
hex = Middle ( styleLine ; colorStart + 1 ; 6 ) ;

hexR2 = Substitute ( Middle ( hex ; 1 ; 1 ) ; 
[ "A" ; "10" ] ; [ "B" ; "11" ] ; [ "C" ; "12" ] ; [ "D" ; "13" ] ; [ "E" ; "14" ] ; [ "F" ; "15" ] ) ;

hexR1 = Substitute ( Middle ( hex ; 2 ; 1 ) ;
[ "A" ; "10" ] ; [ "B" ; "11" ] ; [ "C" ; "12" ] ; [ "D" ; "13" ] ; [ "E" ; "14" ] ; [ "F" ; "15" ] ) ;

hexG2 = Substitute ( Middle ( hex ; 3 ; 1 ) ;
[ "A" ; "10" ] ; [ "B" ; "11" ] ; [ "C" ; "12" ] ; [ "D" ; "13" ] ; [ "E" ; "14" ] ; [ "F" ; "15" ] ) ;

hexG1 = Substitute ( Middle ( hex ; 4 ; 1 ) ;
[ "A" ; "10" ] ; [ "B" ; "11" ] ; [ "C" ; "12" ] ; [ "D" ; "13" ] ; [ "E" ; "14" ] ; [ "F" ; "15" ] ) ;

hexB2 = Substitute ( Middle ( hex ; 5 ; 1 ) ;
[ "A" ; "10" ] ; [ "B" ; "11" ] ; [ "C" ; "12" ] ; [ "D" ; "13" ] ; [ "E" ; "14" ] ; [ "F" ; "15" ] ) ;

hexB1 = Substitute ( Middle ( hex ; 6 ; 1 ) ;
[ "A" ; "10" ] ; [ "B" ; "11" ] ; [ "C" ; "12" ] ; [ "D" ; "13" ] ; [ "E" ; "14" ] ; [ "F" ; "15" ] ) ;

R = 16 * hexR2 + hexR1 ;
G = 16 * hexG2 + hexG1 ;
B = 16 * hexB2 + hexB1 

] ;

Case ( 
// IF THERE IS A COLOR TAG IN THE CURRENT STYLE LINE
colorStart ;
// GET RGB VALUES IN THE CURRENT STYLE LINE
R *65536+ G *256+ B 
)

)

This is a small modification to Michael Horak's GetRGB function. It returns the text color in an integer format.

Comments

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

GetTextColor ( text )

Comments

Support this website.

Support this website.