Question

VB RichTextBox1 逐行增加句首符号

RichTextBox1中有很多行 ，怎么在每行句首添加符号#呢 （空白行不需要添加）

Answer 1

Private Sub Command1_Click()
Dim a() As String
a = Split(RichTextBox1.Text, vbCrLf)
For i = 0 To UBound(a)
  If Len(a(i)) > 0 Then a(i) = "#" & a(i)
Next
RichTextBox1.Text = Join(a, vbCrLf)
End Sub