主题：[求助]一个数据值提取的功能

那不这样改一下

Dim vals() As String = "ABC01-01".Split("-")
If vals.Length >=2 Then
    Dim n,n1 As Integer
    n = iif(Len(Vals(0))<3,Len(Vals(0)),3)
    n1 = iif(Len(Vals(1))<3,Len(Vals(1)),3)
    Return vals(0).SubString(0,n) & "-" & Vals(1).SubString(0,n1)
End If