以文本方式查看主题

-  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=124448)
--  作者：swindy
--  发布时间：2018/9/6 13:52:00
--  代码
手动输入 A1， A2， A3
都会自动变成 A
请问代码怎样写？
--  作者：有点甜
--  发布时间：2018/9/6 14:37:00
--  

逻辑是什么？把输入的数字都替换掉？

 

Dim pattern As String = "[0-9]"
Dim txt As String = "A12345"
Dim str As String = System.Text.RegularExpressions.Regex.Replace(txt , pattern ,"")
msgbox(str)
--  作者：swindy
--  发布时间：2018/9/7 8:26:00
--  
用在型号上。 自用ABC0001 其他人 可能输入 BBC0001 或者是 CCC0001. 

当打进BBC0001或者是CCC0001. 电脑自动换回 ABC0001.
需要另外做表吗？
--  作者：有点甜
--  发布时间：2018/9/7 8:31:00
--  

1、肯定需要有一个逻辑，有对比，才能写代码的；你的逻辑是什么？

 

2、你应该做一个产品表或者型号表，输入后查找，如果找到，就允许输入，如果没找到，就提示输入错误。

 

http://www.foxtable.com/webhelp/scr/1451.htm