VB-2008如何檢索數組中最大數字後綴的字符串？

Question

我得到了以下的字符串數組

a.csv 
a-1.csv 
a-2.csv 
a-3.csv 
ab.csv 
ab-1.csv 
ab-2.csv 
cccc.csv 
cccc-1.csv 
d.csv 

在該字符串數組，它存儲了一系列的測試的數據，對於每個測試數據如下命名的轉換，

'unit name'+'-'+('suffix in single digit number')+'.csv'

長度的單位名稱可以是任意長度，但後綴只能是單位數字（1-9）。例如，對於單元a，它總共進行4次測試，其爲a.csv,a-1.csv,a-2.csv和a-3.csv。但是由於前三次測試都不符合規格，因此只有最後一次測試數據纔會被檢索用於分析，即a-3.csv。

所以，對於最終的輸出，我只需要那些有每個單元的最大後綴，這使我的輸出字符串數組數據：

a-3.csv 
ab-2.csv 
cccc-1.csv 
d.csv 

我應該如何從輸入選擇正確的文件字符串數組按照規則得到那些測試數據只得到最大的後綴。

Answer 1

Private Function Suffix(ByVal s As String) As String 
    s = IO.Path.GetFileNameWithoutExtension(s) 
    Dim pos = s.LastIndexOf("-"c) 
    Return If(pos = -1, s, s.Substring(0, pos)) 
End Function 

Private Function Value(ByVal s As String) As Integer 
    s = IO.Path.GetFileNameWithoutExtension(s) 
    Dim pos = s.LastIndexOf("-"c) 
    Return If(pos = -1, 0, Integer.Parse(s.Substring(pos + 1))) 
End Function 

Dim arr() As String = New String() {"a.csv", "a-1.csv", "a-2.csv", "a-3.csv", "ab.csv", "ab-1.csv", "ab-2.csv", "cccc.csv", "cccc-1.csv", "d.csv"} 

Dim largest = arr.GroupBy(Function(s) Suffix(s), StringComparer.OrdinalIgnoreCase) _ 
       .Select(Function(g) g.OrderByDescending(Function(s) Value(s)).First()) 

For Each s In largest 
    Console.WriteLine(s) 
Next 

Answer 2

雖然你的問題並不清楚，但我想你想要將最新的事件存儲在一個單獨的數組中。這裏是你如何能做到這一點：

Dim arrayInput As List(Of String) = New List(Of String) 
    arrayInput.Add("a.csv") 
    arrayInput.Add("a-1.csv") 
    arrayInput.Add("a-2.csv") 
    arrayInput.Add("a-3.csv") 
    arrayInput.Add("b.csv") 
    arrayInput.Add("b-1.csv") 
    arrayInput.Add("b-2.csv") 
    arrayInput.Add("c.csv") 
    arrayInput.Add("c-1.csv") 
    arrayInput.Add("d.csv") 

    Dim arrayOutput As List(Of String) = New List(Of String) 

    Dim strTemp As String = arrayInput(0) 
    Dim startingChar As String = strTemp.Substring(0, 1) 

    For Each item As String In arrayInput 
     If Not startingChar.Equals(item.Substring(0, 1), StringComparison.OrdinalIgnoreCase) Then 
      arrayOutput.Add(strTemp) 
      startingChar = item.Substring(0, 1) 
     End If 
     strTemp = item 
    Next 
    arrayOutput.Add(strTemp) 

你有arrayOutput所需的結果。讓我知道你是否想要別的東西。