Regex 检验器

最新推荐文章于 2021-08-03 16:21:22 发布
最新推荐文章于 2021-08-03 16:21:22 发布
阅读量1.2k 收藏
点赞数
分类专栏： 技术共享 文章标签： regex windows components 正则表达式 string exception
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/JoMuncher/article/details/1815180
版权

最近学习一下正则，顺便把书里的例子抄袭一下。^ ^ ...

 

Imports  System.IO
 Imports  System.Text
 Imports  System.Text.RegularExpressions

 Public   Class Form1
    Inherits System.Windows.Forms.Form

Windows 窗体设计器生成的代码

    '保存正则表达式
    Private Sub cmdSaveRegex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSaveRegex.Click
        Me.SaveFileDialog1.ShowDialog()
    End Sub

    '保存文件
    Private Sub SaveFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
        Dim filePath As String = Me.SaveFileDialog1.FileName
        Dim streamWriterRegex As StreamWriter = File.CreateText(filePath)
        streamWriterRegex.Write(Me.txtRegex.Text)
        streamWriterRegex.Close()
    End Sub

    '打开正则表达式
    Private Sub cmdOpenRegex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOpenRegex.Click
        Me.OpenFileDialog1.ShowDialog()
    End Sub

    '打开文件
    Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Dim filePath As String = Me.OpenFileDialog1.FileName
        Dim streamReaderRegex As StreamReader = File.OpenText(filePath)
        Me.txtRegex.Text = streamReaderRegex.ReadToEnd
        streamReaderRegex.Close()
    End Sub

    'IsMatch 方法
    Private Sub cmdTestRegex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTestRegex.Click
        Try
            '获得验证选项
            Dim selectRegexOptions As RegexOptions = GetSelectedRegexOptions()

            Dim testRegex As New Regex(Me.txtRegex.Text, selectRegexOptions)
            If testRegex.IsMatch(Me.txtInputText.Text) Then
                Me.txtResults.ForeColor = Drawing.Color.Red
                Me.txtResults.Text = "Match Found"
            Else
                Me.txtResults.ForeColor = Drawing.Color.Black
                Me.txtResults.Text = "No Match Found"
            End If


        Catch ex As ArgumentException           '参数无效引发的异常
            Me.txtResults.ForeColor = Drawing.Color.Red
            Me.txtResults.Text = "There was an error in your regular expression when " _
                                    & ControlChars.CrLf & ex.Message

        End Try
    End Sub

    'Replace 方法
    Private Sub cmdReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdReplace.Click
        Try
            Dim selectRegexOptions As RegexOptions = GetSelectedRegexOptions()
            Dim replaceRegex As New Regex(Me.txtRegex.Text, selectRegexOptions)

            Me.txtResults.ForeColor = Drawing.Color.Black
            Me.txtResults.Text = replaceRegex.Replace(Me.txtInputText.Text, Me.txtReplacementText.Text)
        Catch ex As ArgumentException
            Me.txtResults.ForeColor = Drawing.Color.Red
            Me.txtResults.Text = "There was an error in your regular expression when " _
                                    & ControlChars.CrLf & ex.Message
        End Try
    End Sub

    'Split 方法
    Private Sub cmdSplit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSplit.Click
        Try
            Dim selectRegexOptions As RegexOptions = GetSelectedRegexOptions()
            Dim splitRegex As New Regex(Me.txtRegex.Text, selectRegexOptions)
            Dim splitResults() As String
            Me.txtResults.ForeColor = Drawing.Color.Black
            splitResults = splitRegex.Split(Me.txtInputText.Text)
            Dim strElement As String
            Dim strBuilder As New StringBuilder
            For Each strElement In splitResults
                strBuilder.Append(strElement & ControlChars.CrLf)
            Next
            Me.txtResults.Text = strBuilder.ToString()

        Catch ex As ArgumentException
            Me.txtResults.ForeColor = Drawing.Color.Red
            Me.txtResults.Text = "There was an error in your regular expression when " _
                        & ControlChars.CrLf & ex.Message
        End Try
    End Sub

    'Matches 方法
    Private Sub cmdMatches_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMatches.Click
        Try
            Dim selectRegexOptions As RegexOptions = GetSelectedRegexOptions()
            Dim matchesRegex As New Regex(Me.txtRegex.Text, selectRegexOptions)
            Dim matchesFound As MatchCollection
            Dim matchMade As Match
            Dim strBuilder As New StringBuilder
            matchesFound = matchesRegex.Matches(Me.txtInputText.Text)

            Dim nextMatch As String = "----- Next Match -----" & ControlChars.CrLf

            For Each matchMade In matchesFound
                strBuilder.Append(matchMade.Value & ControlChars.CrLf)
                strBuilder.Append(nextMatch)
            Next

            Me.txtResults.ForeColor = Drawing.Color.Black
            Me.txtResults.Text = strBuilder.ToString()

        Catch ex As Exception
            Me.txtResults.ForeColor = Drawing.Color.Red
            Me.txtResults.Text = "There was an error in your regular expression when " _
                        & ControlChars.CrLf & ex.Message
        End Try
    End Sub

    '按选择项进行验证操作的方法
    Private Function GetSelectedRegexOptions() As RegexOptions
        Dim selectRegexOptions As RegexOptions

        If Me.chkECMAScript.Checked Then
            selectRegexOptions = selectRegexOptions Or RegexOptions.ECMAScript
        End If

        If Me.chkExplicitCapture.Checked Then
            selectRegexOptions = selectRegexOptions Or RegexOptions.ExplicitCapture
        End If

        If Me.chkIgnoreCase.Checked Then
            selectRegexOptions = selectRegexOptions Or RegexOptions.IgnoreCase
        End If

        If Me.chkIgnorePatternWhiteSpace.Checked Then
            selectRegexOptions = selectRegexOptions Or RegexOptions.IgnorePatternWhitespace
        End If

        If Me.chkMultiLine.Checked Then
            selectRegexOptions = selectRegexOptions Or RegexOptions.Multiline
        End If

        If Me.chkRightToLeft.Checked Then
            selectRegexOptions = selectRegexOptions Or RegexOptions.RightToLeft
        End If

        If Me.chkSingleLine.Checked Then
            selectRegexOptions = selectRegexOptions Or RegexOptions.Singleline
        End If

        Return selectRegexOptions
    End Function

End Class

 

 

 

JoMuncher
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
正则表达式中需要转义的字符
u012554768的专栏
02-21 5340
$  匹配输入字符串的结尾位置。如果设置了 RegExp 对象的 Multiline 属性，则 $ 也匹配 ‘\n' 或 ‘\r'。要匹配 $ 字符本身，请使用 \$。   ( )  标记一个子表达式的开始和结束位置。子表达式可以获取供以后使用。要匹配这些字符，请使用 \( 和 \)。   *  匹配前面的子表达式零次或多次。要匹配 * 字符，请使用 \*。   +  匹配前面
regex-正则
DCHAO的博客
03-16 1336
文章目录src元字符1. 点2. 字符集/字符类{1} 否定字符集3. 重复次数{1} *{2} +{3} ？{4} {}4. (...) 特征标群5.| 或6. 转义7. 锚点,边界简写字符集须知：零宽度断言（前后预查）标志{1} 忽略大小写（Case Insensitive）{2} 全局搜索（Global search）{3} 多行修饰符（Multiline）贪婪匹配与惰性匹配（Greedy .......................................
C# 正则表达式 Regex类的使用
巴黎有个小铁匠
08-03 1901
1.检验数字的表达式 //数字 Regex reg = new Regex(@"^[0-9]*$"); //n位的数字 Regex reg = new Regex(@"^\d{n}$"); //至少n位的数字 Regex reg = new Regex(@"^\d{n,}$"); //m-n位的数字 Regex reg = new Re
正则表达式regex（入门使用）
热门推荐
喜欢前端的后端 MelodyJerry
06-02 2万+
文章目录前序优势What is 正则表达式？入门1 基本匹配2 元字符2.1 锚点2.1.1 ^ 号2.2.2 $ 号2.2 运算符.2.3 字符集(字符组)2.3.1 否定字符集2.4 重复次数2.4.1 * 号2.4.2 + 号2.4.3 ? 号2.5 { } 号2.6 | 或运算符2.7 (...) 特征标群2.8 \ 转义符号进阶1 简写字符集2 标志2.1 i 忽略大小写(Case Insensitive)2.2 g 全局搜索 (Global search)2.3 m 多行查找(Multili
正则表达式RegExr
有点想法的专栏
01-12 1065
文章目录概念举例内容定位符元字符普通字符限定符(出现次数)范围符选择符和分组编程JSJAVA匹配分组替换分割工具 概念 正则表达式是指一个用来描述或者匹配一系列符合某个句法规则的字符串的单个字符串。它描述了一种字符串匹配的模式（pattern），可以用来检查一个串是否含有某种子串、将匹配的子串替换或者从某个串中取出符合某个条件的子串等。 由一些普通字符和一些元字符（metacharacters）组...
java.util.regex
huxiutao的博客
03-27 1623
(记从前看的一篇文章) java.util.regex是一个用正则表达式所订制的模式来对字符串进行匹配工作的类库包。 1.简介 它包括两个类：Pattern和Matcher 。 Pattern： 一个Pattern是一个正则表达式经编译后的表现模式。 Matcher： 一个Matcher对象是一个状态机器，它依据Pattern对象做为匹配模式对字符串展开匹配检查。 首先一个Pattern实例订制了...
C#中使用Regex类来实现正则表达式
王王王渣渣的博客
12-25 2963
https://docs.microsoft.com/zh-cn/dotnet/api/system.text.regularexpressions.regex?view=net-5.0 https://www.runoob.com/csharp/csharp-regular-expressions.html
regex匹配
lucky
09-06 2081
一、前言 二、正则表达式的使用诉求 三、java.util.regex包 四、java.lang.String实例 五、最短路径实现诉求 六、Java支持的正则表达式功能语法 七、总结 八、参考   一、前言　　　　　　　　　　　　　　　　　　　　　　　　　　 　　   正则表达式作为文本处理的利器，早已成为各大语言的必要装备，但各语言对
C++ regex
alpaca.blog
11-14 1282
使用C++regex判断数字，实数，ip，电子邮件，单词，电话号，日期等格式
java regex matcher_Java正则表达式之Matcher介绍
weixin_34583171的博客
02-16 577
Matcher方法如下：Matcher方法如下： Matcher appendReplacement(StringBuffer sb, String replacement)将当前匹配子串替换为指定字符串，并且将替换后的子串以及其之前到上次匹配子串之后的字符串段添加到一个StringBuffer对象里。StringBuffer appendTail(StringBuffer sb)将最后一次匹配工...
正则表达式检测器 RegexTester中文版
12-06
RegexTester是一款专为测试和调试正则表达式而设计的软件，它提供了直观的界面和丰富的功能，使得用户在无需编程的情况下也能便捷地检验正则表达式的正确性和效率。 在RegexTester中文版中，主要包含以下几个关键...
正则表达式检测器（RegexTester）
10-10
`RegexTester`是一款方便的正则表达式检测器，它可以帮助我们调试和验证正则表达式的正确性，提高工作效率。 在JMeter中，正则表达式提取器的主要用途是： 1. **数据提取**：从服务器响应中提取关键信息，如...
boost regex 检测 数学公式
08-10
在本场景中，我们将深入探讨如何使用Boost.Regex来检测数学公式的正确性。 首先，让我们理解什么是数学公式。数学公式是用符号、字母和数字组合表示数学关系或运算的表达式。它们可以包含各种运算符，如加号(+)、...
RegexTester 正则表达式测试器
06-08
这款软件具有直观的界面，能够帮助开发者和数据处理人员快速检验正则表达式的匹配性，并查看替换操作后的结果。 正则表达式，全称Regular Expression，是计算机科学中用于匹配字符串的一组字符模式。它们被广泛应用...
tree-sitter-regex:用于正则表达式的Tree-Sitter解析器
05-07
通过这个解析器，开发者可以方便地实现对用户输入的正则表达式的验证、优化或者转换，同时也可以构建更智能的代码补全和错误检测功能。 在"tree-sitter-regex-master"压缩包中，可能包含了以下内容： 1. 解析器的源...
VS2005的DataGridView 多维合并标题 功能拓展
Jo Muncher's Blog
11-02 9165
        前几日，因为项目需要做一个可共用的控件类库。其中就需要DataGridView的合并表头功能。 在网上搜了一些资料，也下了一些自定义控件，观其效果离项目需要相去甚远。所以决定参考一下网上各位大大们的成果，自己做一个符合需要的DataGridView合并表头功能。       很多资料都是做2维的表头，其实基本上2维的合并标题就够用了，可惜我做的项目是MES相关的，需要多维的合并标题
.NET_安装项目属性表
Jo Muncher's Blog
09-03 2603
 ²        所谓 项目依赖项在生成解决方案时，可能需要首先生成某些项目，以便生成其他项目所使用的代码。当一个项目使用另一个项目生成的可执行代码时，生成代码的项目被称为使用该代码的项目的项目依赖项。此类依附性关系可以在“项目依赖项”对话框中定义²        所谓 AddRemoveProgramesIcon          指定要在目标计算机的“添加/删除程序”对话框中显示
文本读取指定行的类(vb.net)
Jo Muncher's Blog
06-28 2426
Imports System.Data.OleDbImports System.IOImports Microsoft.VisualBasicPublic Class mStreamReaderClass mStreamReader    Inherits StreamReader    Public Sub New()Sub New(ByVal path As String)        
数据备份 = super point for my bussiness
Jo Muncher's Blog
08-16 1391
1、完全备份（full backup）    每天对自己的系统进行完全备份。例如，星期一用一盘磁带对整个系统进行备份，星期二再用另一盘磁带对整个系统进行备份，依此类推。这种备份策略的好处是：当发生数据丢失的灾难时，只要用一盘磁带（即灾难发生前一天的备份磁带），就可以恢复丢失的数据。然而它亦有不足之处，首先，由于每天都对整个系统进行完全备份，造成备份的数据大量重复。这些重复的数据占用了大量的磁带
java阿拉伯语检验器
最新发布
07-18
Java 中并没有内置的阿拉伯语检验器（Arabic Validator），因为验证语言通常涉及到字符串操作、正则表达式或者字符集检查，这些都是编程任务的一部分，而不是特定语言的标准库特性。 然而，你可以使用 Java 的 `...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值