• VB.NET 中使用正则表达式


    fderStr2 = System.Text.RegularExpressions.Regex.Replace(fderStr1, "^([^s]*)(", ""

    其实只要一句就可以了,表达式为替换( 括号之前的所有东西
    fderStr2 = System.Text.RegularExpressions.Regex.Replace(fderStr1, "^([^s]*)(", "")

    关于正则表达式的使用
    Dim xRegex As New System.Text.RegularExpressions.Regex(1)
    括号里的1 改成 0 也一样的,目前不知道是什么作用,但必须得填
    fderStr2 = xRegex.Replace(fderStr1, "^([^s]*)(", "")

    替换三个参数,
    Dim xRegex As New System.Text.RegularExpressions.Regex(1)
    fderStr2 = xRegex.Replace(fderStr1, "^([^s]*)(", "")
    会报警告,改成下面的,不会报
    fderStr2 = System.Text.RegularExpressions.Regex.Replace(fderStr1, "^([^s]*)(", "")

            If Label5.Text <> "Label5" And Label6.Text <> "" And Label5.Text <> "" Then
                Dim xRegex As New System.Text.RegularExpressions.Regex(1)
                Dim fder1Path, fder2Path, fder3Path, fderStr1, fderStr2, fderStr3, fderStr4 As String
                fder1Path = Trim(Label5.Text)
                fder2Path = Trim(Label6.Text)
                fder3Path = Trim(Label7.Text)
                Dim dir As New System.IO.DirectoryInfo(fder1Path)
                For Each d As System.IO.DirectoryInfo In dir.GetDirectories
                    ' Dim finfo As New System.IO.FileInfo(d.Name)
                    'If (finfo.Attributes And System.IO.FileAttributes.Hidden) <> System.IO.FileAttributes.Hidden Then
                    'End If
                    fderStr1 = d.Name
                    ' fderStr2 = System.Text.RegularExpressions.Regex("^([^s]*)(", "")
                    fderStr2 = xRegex.Replace(fderStr1, "^([^s]*)(", "")
                    MsgBox(fderStr2)
                Next
            Else
                MsgBox("请 选择 三个文件夹", MsgBoxStyle.Exclamation, "提示")
            End If
  • 相关阅读:
    SELECT INTO 和 INSERT INTO SELECT 两种表复制语句
    log4net写txt日志
    easyui上传文件
    让 SVN (TortoiseSVN)提交时忽略bin和obj目录
    C#进阶系列——WebApi 跨域问题解决方案:CORS
    js控制radio选中
    sql注入
    修改类不用重启Tomcat加载整个项目
    URIEncoding与useBodyEncodingForURI 在tomcat中文乱码处理上的区别
    ActiveMQ 使用场景
  • 原文地址:https://www.cnblogs.com/RedLn/p/14222922.html
Copyright © 2020-2023  润新知