以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  符号或者标点判断并删除  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145460)
--  作者：keli0917
--  发布时间：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编辑过]
--  作者：程兴刚
--  发布时间：2020/1/20 20:57:00
--  
这个要用正则表达式
--  作者：有点蓝
--  发布时间：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))