使用Parallel.ForEach

Question

我想優化一個我創建的備份程序。該代碼是馬虎，因爲這是我的第一個程度如此巨大，但希望你可以看看過去。

這個程序運行良好，但它似乎需要更長的時間。所以我正在用Parallel.ForEach來幫助優化壓縮過程。

現在，我有計劃做荏苒任務通過以下方式

Dim Destin = JobNode.SelectNodes("Destination") 

For Each item As System.Xml.XmlNode In Destin 
    Dim time As DateTime = DateTime.Now 
    Dim format As String = "MMMddyyyy" 
    Dim zpath As String = item.InnerText 
    'replaces [date] in destination with actual Date 
    If time.DayOfWeek = 1 Then 
     time = time.AddDays(-1) 
     item.InnerText = Replace(item.InnerText, "[date]", time.ToString(format) & "_WE") 
     zpath = item.InnerText 
     zip.ParallelDeflateThreshold = -1 
     zip.Save(zpath) 
    Else 
     Dim time1 As DateTime = DateTime.Now.AddDays(-1) 
     item.InnerText = Replace(item.InnerText, "[date]", time1.ToString(format)) 
     zpath = item.InnerText 
     zip.ParallelDeflateThreshold = -1 
     zip.Save(zpath) 
    End If 
Next 

我都保存在一個XML文件進行讀取源和目標位置。而這個每個循環的工作原理就是我想要的。但是，我無法將這個每個循環轉換成一個Parallel.ForEach循環。

任何幫助將是很好的。再說一次，在編程方面，我仍然是綠色的，所以對我來說很愚蠢。

是的...我環顧了互聯網尋求幫助，但它要麼混淆我，不在我的上下文中工作，或者我無法讓它與我的代碼一起工作。

Answer 1

試試這個：

Dim Destin = JobNode.SelectNodes("Destination").OfType(Of XmlNode) 

    Dim format As String = "MMMddyyyy" 
    Parallel.ForEach(Destin, 
     Sub(item) 
     Dim time As DateTime = DateTime.Now.AddDays(-1) 
     Dim zpath As String = item.InnerText 
     'replaces [date] in destination with actual Date 
     Dim timeString = If(time.DayOfWeek = 1, time.ToString(format) & "_WE", time.ToString(format)) 
     item.InnerText = Replace(item.InnerText, "[date]", timeString) 
     zpath = item.InnerText 
     zip.ParallelDeflateThreshold = -1 
     zip.Save(zpath) 
     End Sub)