Foxtable(狐表)用户栏目专家坐堂 → [求助]特殊字符的验证


  共有2831人关注过本帖树形打印复制链接

主题:[求助]特殊字符的验证

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/19 10:01:00 [显示全部帖子]

 

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

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/19 10:07:00 [显示全部帖子]

Dim s As String ="我们"
If RegularExpressions.Regex.IsMatch(s,"[""@\^*$]+") = False Then
  MessageBox.show("没有特殊符号")
End If

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/19 11:43:00 [显示全部帖子]

8楼没有问题,两个 "" 就是表示 "

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/19 12:00:00 [显示全部帖子]

数字、日期、逻辑 等,本身就帮你限定了的。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/19 12:15:00 [显示全部帖子]

 不明白你什么意图,如果需要判断列类型,那你就判断。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/23 12:08:00 [显示全部帖子]

参考代码,自己改造

 

Dim s2 As String ="133"

Dim n As Integer = 5
If RegularExpressions.Regex.IsMatch(s2,"^[0-9]{5}$") = False Then
    MessageBox.show("只能输入5位数字")
End If


 回到顶部