bold text of a stringbuilder?

EDN Admin · Apr 4, 2007

Hello

Im trying to find out an easy way of bolding a string of my stringbuilder...if that is even possible.
The stringbuilder eventually passes all the text to richtextbox...
Id like to bold this string
sb.AppendLine()
and also
sb.AppendLine( & finalname)
finalname out of that string.

Is that possible or how else could I do that?

Thanks for any help. 

<div class=codeseg>
<div class=codecontent>
<div class=codesniptitle>
Dim path As String = Me.seldirtxt.Text
Dim sb As New StringBuilder
Dim i As Integer = FileView.SelectedItems.Count
Dim textfile As String = "C:files.txt" 
Dim sw As New StreamWriter(textfile, True)
Dim finalname As String 
Dim GrandTotal1 As Integer = 0
Dim GrandTotal2 As Integer = 0
Dim ifont As New Font(form.resultsbox.Font, FontStyle.Bold)
If i > 0 Then 
Cursor = Cursors.WaitCursor
For Each item As ListViewItem In FileView.SelectedItems
Dim total1 As Integer = 0
Dim total2 As Integer = 0
Dim filename As String = item.Text
If filename.Substring(0, 1) = "*" Then 
finalname = filename.Trim("*")
Else 
finalname = filename
sw.Write(finalname & ControlChars.NewLine)
End If 
sb.AppendLine("Results for " & finalname)
sb.AppendLine("")
Dim parser As New TextFieldParser(path & "" & finalname, Encoding.Default)
parser.Delimiters = New String() {"#"}
Do Until parser.EndOfData
For Each ackrecord As String In parser.ReadFields()
If ackrecord.Length > 0 Then 
Dim piece As String = ackrecord.ToString.Substring(8, 4).Trim
If piece = "ACK" Or piece = "ACKR" Then 
If piece = "ACK" Then 
total1 += 1
ElseIf piece = "ACKR" Then 
Dim Number As String = ackrecord.ToString.Substring(14, 9)
Dim rejcode As String = ackrecord.ToString.Substring(60, 4)
total2 += 1
If total2 = 1 Then 
sb.AppendLine("Number" & vbTab & vbTab & vbTab & vbTab & "Reject")
End If 
sb.AppendLine(Number & vbTab & vbTab & vbTab & rejcode)
End If 
End If 
End If 
Next 
Loop 
sb.AppendLine("")
sb.AppendLine(String.Format("{0} Found out of {1} ", total1, total2))
If i > 1 Then 
sb.AppendLine("--------------------------------")
End If 
GrandTotal1 += total1
GrandTotal2 += total2
Next 
sw.Flush()
sw.Close()
sb.AppendLine("")
sb.AppendLine(String.Format("Total of {0} Found out of {1} ", GrandTotal1, GrandTotal2))
sb.AppendLine("Check is complete")
Else 
MsgBox("You must select at least one item to be decoded")
End If 
Cursor = Cursors.Default
Me.Close()
form.resultsbox.Text = sb.ToString
End Sub


View the full article

bold text of a stringbuilder?

EDN Admin

Well-known member