Cách chia chuỗi bằng x số ký tự

Question

Tôi có một chương trình trong đó người dùng nhập danh sách các số dưới dạng chuỗi. Danh sách các số này luôn là bội số của 8.

Vì vậy, danh sách có thể chứa số 8, 16, 32, 40, 48, v.v.

Tôi cần chia chuỗi đó thành 8 ký tự.

Ví dụ, nói người dùng nhập "1234123445674567"

Làm thế nào tôi có thể chia nó thành một mảng chuỗi nơi (0) là "12.341.234" và (1) là "45.674.567"

Lưu ý: Kích thước của mảng phải là tương đương với chiều dài của chuỗi chia 8.

như thế này:

Dim stringArray(txtInput.Text.Length/8) as String 

Edi t: Tôi biết tôi có thể làm điều này bằng cách tạo ra một vòng lặp đếm 8 số và chia nó thành một mảng nhưng điều đó sẽ dài và mất một vài biến và tôi biết có một cách hiệu quả hơn để thực hiện nó. Tôi chỉ không biết cú pháp.

Answer 1

này nên chia chuỗi thành một mảng của chuỗi con 8 ký tự

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

Answer 2

Bạn có thể sử dụng một vòng lặp For và Substring:

Dim strings As New List(Of String) 

For i As Integer = 0 To Me.txtInput.Text.Length - 1 Step 8 
    strings.Add(Me.txtInput.Text.Substring(i, 8)) 
Next 

Để chuyển đổi danh sách strings để một mảng (nếu bạn thực sự cần một), bạn có thể sử dụng strings.ToArray().

---

Ngoài ra, bạn có thể sử dụng biểu thức thông thường và LINQ cho một fancy một liner:

Text.RegularExpressions.Regex.Matches(Me.txtInput.Text, ".{8}").Select(Function(x) x.Value) 

Answer 3

Function slice(ByVal s as String) As String() 
    Return (From c As String in s).ToArray() 
End Function 

Answer 4

Để mở rộng câu trả lời được chấp nhận, điều này sẽ chia chuỗi thành các phần ngay cả khi chuỗi không chia hết cho số chia

Public Function SplitInParts(s As String, partLength As Integer) As IEnumerable(Of String) 
     If String.IsNullOrEmpty(s) Then 
      Throw New ArgumentNullException("String cannot be null or empty.") 
     End If 
     If partLength <= 0 Then 
      Throw New ArgumentException("Split length has to be positive.") 
     End If 
     Return Enumerable.Range(0, Math.Ceiling(s.Length/partLength)).Select(Function(i) s.Substring(i * partLength, If(s.Length - (i * partLength) >= partLength, partLength, Math.Abs(s.Length - (i * partLength))))) 
    End Function