主题：字符串提取

提供个思路探讨。

dim s as string

select case s.length

    case 14 ‘获取字符串长度，如果是14位，

         s.SubString(s.Length -2)  ’获取字符串右侧12位

    case 15  ‘如果是15位 

         s.SubString(s.Length -3)   ’获取字符串右侧12位

end select

没有运行，仅供参考