Clean up birthday announce messages

This commit is contained in:
Noikoio 2019-01-30 21:19:16 -08:00
parent 2bd9916ec0
commit 15e7d766a2

View file

@ -220,7 +220,9 @@ Class BackgroundWorker
' Build name list ' Build name list
Dim namedisplay As New StringBuilder() Dim namedisplay As New StringBuilder()
Dim first = True Dim first = True
For Each item In names Dim sortedNames = names.ToArray()
Array.Sort(sortedNames)
For Each item In sortedNames
If Not first Then If Not first Then
namedisplay.Append(", ") namedisplay.Append(", ")
End If End If
@ -233,7 +235,7 @@ Class BackgroundWorker
End If End If
namedisplay.Append("**" + name + "**") namedisplay.Append("**" + name + "**")
Next Next
result = $"Please wish our esteemed members a happy birthday!{vbLf}In no particular order: {namedisplay.ToString()}" result = $"Please wish our esteemed members a happy birthday: {namedisplay.ToString()}."
End If End If
Try Try