请协助如何字符截取，谢谢

[yyqqll]

请协助如何字符截取，谢谢

有个表有两个字段，A和B

A字段有3个记录

上海有个公司，报电路4MDL0025故障。
广东有个公司，报VPN00002电路故障。
北京有个公司，电路LDC00567网络故障。


希望A字段的记录的中文和符号去掉，把字母和数字截取出来放在B字段。

结果：
A B
上海有个公司，报电路4MDL0025故障。 4MDL0025
广东有个公司，报VPN00002电路故障。 VPN00002
北京有个公司，电路LDC00567网络故障。 LDC00567

[十豆三]

Update 表名 Set 字段b=Chrtran(字段a,Chrtran(Lower(字段a),[0123456789abcdefghijklmnopqrstuvwxyz],''),'')

[xuzuning]

re = Createobject("VBScript.RegExp")
re.Global = .T.
re.Ignorecase = .T.
re.Pattern = "\W"

Update 表 Set B=re.replace(A, '')

[yyqqll]

谢谢十三豆，两次替换，下次会用了， 第二个，没有看懂，能解释一下。

[taohua300]

lcstr = "上海有个公司，报电路4MDL0025故障。"

a1 = Strconv(lcstr,1)
a2 = Bitxor(Cast(lcstr as W),Cast(a1 as W))
lcstr = Substr(lcstr,1 + Len(a1) - Len(Ltrim(a2)))
*这是lcstr = "4MDL0025故障。"
a1 = Strconv(Strconv(lcstr,1),5)
a2 = Strconv(lcstr,5)
a3 = Bitxor(Cast(a1 as w),Cast(a2 as w))
lcstr = Substr(lcstr,1,Int(1 + (At(Chr(0) + Chr(0),a3) - 1) /2) - 1)
?lcstr

豆老师的虽然简单，但如果字符串比较长的时候，速度就回慢下来 二楼的正则表达式，速度自然是没的说 我又给了另一个，看起来不好懂，速度还可以