VB如何显示给文本框自动排版

[waaoo]

作用就是把一篇排版很乱的文章按格式重排版

有一个 text1 和一个 command1
text1中的内容是【每段可能相连，也可能每段之间有一个或多个空行】

张三
李四
王五

或

张三

李四
王五

点击command1后，text1变为

　　张三 【全角空格全角空格张三】
【空行】
　　李四

　　王五

即每段前面加两个全角空格，每段之间加一个空行。我使用了一种代码，但始终有两个问题：
1.每次文章最后总会加一个空行并且加了两个全角空格
2.假如某行中有全角空格组成，那么这全角空格也会被当成一行【就比如上面我点了command1后再接着点，空行就会越来越多】

其实效果就如这个自动排版的网页http://www.pc354.com/soft/paiban.html 中的效果，但网页使用有限制，想改为程序随时可用的。但这个网页中的排版也存在同样的问题：1.每个空行也会加两个全角空格，2.假如最后一行有空行的话，不会删除，也会加上全角空行出来。

谢谢！平常工作需要，常需要排版，通过网页折腾有点麻烦。

[Tiger_Zhao]

先把你有问题的代码贴出来。

[waaoo]

我的代码很混乱的 ‘text1为正常文本框 'text2为过渡用的文本框 On Error Resume Next Dim a() As String Dim i, j, n Dim k As Boolean, o() As Boolean a = Split(Text1.Text, vbCrLf) k = True Text2.Text = "" ReDim o(UBound(a)) For n = 0 To UBound(a) o(n) = True Next n For i = 0 To UBound(a) k = True If a(i) = "" Then k = False For j = 1 To Len(a(i)) b = b & " " Next j If a(i) = b Then k = False b = "" If k = False Then o(i) = False If i = UBound(a) Then If o(i) = True Then Text2.Text = Text2.Text & a(i) Else If o(i) = True Then Text2.Text = Text2.Text & a(i) & vbCrLf & vbCrLf End If Next i '仅去掉每一行前面的空格 Dim ary() As String Dim i2 As Long ary = Split(Me.Text2.Text, vbCrLf) Text2 = "" For i2 = LBound(ary) To UBound(ary) Text2 = Text2 & LTrim(ary(i2)) & vbCrLf Next '每行加两个汉字全角空格 Dim s As String s = Text2.Text If Check1.Value = 1 Then s = Replace("　　" & s, vbLf, vbLf & "　　") '字符串中，是两个空格 Else s = Replace(" " & s, vbLf, vbLf & " ") '字符串中，是两个空格 End If Text1.Text = s

[Tiger_Zhao]

Private Sub Command1_Click()
    On Error Resume Next
    Dim a()         As String
    Dim bHasContext As Boolean  '前面是否已经出现了非空行，决定插入空格'
    Dim strPrefix   As String   '行前空格'
    Dim i           As Long

    bHasContext = False
    strPrefix = IIf(Check1.Value, "　　", "  ")

    a = Split(Text1.Text, vbCrLf)
    For i = 0 To UBound(a)
        a(i) = LTrim$(a(i))     '先去空格'
    Next

    For i = 0 To UBound(a)
        If LenB(a(i)) <> 0 Then '去了空格就可以直接判断空行了'
            a(i) = IIf(bHasContext, vbCrLf & vbCrLf, "") & strPrefix & a(i)
            bHasContext = True
        End If
    Next

    Text1.Text = Join(a, "")    'Delimiter 无内容，无论拼多少个空行还是没内容'
End Sub

[waaoo]

引用 3 楼 Tiger_Zhao 的回复:

Visual Basic code

谢谢您的回复，不过 这代码最后的排版每段开头没有加两个全角空格，中文排版时，我想在每个文字段前面两个全角空格，而纯粹用来分割两个段之间添加的空行不要加空格。 aa bb 应该是变成 　　aa 【全角空格全角空格aa】 【空行】 　　bb 【全角空格全角空格bb】

[Tiger_Zhao]

哪来空行中的空格？
输入什么、输出什么，用代码格式中的“其他”贴出来。

[waaoo]

引用 5 楼 Tiger_Zhao 的回复:

哪来空行中的空格？
输入什么、输出什么，用代码格式中的“其他”贴出来。

比如有一个文章：用你的代码排出来后是这样
＼＼＼＼＼＼＼＼＼＼＼＼
马上就要开学了，我家却招了贼。偷走了笔记本一台，钱包里钱拿走，卡都留下了，还偷了书包。

估计小偷装笔记本电脑，问题是你偷书包就偷书包，还把暑假作业留下。
＼＼＼＼＼＼＼＼＼＼＼＼
但正常来说，中文每段前面应该要加两个空格的【全角空格】，所以排版应该是下面这样：
＼＼＼＼＼＼＼＼＼＼＼＼
　　马上就要开学了，我家却招了贼。偷走了笔记本一台，钱包里钱拿走，卡都留下了，还偷了书包。

　　估计小偷装笔记本电脑，问题是你偷书包就偷书包，还把暑假作业留下。
＼＼＼＼＼＼＼＼＼＼＼＼
实际上就是http://www.pc354.com/soft/paiban.html 这个网址排出来的效果，不过这个网址中排的效果存在一个问题，就是每个用来分割的空行上，也加了两个 全角空格，其实是没必要的。
＼＼＼＼＼＼＼＼＼＼＼＼
　　马上就要开学了，我家却招了贼。偷走了笔记本一台，钱包里钱拿走，卡都留下了，还偷了书包。
　　
　　估计小偷装笔记本电脑，问题是你偷书包就偷书包，还把暑假作业留下。
＼＼＼＼＼＼＼＼＼＼＼＼

[Tiger_Zhao]

输入

马上就要开学了，我家却招了贼。偷走了笔记本一台，钱包里钱拿走，卡都留下了，还偷了书包。

估计小偷装笔记本电脑，问题是你偷书包就偷书包，还把暑假作业留下。

Check1 选中时，输出

　　马上就要开学了，我家却招了贼。偷走了笔记本一台，钱包里钱拿走，卡都留下了，还偷了书包。

　　估计小偷装笔记本电脑，问题是你偷书包就偷书包，还把暑假作业留下。

有什么问题？

[Tiger_Zhao]

你重新建工程，窗体上只有 Text1、Check1、Command1，
代码只有我3楼的代码，再试试。

[waaoo]

引用 8 楼 Tiger_Zhao 的回复:

你重新建工程，窗体上只有 Text1、Check1、Command1， 代码只有我3楼的代码，再试试。

哦，不好意思，没注意到里面还用到了个check，加了，完全就是我要的效果，真的是非常感谢您的热情回复！

[Tiger_Zhao]

Check1 是你原先代码里就有的！

[waaoo]

引用 10 楼 Tiger_Zhao 的回复:

Check1 是你原先代码里就有的！

嘿嘿，那个check是我在发这贴时临时加的，搞个代码进去了，把这个给忘了，没想到您这么细心，把这个功能也加上了！