How to change a Mtext color

[d_prontnicki]

Hi,

I have a sub that i found on this forum and use to change an mtext's color back to bylayer if portions of the text have been forced to another color. Meaning most of the text is by layer but maybe a user forced a word or sentence to red, or green, or something else. My question is this; with code below I need to account for any possible color, meaning I need to repeat the lines for each color. Obviously this is not ideal. Is there a way to say no matter the color make bylayer?

For Each selectedMtextObject As SelectedObject In acPromptResult.Value

                    Dim acMtext = CType(acTrans.GetObject(selectedMtextObject.ObjectId, OpenMode.ForWrite), MText)

                    acMtext.Contents = acMtext.Contents.Replace(MText.ColorChange & "1;", MText.ColorChange & "256;")
                    acMtext.Contents = acMtext.Contents.Replace(MText.ColorChange & "3;", MText.ColorChange & "256;")
                    acMtext.Contents = acMtext.Contents.Replace(MText.ColorChange & "10;", MText.ColorChange & "256;")

                Next

I feel like it something simple that I am missing...

Thank you

[kdub_nz · Accepted solution]

Using Regex to change ANY color

perhaps something like :

acMtext.Contents = Regex.Replace(acMtext.Contents, @"\\C\d+;", MText.ColorChange + "256;");

[d_prontnicki]

@kdub_nz 

That did it, Thank you so much. Now I have some research/learning to do.  I have never used Regex before. 

Thank you again, I really appreciate it. 

[kdub_nz]

You're welcome.

This may be handy one day  https://www.regular-expressions.info/

You could also test that the original is within a range if that was required.

[d_prontnicki]

Thank you for the starting point. The page looks great! I will be reading this tonight.