主题：[求助]如何通过按钮命令实现首行缩进

有一个“网络编辑超级工具箱”当点击“格式化”按钮后可以实现首行缩进两个汉字字符，请问如何通过按钮命令实现窗口控件TextBox框内的文字能够每段字开头空两格。

不好判断何为之每段.

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim ary() As String = txt.Text.Split(chr(13))
Dim str As String = ""
For Each s As String In ary
    str &= "    " & s.trim & vbcrlf
Next
txt.text = str

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim ary() As String = txt.Text.Split(chr(13))
Dim str As String = ""
For Each s As String In ary
    str &= "    " & s.trim & vbcrlf
    str &= vbcrlf & ""
Next
txt.text = str

 

      上列按钮命令代码可以实现首行缩进“空两个字符”同时可以实现每段与段加入一空行，再次按命令可以在原空行加一空行，请高手帮我加个判断：段与段之间无空行则加一行，有空行则不再加空行，提前预谢了！

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim ary() As String = txt.Text.Split(chr(13))
Dim str As String = ""
For Each s As String In ary
    If s <> chr(10) Then
        str &= "    " & s.trim & vbcrlf
        str &= vbcrlf & ""
    End If
Next
txt.text = str

下列代码不能实现去除段落之间的所有空行，然后在加入一行空行；调试过，假如粘贴的文本原来有一空行，按命令按钮会增加一行段落之间的空行，且让原来的空行变成增加一行，再次按按钮，不再加入行。

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox2") Dim ary() As String = txt.Text.Split(chr(13)) Dim str As String = "" For Each s As String In ary     If s <> chr(10) Then         str &= "    " & s.trim & vbcrlf         str &= vbcrlf & ""     End If Next txt.text = str 请大师开示！

 测试没有问题啊

我从网页上复制了一篇文章，上面有一空行；而且我设置了两个同样命令的按钮，按甲按钮插入一行，然后再按乙按钮，每段之间又插入一行，反复交替按，导致累计递增插入空行，当然这种现象实际运用中不会发生，学生我仅仅是从学习角度探讨而已，请参考“网络编辑超级工具箱”的格式化按钮效果。

 不知道你想表达什么，如果有问题，请上传具体的例子啊

我以前试过上传例子没有上传成功，现在表述我的意思，假如从网上复制一篇文章，判断其中如果不论有多少空行，则删除空行，然后添加一行空行，再次按该命令按钮，永远都是每段空一行，就像该话题的每段行首空两个字的效果一样。您上面的代码我试过，保存后再次按命令执行会递增一行。