このVB.netコードを最適化することは可能ですか？より良い実装ができますか？

Question

私はvb.netに新しいですし、この言語の力を知らない

Public Sub createNextMonthSheets(ByRef io As InputOutput) 
    Dim WB As Excel.Workbook = getWorkBook(io.newClientReportHandle) 
    For Each name In clientSheetNames.FindAll(AddressOf findCurrMonthSheetNames) 
     For Each sheet In WB.Sheets 
      If (sheet.Name = name) Then 
       sheet.Name = name.Replace(currMonth, nextMonth) 
       sheet.Copy(After:=WB.Sheets(1)) 
      End If 
     Next sheet 
    Next name 
    WB.Close() 
End Sub 

Private Function findCurrMonthSheetNames(ByVal sheetName As String) As Boolean 
    If sheetName.Contains(" (" + currMonth + ")") Then 
     Return True 
    Else 
     Return False 
    End If 
End Function 

..私はこのコードを最適化してください。

パフォーマンスを最適化できるかどうかを確認してください。

同じことを行うコードの行数を減らして最適化できるかどうかを確認してください。

これをより読みやすくするために、言語の新しい側面を紹介することができます。

findcurrmonthsheetnames関数を何らかの方法でオーバーロードして、WB.sheetsを取得できますか？

Answer 1

ネストループの質問に答えるには、必要なすべての名前を最初に別の配列に抽出してから、既存の名前ごとに配列をスキャンすることができます。

Public Sub createNextMonthSheets(ByRef io As InputOutput) 
    Dim WB As Excel.Workbook = getWorkBook(io.newClientReportHandle) 
    Dim CurrMonthSheetNames As String() = clientSheetNames.FindAll(AddressOf findCurrMonthSheetNames) 
    For Each sheet In WB.Sheets 
     Dim name As String = sheet.Name 
     If Array.Contains(CurrMonthSheetNames, name) Then 
      sheet.Name = name.Replace(currMonth, nextMonth) 
      sheet.Copy(After:=WB.Sheets(1)) 
     End If 
    Next sheet 
    WB.Close() 
End Sub