Estilo de texto en base de datos

[jhonwilliams]

Iniciado por igonfil

RTBNotic.Clear()
RTBNotic.SelectionFont = Form.DefaultFont
Dim t As String = RTBNotic.Rtf
'A la primera línea le sigue obligatoriamente la tabla de fuentes
Dim z As Integer = t.IndexOf("{\fonttbl{")
Dim primeralinea As String
primeralinea = t.Substring(0, z)

'Y aquí el que extrae la definición de una fuente:
RTBNotic.Clear()
RTBNotic.SelectionFont = Form.DefaultFont
Dim c As String = RTBNotic.Rtf
Dim rr() As String

'Localizo el nombre de la fuente y parto el texto en dos
rr = Split(t, Font.FontFamily.Name)
'Rastreo la llave izquierda
Dim k1 As Integer = rr(0).LastIndexOf("{")
'y extraigo el fragmanto a partir de ella
Dim s1 As String = rr(0).Substring(k1)

'Rastreo la llave derecha
Dim k2 As Integer = rr(1).IndexOf("}")
'y extraigo el fragmanto hasta ella
Dim s2 As String = rr(1).Substring(0, k2 + 1)

'Uno las tres piezas y ya tengo {La cadena completa entre llaves}
Dim s As String = s1 & Font.FontFamily.Name & s2

'sustituyo el índice cero por el que será correcto en mi documento
RTBNotic.SelectedText = s.Replace("{\f0\", "{\f" & primeralinea & "\")

End Sub

Muchas gracias y saludos

Para que haces todo esto?

Saludos