DelCrLfSpace V0.9

开发界面

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

DelCrLfSpace V0.9的更多相关文章

Visual Studio Code v0.9.1 发布
微软的跨平台编辑器 Visual Studio Code v0.9.1 已经发布,官方博客上发布文章Visual Studio Code – October Update (0.9.1):http:/ ...
IP分片重组的分析和常见碎片攻击 v0.2
IP分片重组的分析和常见碎片攻击 v0.2http://www.nsfocus.net/index.php?act=magazine&do=view&mid=584 作者:yawl ( ...
Google Tensorflow 源码编译（三）：tensorflow<v0.5.0>
这几天终于把tensorflow安装上了,中间遇到过不少的问题,这里记录下来.供大家想源码安装的参考. 安装环境:POWER8处理器,Docker容器Ubuntu14.04镜像. Build Tens ...
Google Tensorflow 源码编译（二）：Bazel<v0.1.0>
这几天终于把tensorflow安装上了,中间遇到过不少的问题,这里记录下来.供大家想源码安装的参考. 安装环境:POWER8处理器,Docker容器Ubuntu14.04镜像. Build Baze ...
3.1 哈尔空间 V0
一张灰度图是由多个像素点而组成的,同样,这些像素点的是由一个从0(黑)到255(白)的非负数组成的.假设我们现在有一张小的灰度图像.在第一行的灰度值为110,100,120,140,130,100,1 ...
Hasor-Core v0.0.4 & Web v0.0.3 发布
“Hasor是一款开源的 Java 应用开发框架.它是围绕 Guice 为核心创建的一系列模块组合而成.使用Hasor 会加快软件软件开发效率并降低开发成本.目前 Hasor包含了 Hasor-Cor ...
C#Light V0.08A 执行字符串中的C#
C#Lite第一批规划的功能已经全部完成 V0.08A 加入了var 表达式支持完成了类型静态函数和静态成员的访问之前已完成了非静态的之所以还不进入beta是临时决定第一批就加入数组的功能. 项 ...
Python+excel实现的简单接口自动化 V0.1
好久没写博客了..最近忙着工作以及新工作的事.. 看了下以前写的简单接口自动化,拿出来总结下,也算记录下学习成果先来贴一下最后的结果,结果是写在原来的excel中执行完毕后,会将结果写入到“状态” ...
Nuget自己打包引用的时候出现错误：Package is not compatible with netcoreapp1.0 (.NETCoreApp,Version=v1.0). Package 1.0.1 supports: net (.NETFramework,Version=v0.0)
Nuget自己打包引用的时候出现错误:Package is not compatible with netcoreapp1.0 (.NETCoreApp,Version=v1.0). Package ...

随机推荐

Canvas 笔记目录
Canvas 基础笔记初次认识 Canvas Canvas 线性图形(一):路径 Canvas 线性图形(二):圆形 Canvas 线性图形(三):曲线 Canvas 线性图形(四):矩形 Canv ...
弹簧高跷题解---双向DP---DD(XYX)的博客
三 . 弹簧高跷时间限制: 1 Sec 内存限制: 128 MB 题目描述.输入.输出 ----------- 方法这道题用DP是可以解决的.因为每一次跳跃都与前一次跳跃有关, ...
Sum （欧拉定理）
题面提示:无限输入题解一看这题的数据 ............................... 这也太大了,必须边输入边取模才行, 但是式子很复杂,所以必须推出一些结论. 因为Xk是有顺序 ...
1.5_HTML基础标签实战演练
基本的 HTML 标签 HTML 标题 HTML 标题(Heading)是通过 <h1> - <h6> 等标签进行定义的. <h1>This is a headin ...
【读书笔记】C#高级编程第二十五章事务处理
(一)简介事务的主要特征是,任务要么全部完成,要么都不完成. (二)概述事务由事务管理器来管理和协调.每个影响事务结果的资源都由一个资源管理器来管理.事务管理器与资源管理器通信,以定义事务的结果. ...
内卷时代下的前端技术-使用JavaScript在浏览器中生成PDF文档
背景在计量领域中,计量检定是一种重要形式,主要用于评定计量器具的计量性能,确定其量值是否准确一致,实现手段包括计量检验.出具检定证书和加封盖印等. 在检定证书这一环节,存在一个难点,就是无法在线预览 ...
Go语言学习的坑爹历程
鄙人暑期实习,需要用Go语言进行编程在go语言中,结构体的定义只支持变量的声明,成员函数是采用"接口方法"来实现的留一个成员定义的模板在此 package main impor ...
Netty 学习（一）：服务端启动 & 客户端启动
Netty 学习(一):服务端启动 & 客户端启动作者: Grey 原文地址: 博客园:Netty 学习(一):服务端启动 & 客户端启动 CSDN:Netty 学习(一):服务端启 ...
[Python]-numpy模块-机器学习Python入门《Python机器学习手册》-01-向量、矩阵和数组
<Python机器学习手册--从数据预处理到深度学习> 这本书类似于工具书或者字典,对于python具体代码的调用和使用场景写的很清楚,感觉虽然是工具书,但是对照着做一遍应该可以对机器学习 ...
彻底掌握Makefile（二）
彻底掌握Makefile(二) 前言在前面的文章彻底掌握Makefile(一)当中,我们简要的介绍了一些常见的makefile使用方法,在本篇文章当中我们将继续介绍一些makefile当中的常见用法 ...

DelCrLfSpace V0.9

DelCrLfSpace V0.9的更多相关文章

随机推荐

热门专题