MultiTool/EDIDocumentImport/IEnumerableEx.vb
Jonathan Jenne d165817f8a WIP
2021-08-11 16:17:59 +02:00

13 lines
332 B
VB.net

Imports System.Runtime.CompilerServices
Module IEnumerableEx
<Extension()>
Function SetValue(Of T)(ByVal items As IEnumerable(Of T), ByVal updateMethod As Action(Of T)) As IEnumerable(Of T)
For Each item As T In items
updateMethod(item)
Next
Return items
End Function
End Module