이 VB.net 코드를 최적화 할 수 있습니까? 더 나은 구현이 가능합니까? 날이 코드를 최적화 할 수 있도록하십시오

Question

..

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 

나는 vb.net에 새로운 오전이 언어의 힘을 모른다.

실적을 최적화 할 수 있는지 확인하십시오.

동일한 작업을 수행하는 적은 수의 코드 줄에서 이것을 최적화 할 수 있는지 확인하십시오.

더 읽기 쉽게 만들 수있는 언어의 새로운면을 소개 할 수 있습니다!

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