Foxtable(狐表)用户栏目专家坐堂 → 符号或者标点判断并删除


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

主题:符号或者标点判断并删除

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


加好友 发短信
等级:童狐 帖子:241 积分:2340 威望:0 精华:0 注册:2018/5/21 16:49:00
符号或者标点判断并删除  发帖心情 Post By:2020/1/20 20:36:00 [只看该作者]

 有一个工厂资料表,A列工厂名称,B列工厂编号,B列根据A列输入(或导入)的值用以下代码自动生成编号(代码写在Beforesavedatarow事件中)

Dim pya As String

Dim dr  As  DataRow = e.DataRow

Dim kh As String = dr("工厂名称")

 

pya = PY.GetPY(kh, True, 3)+"AAAAAA"

pya =  pya.Substring(0,6)

希望实现:

在工厂名称中有()*&……等符号或者标点或数字或空格时,在工厂编号中自动删除这些字符标点数字空格。

比如:工厂名称为() A * FA中国,工厂编号应该为AFAZGA

 

[此贴子已经被作者于2020/1/20 20:37:09编辑过]

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2020/1/20 20:57:00 [只看该作者]

这个要用正则表达式

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/20 21:01:00 [只看该作者]

Dim pattern As String = "[^a-zA-Z\u4e00-\u9fa5]"
Dim txt = "A * FA12中国"
Dim str = System.Text.RegularExpressions.Regex.Replace(txt , pattern ,"")
Output.Show(str)
Output.Show(PY.GetPY(str, True, 3))

 回到顶部