格式处理模块.bas

可以调整文章的格式去掉多余空格使文章便于查看

Attribute VB_Name = "格式处理模块"
Public Function tihuan(str1)
    '数字转中文
    If str1 = 0 Then
        tihuan = "○"
    ElseIf str1 = 1 Then
        tihuan = "一"
    ElseIf str1 = 2 Then
        tihuan = "二"
    ElseIf str1 = 3 Then
        tihuan = "三"
    ElseIf str1 = 4 Then
        tihuan = "四"
    ElseIf str1 = 5 Then
        tihuan = "五"
    ElseIf str1 = 6 Then
        tihuan = "六"
    ElseIf str1 = 7 Then
        tihuan = "七"
    ElseIf str1 = 8 Then
        tihuan = "八"
    ElseIf str1 = 9 Then
        tihuan = "九"
    ElseIf str1 = "１" Then
        tihuan = "一"
    ElseIf str1 = "２" Then
        tihuan = "二"
    ElseIf str1 = "３" Then
        tihuan = "三"
    ElseIf str1 = "４" Then
        tihuan = "四"
    ElseIf str1 = "５" Then
        tihuan = "五"
    ElseIf str1 = "６" Then
        tihuan = "六"
    ElseIf str1 = "７" Then
        tihuan = "七"
    ElseIf str1 = "８" Then
        tihuan = "八"
    ElseIf str1 = "９" Then
        tihuan = "九"
    ElseIf str1 = "０" Then
        tihuan = "○"
    End If
End Function

Public Function zhong_ying(str1)
    '中文转数字
    If str1 = "１" Then
        zhong_ying = "1"
    ElseIf str1 = "２" Then
        zhong_ying = "2"
    ElseIf str1 = "３" Then
        zhong_ying = "3"
    ElseIf str1 = "４" Then
        zhong_ying = "4"
    ElseIf str1 = "５" Then
        zhong_ying = "5"
    ElseIf str1 = "６" Then
        zhong_ying = "6"
    ElseIf str1 = "７" Then
        zhong_ying = "7"
    ElseIf str1 = "８" Then
        zhong_ying = "8"
    ElseIf str1 = "９" Then
        zhong_ying = "9"
    ElseIf str1 = "０" Then
        zhong_ying = "0"
    End If
End Function

Public Sub geshichuli()
    On Error Resume Next
    Dim kk As Integer
    If Trim(Form1.RichT1.Text) <> "" Then
       Form1.RichT1.SaveFile "text12.txt", rtfText
       Open "text12.txt" For Input As #1
       Open "text13.txt" For Output As #2
           kk = 0
           Do While Not EOF(1)
             Line Input #1, str2
             If kk = -1 Then
             azhong = Len(str2)
             For i = 1 To azhong
                aazhong = Mid(str2, i, 1)
                If Asc(aazhong) >= 48 And Asc(aazhong) <= 57 Then
                   n1aa = Asc(aazhong)
                   ssss = Chr(n1aa - 23680)
                   str2 = Left(str2, i - 1) & ssss & Right(str2, azhong - i)
                End If
             Next i
             End If
             kk = kk + 1
cui:
            n1 = Len(str2)
            For i = 1 To n1
            str4 = Mid(str2, i, 1)
              If str4 = "　" Or str4 = "