GetRGB ( text )

Returns set/s of RGB values representing the colors of text. If text contains multiple colors, multiple sets of RGB values are returned.

Average rating: 4.3 (46 votes) Log in to vote

Michael Horak - Show more from this author
*COMMENT Visual Realisation

Sample input:

Some text where this word is formatted as red, this one is dark green and this is blueish, but you can't see it here.

Sample output:

255 ; 0 ; 0
0 ; 102 ; 0
0 ; 51 ; 255

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

/*
GetRGB function

Author
*COMMENT Visual Realisation

Format
GetRGB ( text ) 

Parameters
text - any text expression or text field

Data type returned
text

Description
Returns set/s of RGB values representing the colors of text. If text contains multiple colors, multiple sets of RGB values are returned.

March 15, 2005
*/

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 & " ; " & G & " ; " & B  & ¶
)
& 
Case ( 
// IF THERE IS MORE TEXT TO EXAMINE
Length ( nextText ) ;
// EXAMINE THE REST OF THE TEXT
GetRGB ( nextText ) 
)

)

GetRGB function

Author
*COMMENT Visual Realisation

Format
GetRGB ( text )

Parameters
text - any text expression or text field

Data type returned
text

Description
Returns set/s of RGB values representing the colors of text. If text contains multiple colors, multiple sets of RGB values are returned.

Note:
The GetRGB function ignores field text color, as defined in layout mode. The values returned represent colors that were expressly defined to override the default color setting (e.g. by selecting the text and choosing a text color, or by using the TextColor() function).

Comments

		Dennis Burnham, Addison, TX Jul 5, 2011
I'd like to use this function but it contains a syntax error that I can't seem to overcome when I put it into my Custom Functions. After adding the function parameters "text" and "GetRGB" -- FileMaker says that an operator is required in this line: GetRGB ( nextText ) I'm stumped not knowing which operator is required.

		Dennis Burnham, Addison, TX Jul 5, 2011
Ignore or delete previous comment. I figured it out.

		Wayne, Tulsa, OK Aug 11, 2013
This works great, except I cannot use it for boolean, for some reason. I am trying to use it in a script, as in If GetRGB(myText) = "255 ; 0 ; 0 ", but it is always false, even when I copy the result from the Data Viewer. Any ideas? It says it is 12 characters long and appear to be spaces, but I cannot get it to come back true. GetRGB returns the result, then I copy the result and past it into the IF, but it doesn't think it's own answer is true. Thanks for any help.

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

GetRGB ( text )

Comments

Support this website.

Support this website.