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

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

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 请大师开示！

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

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

请借鉴参考“网络编辑超级工具箱”的“格式化”按钮效果。然后比照，我试过，保存后再试命令会增加一空行。

      是的经过复制网页上的文章测试，粘贴到记事本格式的文件，看到段落之间有一空行，可是用删除键无法删除空行，用空格字符替换也无法替换空行，说明原来网页上的文章段落之间空格，不是字符格式。从这个角度看代码没有错。

 

      但是，保存之后以后再按段落之间空行命令一次会增加一行空格，当然编辑者不会有事没事去按次命令按钮，在下仅仅想从学习借鉴的角度，进一步请求探讨。

 

      问题目的：1、通过代码检查文章首行开头是否有空格字符，若有则全部删除；2、通过代码检查文章段落之间是否有空格字符。若有则全部删除；3、然后实现首行空两个汉字字符，4、再然后实现段落之间空一行的字符，5、再再然后，以后再按此命令按钮，看到的文本，永远都是首行顶在第一行，段落之间只空一行。谢谢

    红袍大师您好：目前在窗口内文本框输入英文标点符号“;”可以实现自动转换成中文标点符号“；”   但是当我从粘贴版内粘贴文本时，无法自动转换成中文标点符号，请帮我看看如何通过一键命令查找所要替换的字符，然后替换成指定的字符，谢谢！！

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     If s <> chr(10) Then         str &= "    " & s.trim & vbcrlf '行首空格         str &= vbcrlf & ""     End If Next txt.text = str 上列代码以前设计的按钮代码怎么在新升级后20160311版的开发版变成删除按钮了？