en utilisant Parallel.ForEach

Question

J'essaie d'optimiser un programme de sauvegarde que j'ai créé. Le code est bâclé parce que c'est mon premier programme de cette ampleur, mais j'espère que vous pouvez regarder plus loin.

Ce programme fonctionne correctement, mais il semble prendre plus de temps que nécessaire. Donc, je suis en train de jouer avec le Parallel.ForEach pour aider à optimiser le processus de compression.

En ce moment, je dois le programme faire passer comme un éclair la tâche de la façon suivante

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 

je tous les emplacements de source et de destination enregistrées dans un fichier xml pour la lecture. Et cela pour chaque boucle fonctionne exactement comme je le veux. Cependant, j'ai du mal à convertir ceci Pour chaque boucle dans une boucle Parallel.ForEach.

Toute aide serait bien. Encore une fois, je suis toujours vert quand il s'agit de programmer, alors c'est idiot pour moi.

Et oui ... J'ai cherché de l'aide sur Internet mais cela me trouble, ne fonctionne pas dans mon contexte, ou je n'arrive pas à l'utiliser avec mon code.

Answer 1

Essayez ceci:

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)