a guest Jun 26th, 2019 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- Sub Main
- Dim record As String = New String("0", ((240 * 3) + 7))
- Dim ChunkLength As Integer = 240
- Dim chunks As List(Of String) = Enumerable.Range(0, Math.Ceiling(record.Length / ChunkLength)).Select(Function(i) record.Substring(i * ChunkLength, Math.Min(ChunkLength, record.Length - (i * ChunkLength)))).ToList
- End Sub
RAW Paste Data