DelCrLfSpace V0.9
阅读原文时间:2023年07月08日阅读:2

开发界面

Option Explicit
'SourceTextBox 是上面的源框
'ResultTextBox 是下面的处理预览框
'Form KeyPreview = True

Private Sub Form_Load()    '窗口载入时随机选择配色方案
    Dim i As Integer
    Dim tooltext1 As String
    frmMain.Caption = "DelCrLfSpace V0.9 Author: 2022-06-28"
   tooltext1 = "包含大量软回车的网络顽固文本,请处理一次后复制至Word文档里,又从Word文档中复制出来再进行处理一次即可"
        SourceTextBox.ToolTipText = tooltext1
        cmdCopyResult.ToolTipText = tooltext1
    Randomize
    i = Int((5 * Rnd) + 1)
    'MyValue = Int((6 * Rnd) + 1)   ' 生成 1 到 6 之间的随机整数值。
    Select Case i
        Case 1
            SourceTextBox.BackColor = vbRed
            ResultTextBox.BackColor = vbRed
            SourceTextBox.ForeColor = vbYellow
            ResultTextBox.ForeColor = vbYellow
        Case 2
            SourceTextBox.BackColor = vbBlack
            ResultTextBox.BackColor = vbBlack
            SourceTextBox.ForeColor = vbYellow
            ResultTextBox.ForeColor = vbYellow
        Case 3
            SourceTextBox.BackColor = vbBlue
            ResultTextBox.BackColor = vbBlue
            SourceTextBox.ForeColor = vbWhite
            ResultTextBox.ForeColor = vbWhite
        Case 4
            SourceTextBox.BackColor = vbGreen
            ResultTextBox.BackColor = vbGreen
            SourceTextBox.ForeColor = vbBlack
            ResultTextBox.ForeColor = vbBlack
        Case Else
            SourceTextBox.BackColor = vbYellow
            ResultTextBox.BackColor = vbYellow
            SourceTextBox.ForeColor = vbRed
            ResultTextBox.ForeColor = vbRed
        End Select

        SourceTextBox.Font.Name = "宋体"
        ResultTextBox.Font.Name = "宋体"
        SourceTextBox.Font.Size = 14
        ResultTextBox.Font.Size = 14
        SourceTextBox.FontBold = True
        ResultTextBox.FontBold = True

End Sub

Public Sub Mysleep()   '循环延时函数
    Dim i As Integer, s As Integer
        i = 1
        s = 0
        For i = 1 To 100 Step 1
            s = i + s
        Next i
        s = 0
End Sub       '2018-12-17添加说明

Private Sub cmdClearMd5TextBox_Click()
' 清空 两个md5文本框 内容
' 清空 结果标签 内容
    md5_up_TextBox.Text = ""
    md5_lower_TextBox.Text = ""
    labCompValue.Caption = ""
End Sub

Private Sub cmdCompareMD5_Click()
' 开始比较两个文本框内的值
    Dim i

    '如果 "区分大小写"为"否", 就用文本比较模式
    If optBuQuFeng.Value = True Then
        i = StrComp(md5_up_TextBox.Text, md5_lower_TextBox.Text, vbTextCompare)
    End If
    ' 如果 区分大小写,则用二进制比较模式
    If optQuFeng.Value = True Then
        i = StrComp(md5_up_TextBox.Text, md5_lower_TextBox.Text, vbBinaryCompare)
    End If

    If i = 0 Then
        labCompValue.Caption = "相同"
    Else
        labCompValue.Caption = "不同"
    End If
End Sub

Private Sub cmdCopyToSourceTextBox_Click()
      Dim s As String, s2 As String
   s = Clipboard.GetText(vbCFText)   ' 取得剪贴板正文
   SourceTextBox.Text = s
   If s = "" Then    '如果是空,就输出空
   ResultTextBox.Text = ""
   End If

   If s <> "" Then   '如果不是空,就调用删除空格的函数
    s2 = DelSpace(s)
    ResultTextBox.Text = s2
   End If
   '然后把处理好的内容放到剪贴板内
   Call Mysleep
   Clipboard.SetText ResultTextBox.Text   ' 将处理好的内容放置在剪贴板

End Sub

Private Sub cmdClear_Click()
    Clipboard.Clear   '似乎没用了
End Sub

Private Sub cmdAuto_Click()   '是处理命令按钮
    Dim s As String, s2 As String
   s = SourceTextBox.Text
   If s <> "" Then
    s2 = DelSpace(s)
    ResultTextBox.Text = s2
   End If
End Sub

Private Sub cmdCopyResult_Click()    '复制结果
    Clipboard.Clear   ' 清除剪贴板。
    Clipboard.SetText ResultTextBox.Text   ' 将正文放置在剪贴板上。
End Sub

Private Sub cmdClearUpTextBox_Click()
    SourceTextBox.Text = ""
End Sub

Private Sub cmdExit_Click()   '退出程序
    End
End Sub

Private Sub Form_Activate()     '窗口激活处理,窗口第一次打开
   Dim s As String, s2 As String
   s = Clipboard.GetText(vbCFText)   ' 取得剪贴板正文
   SourceTextBox.Text = s
   If s <> "" Then
    s2 = DelSpace(s)
    ResultTextBox.Text = s2
   End If

   If s = "" Then
   ResultTextBox.Text = ""
   End If

End Sub

Public Function DelSpace(ByRef sD As String) As String  '删除换行、空格 功能实现
    If sD <> "" Then
        sD = Replace(sD, vbCr, "")      '回车符
        sD = Replace(sD, vbLf, "")      '换行符
        sD = Replace(sD, vbCrLf, "")    '回车换行符
        sD = Replace(sD, vbNewLine, "")    '新行
        sD = Replace(sD, vbTab, "")    'Tab字
        sD = Replace(sD, " ", "")
        sD = Trim(sD)
    End If
    DelSpace = sD
End Function  '2020-02-07添加说明

'==================不重要功能============================'

Private Sub cmdNotepad_Click()   '打开系统记事本功能
    Dim notepad As Integer
    notepad = Shell("C:\WINDOWS\Notepad.exe", 1)
End Sub

Private Sub cmdPaint_Click()   '打开系统画图功能
    Dim MsPaint As Integer
    MsPaint = Shell("C:\WINDOWS\system32\mspaint.exe", 1)
End Sub

Private Sub cmdCalc_Click()   '打开计算器
    Dim calc As Integer
    calc = Shell("C:\WINDOWS\System32\CALC.EXE", 1)   ' 完成Calculator。
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     If KeyCode = 27 Then
    Call Unload(Me)
  End If
End Sub

Private Sub md5_lower_TextBox_Change()
' 当 "文本1" 和 "文本2" 两个文本框的内容变化时
' 标签实时显示文本框内字符串的长度
' 注意:并没有删除字符串里的空格
    lab_Len_upBox.Caption = "文本1长度:" & Len(md5_up_TextBox.Text)
    lab_Len_upLowerbox.Caption = "文本2长度:" & Len(md5_lower_TextBox.Text)
End Sub

Private Sub md5_up_TextBox_Change()
' 当 "文本1" 和 "文本2" 两个文本框的内容变化时
' 标签实时显示文本框内字符串的长度
' 注意:并没有删除字符串里的空格
    lab_Len_upBox.Caption = "文本1长度:" & Len(md5_up_TextBox.Text)
    lab_Len_upLowerbox.Caption = "文本2长度:" & Len(md5_lower_TextBox.Text)
End Sub

Private Sub ResultTextBox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
    End
    End If
End Sub