Highlight selected portions of text in table cell?

pmroz

I know that you can color table cells, but I need to do something a bit different.

Is it possible to highlight selected portions of text in a table cell?  Something like this:

If this is possible with a tablebox that would be a workable solution as well.

ms

The only idea I can come up with is to "cheat" using the new expression data type that came with JMP 12. It's probably not terribly useful, but it was fun to try.

//Example table

dt = New Table("test",

    Add Rows(4),

    New Column("Text",

        Character,

        "Nominal",

        Set Values(

            {"Highlight red, not green.", "The red-eyed bull raged about the red cape",

            "Green and red Apples", "Ida Red Likes The Boogie"}

        )

    )

);

//Add column with highlighted "text""

dt << New Column("Red", Expression, <<Set Display Width(:Text << Get Display Width));

hwords = {"red", "Red"};

For Each Row(

    w = Words(:Text, " .,-");

    hpos = [];

    For(i = 1, i <= N Items(hwords), i++,

        hpos |/= Loc(w, hwords[i])

    );

    nw = New Window("test", wlb = Wrap List Box());

    For(i = 1, i <= N Items(w), i++,

        wlb << append(Text Box(w[i] || " "))

    );

    For(i = 1, i <= N Row(hpos), i++,

        wlb[hpos[i]] << Font Color("Red")

    );

    :red = nw << get picture;

    nw << closewindow;

);

Wait(1); :Text << Hide; // Just to complete the illusion...