Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- "1111 2222222 3333 77777 44444 55555 6666 99999"
- 1111 22222
- 22 3333 77
- 777 44444
- 55555 6666
- 99999
- Sub test()
- Dim TestStr
- Dim i As Long, n As Long
- Dim SplitStr As String
- TestStr = "1111 2222222 3333 77777 44444 55555 6666 99999"
- n = 10
- For i = 1 To Len(TestStr) Step n
- SplitStr = SplitStr & Mid(TestStr, i, n) & vbNewLine
- Next i
- MsgBox SplitStr
- End Sub
- Option Explicit
- Public Function SplitString(StringToSplit As String, n As Long) As String()
- Dim i As Long, arrCounter As Long
- Dim tmp() As String
- ReDim tmp(0 To CLng(Len(StringToSplit) / n))
- For i = 1 To Len(StringToSplit) Step n
- tmp(arrCounter) = Mid(StringToSplit, i, n)
- arrCounter = arrCounter + 1
- Next i
- SplitString = tmp
- End Function
- Public Sub test()
- Dim TestStr As String
- TestStr = "1111 2222222 3333 77777 44444 55555 6666 99999"
- MsgBox Join(SplitString(TestStr, 10), vbNewLine)
- End Sub
- Sub splitstring(mystring)
- n = Int(1 + Len(s) / 10)
- mystring1= mystring
- For i = 0 To n
- mystring1= Mid(mystring, 1 + i * 10, 10)
- Cells(i + 1, 1) = mystring1
- Next
- End Sub
- Sub call_me()
- 'splitstring ("1111 2222222 3333 77777 44444 55555 6666 99999")
- splitstring (Cells(1, 2))
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement