Split an excel field into blocks of 200

Help Studio
, ,
2

We guess that we already had answered here:

it is maybe only a variation on the structure which has to be incorporated:

(From d In dtOrigin.AsEnumerable
Let ars = d("Deliveries").toString.Trim.Split(";"c)
Let sgc = CInt(Math.Ceiling(ars.Length / 200))
From sgm In Enumerable.Range(0,sgc).Select(Function (c) ars.Skip(c*200).Take(200) )
Let ra1 = d.ItemArray.Take(4).Append(String.Join(";",sgm))
Let ra2 = d.ItemArray.Skip(5)
Let ra = ra1.Concat(ra2).Cast(Of Object).ToArray
Select r = dtResult.Rows.Add(ra)).CopyToDataTable
1 Like