以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]特殊字符的验证  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81133)

--  作者:blsu33
--  发布时间:2016/2/19 9:59:00
--  [求助]特殊字符的验证
红袍老师,

想要验证不包含特殊字符 ,正则怎么写,下列提示应为表达式?

Dim s As String =".^ "
If RegularExpressions.Regex.IsMatch(s,"@"^\\w*$").Count > 0 Then
  MessageBox.show("有特殊符号")
End If

--  作者:大红袍
--  发布时间:2016/2/19 10:01:00
--  

 

[此贴子已经被作者于2016/2/19 10:01:15编辑过]

--  作者:大红袍
--  发布时间:2016/2/19 10:07:00
--  
Dim s As String ="我们"
If RegularExpressions.Regex.IsMatch(s,"[""@\\^*$]+") = False Then
  MessageBox.show("没有特殊符号")
End If

--  作者:blsu33
--  发布时间:2016/2/19 10:36:00
--  
Dim s As String ="*|"
Dim s1 As String ="我 们"
Dim s2 As String ="我们"
Dim s3 As String ="(我们)"
If RegularExpressions.Regex.IsMatch(s,"[""@\\^*$]+") =True Then
MessageBox.show("有特殊符号")
End If
If RegularExpressions.Regex.IsMatch(s1,"\\s+") =True Then
MessageBox.show("有空格")
End If
If RegularExpressions.Regex.IsMatch(s2,"/^([\\u4E00-\\u9FA5])*$/") =False Then
  MessageBox.show("不是文本")
End If
If RegularExpressions.Regex.IsMatch(s2,"/^[\\u4e00-\\u9fa5a-zA-Z\\/\\(\\)]+$/;") =False Then
    MessageBox.show("只能输入中英文字符和 // 和()")
End If

--  作者:blsu33
--  发布时间:2016/2/19 10:37:00
--  
老师,
  对S和s1的判断放在一起怎么写?


s2 s3 的判读正则怎么写,判读不出来?

--  作者:大红袍
--  发布时间:2016/2/19 10:42:00
--  

1、

 

Dim s1 As String ="我们"
If RegularExpressions.Regex.IsMatch(s1,"[""@\\^*$\\s]+") = True Then
    MessageBox.show("有空格")
End If

 

2、

 

Dim s2 As String ="(我/  们)"

If RegularExpressions.Regex.IsMatch(s2,"^[\\u4e00-\\u9fa5a-zA-Z\\/\\(\\)]+$") =False Then
    MessageBox.show("只能输入中英文字符和 // 和()")
End If


--  作者:blsu33
--  发布时间:2016/2/19 11:32:00
--  
红袍老师,
还得麻烦您,

存货编码正则怎么写,其中-只能在中间,不能再起始和末尾
EdAUT15001-001

Dim s2 As String =""

If RegularExpressions.Regex.IsMatch(s2,"^[\\u4e00-\\u9fa5a-zA-Z\\/\\-]+$") =False Then

    MessageBox.show("只能输入中英文字符和-")
End If


--  作者:blsu33
--  发布时间:2016/2/19 11:33:00
--  
另外,
我需要逐个把不符合的字符加进去,这块怎么加“个符号 试了一下 \\"不正确
If RegularExpressions.Regex.IsMatch(s1,"[""@\\^*$\\s]+") = True Then

--  作者:大红袍
--  发布时间:2016/2/19 11:41:00
--  

Dim s2 As String ="我们aEdAUT15001-/001"

If RegularExpressions.Regex.IsMatch(s2,"^[\\u4e00-\\u9fa5a-zA-Z0-9]+-*[\\u4e00-\\u9fa5a-zA-Z0-9]+$") = False Then

    MessageBox.show("只能输入中英文字符和-")
End If


--  作者:大红袍
--  发布时间:2016/2/19 11:43:00
--  
8楼没有问题,两个 "" 就是表示 "