[WPF, vb.net] Textblock - 특정 String Color 주기

Class MainWindow Public Sub New() ' 디자이너에서 이 호출이 필요합니다. InitializeComponent() textblock1.Text = "{A_BC} + {DE} + 324 + {FG} * {FG} / {ABC} + {DE} * 5 <= 349393" Dim Prompt As New List(Of String) Prompt.Add("{DE}") Prompt.Add("{FG}") Setinline(Prompt, textblock1) End Sub Private Sub Setinline(Prompt As List(Of String), TB As TextBlock) Dim defaulttext As String = TB.Text Dim inlinelist As New List(Of String()) Try For idx As Integer = 0 To Prompt.Count - 1 Dim parastr As String = Prompt(idx) If idx = 0 Then inlinelist.Add(New String() {TB.Text, "0"}) Dim counter As Integer = inlinelist.Count For k As Integer = 0 To counter - 1 Dim tArray As String() = inlinelist(k)(0).Split(New String() {parastr}, StringSplitOptions.None) Dim i As Integer = 0 For Each txt As String In tArray If i <> 0 Then inlinelist.Insert(k + i, New String() {parastr, "1"}) i += 1 End If If i = 0 Then inlinelist(k) = New String() {txt, inlinelist(k)(1)} Else inlinelist.Insert(k + i, New String() {txt, "0"}) 'i += 1 End If i += 1 Next Next Next TB.Inlines.Clear() For Each txtinfo As String() In inlinelist If txtinfo(1).Equals("1") Then TB.Inlines.Add(New Run(txtinfo(0)) With {.Foreground = New SolidColorBrush(Color.FromRgb(86, 156, 214)), .FontWeight = FontWeights.Bold}) Else TB.Inlines.Add(New Run(txtinfo(0))) End If Next Catch ex As Exception TB.Text = defaulttext End Try End Sub End Class

Prompt List에 있는 String을

Textblock에 있는 text에서 찾아내 Color 주기.