how split list of numbers and add "," after each number

Question

i have lists of phone numbers each phone number must have 10 numbers, i want simple code to add "," after every phone number to i can send it in SMS application.

i have it in this way :

0123456789

i want the output look like this :

0123456789,0123456789,0123456789,0123456789,0123456789,0123456789

orig = "012345678901234567890123456789"
Dim res = Enumerable.Range(0,orig.Length\10).[Select](Function(i) orig.Substring(i*8,8))

score 4 · Accepted Answer · edited May 23 '17 at 12:06

So you have a single string which contains all numbers? Strange. However....

Dim orig = "012345678901234567890123456789"
Dim allNumbers As New List(Of String)
For i As Int32 = 0 To orig.Length - 1 Step 10
    Dim number As String
    If i + 10 >= orig.Length Then
        number = orig.Substring(i)
    Else
        number = orig.Substring(i, 10)
    End If
    allNumbers.Add(number)
Next

Now you can use String.Join:

Dim result = String.Join(",", allNumbers)  ' 0123456789,0123456789,0123456789

This is the most efficient approach and it is also readable. If you insist on a LINQ approach, here it is (method syntax ugly as always in VB.NET):

Dim numGroups = orig.
    Select(Function(chr, index) New With {.Char = chr, .Index = index}).
    GroupBy(Function(x) x.Index \ 10).
    Select(Function(g) String.Concat(g.Select(Function(x) x.Char)))
Dim result = String.Join(",", numGroups)

The trick is to group by x.Index \ 10 which is integer division in VB.NET, the decimal part is truncated, so it builds groups of ten.

thanks the first code work , but the second i have error in orig. , i think i need to import something , but i don't know what it is — Rabeea Qabaha, May 13 '15 at 09:25
@RabeeaQabaha: that's a LINQ query, you need to use at least VS 2008 and add `Imports System.Linq`. — Tim Schmelter, May 13 '15 at 09:28

score 1 · Answer 2 · answered May 13 '15 at 08:55

1

The String.join() function is probably the one you are looking for.

See the official documentation on MSDN website.

answered May 13 '15 at 08:55

Antwane

20,760
7
51
84

how split list of numbers and add "," after each number

2 Answers2