Replacing Ucase Text

[DMT Dave]

Hi Guy's, wonder if you can suggest any method for this one

I am trying to use replace function to find Upper case text and replace with new line (<br>)

strMsg = "<B><u><i>Your Email Message Received</i></u></B><br>" & Replace(Me.txtMailMessage, UCase(Me.txtMailMessage), "<br><br>")     
        
        Debug.Print strMsg

Immediate window

<B><u><i>Your Email Message Received</i></u></B><br><br><br>

I can use Replace characters / text / numbers etc with newlines but wondered if replacing UCase with new Lines ?

this way, it determines a new sentence

[Minty]

UCase is a function not literal text, so trying to search for it won't work.
I'll be honest I'm struggling to see what you are trying to achieve?

If you are trying to search for any word that is entirely in upper case, you would have to use regular expressions I think.

In your example if it could work it would have added a new line to each word, as they all start with a capital letter.

You would be better searching for ". " to identify the end of a sentence.

[June7]

UCase() is a function that converts all alpha characters in a string to upper case. It doesn't "find" upper case characters. So UCase("Abc") evaluates to "ABC".

Access and VBA are not case sensitive by default: "A" = "a".

Will period be the only end of sentence punctuation?

[DMT Dave]

Thanks guy's

@June7 and @Minty

I tried using replacing full stop thinking it would do the trick but if there is www.June7@minty.com it splits this so also tried a number of replace options in 1 string to find www.June7@minty.com (don't replace) then fin any other full stops.

I guess i may run into the question, what if punctuation isn't correct and the strMSG doesn't have a full stop at the end of each sentence like it should then another hurdle to jump.

Will think of a different method

thanks again guy's

[DMT Dave]

@June7, period ? unsure of this question

[DMT Dave]

Hello, thank you for asking June7. also thank you for visiting www.June7@minty.co.uk.You guy's are always helpful on accessforum.net, once again, thank you dave.com.

the words not to generate a new line are red

[DMT Dave]

This is the best i have so far

strMsg = "<B><u><i>Your Email Message Received</i></u></B><br><br>" & Replace(Me.txtMailMessage, vbCrLf, "<br>")

[June7]

Minty and I thought you were trying to locate sentence endings and insert code to force new line. Search for end of sentence punctuation would be one way to locate sentence endings and insert breaks.

Replace(string, ". ", ". <br><br>")

This does assume end of sentence punctuation is always a period and space. String manipulation depends on consistency of structure. Unfortunately, your example shows lack of consistency.

[Minty]

@Dave You seem to have missed that I said search for ". " not "."
Note the space after the full stop.

That is as good as you are going to do without some very clever spell checking algorithm.

[DMT Dave]

Ahh @Minty sorry I missed the trick there re: space after .

@June7, yes that is my plan but the missed trick from Minty tells me replace full stop and space for newline NOT full stop ONLY

so if i read your suggestion correct, this should keep www.Minty.june7 as 1 word (line, phrase) but replace if there is a space after the stop

[June7]

Yes. That's why my comment said "period and space". Your example shows a sentence with period and no following space. So that one case will not get replaced.