Search & format specific [Capitilised] text in a table layout report "Text" field

[Solarscholar]

Hi,

Me again. This time with something I think should be much easier.

I need to search for the following in a table layout report field set wrapped. [Not HTML];

A "text" field for all CAPITILISED text WHERE caps characters are 3 and more [In the same word with no spaces between the characters]

I.e.

You may choose an icon for your MESSAGE from this list.

The requirement is to format the capital word to bold

You may choose an icon for your MESSAGE from this list.

[roe3p]

Re: Search & format specific [Capitilised] text in a table layout report "Text" field

Any reason why it can't be in an HTML field? You could then use an xbasic function to insert tags around specific words (either <b> or <span class="...">, say).

[roe3p]

Re: Search &amp; format specific [Capitilised] text in a table layout report &quot;Text&quot; field

Perhaps something like this:

FUNCTION count_caps AS N (word AS C )
	'Count the number of capital letters in word
	dim char as C
	dim pos as N
	
	word = remspecial(word)
	
	for pos = 1 to len(word)
		char = substr(word,pos,1)
		if *first(alltrim(char), UPPER(char)) = .T. then
			count_caps = count_caps + 1
		end if			
	next	
	
END FUNCTION


FUNCTION tag_caps AS C (string AS C, mincaps AS N = 1, openingtag AS C = "<b>", closingtag AS C = "</b>")
	'Insert tags around any letters which contains more than the specified number of capital letters
	dim curr_word AS C
	
	list = strtran(string," ", crlf())
	
	for each curr_word in list			
		tag_caps = tag_caps + if(count_caps(curr_word) >= mincaps, openingtag + curr_word + closingtag, curr_word) + " "				
	next
	
	tag_caps = alltrim(tag_caps)
	
END FUNCTION

Probably a little overcomplicated, but it deals with special characters and allows you to specify your own html tags and minimum caps count.

Example usage:

?tag_caps("THIS is sOME SAMPle TExt!",3)
= "<b>THIS</b> is <b>sOME</b> <b>SAMPle</b> TExt!"

?tag_caps("THIS is sOME SAMPle TExt!",4,"<span class=\"special\">","</span>")
= <span class="special">THIS</span> is sOME <span class="special">SAMPle</span> TExt!

[Solarscholar]

Re: Search &amp; format specific [Capitilised] text in a table layout report &quot;Text&quot; field

Rohan,

Thanks, question;

The "capitalised word' is random, never or rather, almost never the same. This means I will have to search the entire "text area" html field for ANY occurrence where a specific word starts with and have at least caps for the 1st 3 letters. I then assume the whole word SHOULD be caps and it should be changed to Bold then.

I have never even came close to something like this before so your help is appreciated.

Field = "Info"
Field Type [SQL = text], [Alpha = Textarea]
Report field type HTML [as you suggested]

[roe3p]

Re: Search &amp; format specific [Capitilised] text in a table layout report &quot;Text&quot; field

Hi Cornelius,

That should be fine - the tag_caps function loops through all the words in the input string and only inserts tags around the ones that contain more than a specified number of caps (1 by default, but it's an optional parameter). The example above shows it working on a fixed string, but to use it on the 'Info' field you'd create a calculated expression like:

formattedtext = printHTML(tag_caps(Info,3))

then place the 'formattedtext' placeholder in your HTML field. That should give you what you're after.

[Solarscholar]

Re: Search &amp; format specific [Capitilised] text in a table layout report &quot;Text&quot; field

Hi Cornelius,

That should be fine - the tag_caps function loops through all the words in the input string and only inserts tags around the ones that contain more than a specified number of caps (1 by default, but it's an optional parameter). The example above shows it working on a fixed string, but to use it on the 'Info' field you'd create a calculated expression like:

formattedtext = printHTML(tag_caps(Info,3))

then place the 'formattedtext' placeholder in your HTML field. That should give you what you're after.

Rohan, I am wonderfully idiotic with this. Ha Ha [Laughing at myself]

I tried your code, used code editor to create the function, tried to call it in the report but NO, its nowhere to be found. Miserable failure from my side. Just don't know/understand enough of this.

It seemed so simple to me. Search and html field for any word that starts with a capital letter and have at least 3 capitals from the start of the word. Bold this word if true. Ha... Easier said than done.

Can I create this function in the report itself?

[roe3p]

Re: Search &amp; format specific [Capitilised] text in a table layout report &quot;Text&quot; field

No worries, I'm still a bit of a newbie with reports so constantly encountering problems that mystify me for days! :-)

I'm not sure how you're calling the function, but once it's defined in the Control Panel -> Code section it should be available to your reports.

Have you defined an expression in your Calculated Fields window? (the xy icon in the toolbar) That will let you call all xbasic functions available to you, both built-in and custom:
Screenshot - calc fields.png

Once you've defined the expression, you should be able to select it in your field list, as though it were a field from your dataset:
Screenshot - calc fields 2.png

That works for me - here's the expression as it appears on the report:
Screenshot - tag_caps.png

If you still have problems, can you post a screenshot of how you're trying to use the function/expression?

Thanks!