string - 从字符串中解析年份

Question

我有 12-13 个字符串，例如

• FVS1012 09 GO5
• OCGG 85 0827KU9

根据长度，我必须得到粗体部分，表示年份，在示例中为 2009 年和 1985 年。

如何获得“年”？

Dim str As String
Dim ResultStr As String
str = "FVS101209GO5"
Dim number As Integer = str.Length()
Select Case number
    Case 12
        ResultStr = str.Substring(8, 12)
        ResultStr = ResultStr.Substring(1, ResultStr.Length() )
    Case 13
        ResultStr = str.Substring(5, 13)
        ResultStr = ResultStr.Substring(1, ResultStr.Length() )
    Case Else
        Debug.WriteLine("other")
End Select

还有其他更好的方法吗？

Answer 1

你可能会这样做......

Select Case number
  Case 12
    ResultStr = mid(str, 8 ,2)
  Case 13
    ResultStr = mid(str, 5, 2)
  Case Else
    Debug.WriteLine("other")
End Select

请注意，每个案例语句只保存一行，所以是否值得做？我不知道