vb怎么提取字符串中的字母vb怎么提取字符串中的字母

[程wasd]

vb怎么提取字符串中的字母，比如120v或13220u，我要提取v跟u，vb中有这种功能的函数没？

[无·法]

Private Sub TestReg() Dim strData As String Dim reg As Object Dim matchs As Object, match As Object strData = "120v" & vbCrLf & _ "13220u" Set reg = CreateObject("vbscript.regExp") reg.Global = True reg.IgnoreCase = True reg.MultiLine = True reg.Pattern = "[a-zA-Z]+" Set matchs = reg.Execute(strData) For Each match In matchs Debug.Print match.Value Next End Sub

[程wasd]

引用 1 楼 sysdzw 的回复:

Private Sub TestReg() Dim strData As String Dim reg As Object Dim matchs As Object, match As Object strData = "120v" & vbCrLf & _ "13220u" Set reg = CreateObject("vbscript.regExp") reg.Global = True reg.IgnoreCase = True reg.MultiLine = True reg.Pattern = "[a-zA-Z]+" Set matchs = reg.Execute(strData) For Each match In matchs Debug.Print match.Value Next End Sub

这也它复杂了吧！！我用replace可以但是觉得有点复杂，我是先用Val提出数字，再把字符串中数字替换成空字符串，有没有比这个简单点的思路？

[无·法]

其实很简单的啊。。 你用纯vb也可以 like语句 自己百度

[程wasd]

引用 3 楼 sysdzw 的回复:

其实很简单的啊。。 你用纯vb也可以 like语句 自己百度

like好像不行吧，只能返回true false。。。

[of123]

你的字母长度和位置确定吗？如果都像你的例子，用 Right 函数取就可以了。

[程wasd]

引用 5 楼 of123 的回复:

你的字母长度和位置确定吗？如果都像你的例子，用 Right 函数取就可以了。

不确定。。。但是数字在左边，字母在右边，我用replace可以但是觉得有点复杂