0

私は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

他のより良いアプローチはありますか？

4

1 に答える 1

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

case ステートメントごとに 1 行しか保存しないので、実行する価値があるかどうかに注意してください。わからない

于 2012-12-17T02:37:49.623 に答える