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

 有一个工厂资料表，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