string - 从字符串解析年份

  显示原文与译文双语对照的内容
0 0

我有 12个-13字符串

  • FVS1012 09 GO5
  • OCGG 85 0827 KU9

根据长度,我必须得到英镑bold部分,这意味着年份,在示例中,它是 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

还有其他更好的方法?

时间: 原作者:

0 0

你可能会这样做。。


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

注意,每个案例语句只保存一行,这样无论是否值得? 我不确定

原作者:
...