vb 拆分数字和字母

来源：百度知道 编辑：UC知道 时间：2024/06/03 15:53:55
以前的数据库中的包装规格是字符型的，如：30LT ,25LT,200K....有几万行资料，我现在想拆分数字和字母为两个字段:"规格 单位" 如30LT的规格为30,单位为LT,有没有现成函数可用，或自己编一个函数？

比较容易，给出代码，你可参考。
Sub F(S As String, Num As Integer, R As String)
Num = Val(S)
R = Right(S, Len(S) - Len(Str(Num)) + 1)
End Sub
Private Sub command1_click()
Dim a As String, Num As Integer, R As String
a = "3230rrLuT": Num = 0: R = ""
F a, Num, R
Print "规格："; Num; "单位："; R
End Sub