文字列を指定桁数で分割して配列に入れたい。

質問

文字列を指定桁数で分割して配列に入れたい。

Splitは指定した文字毎に分割して配列に入れてくれますが、
これを指定した桁数で区切って配列に入れたいのですが、
どうすればいいでしょうか？

環境はVisual Studio 2005でVBを使っています。

回答No.2

hige_082

excelvbaで作成したので
動作は保証できませんが・・・

一度、文字列を分割し改行コードで区切った
文字列を作成し、それをsplitで配列にしました
考え方はこんな感じで良いかな、と思います

Sub test()
Dim iLen As Integer '処理する文字列の文字数
Dim sStr As String '処理する文字列
Dim iStr As Integer '分割する文字数
Dim sString As Variant '結果(配列)
Dim i As Integer 'カウンタ

'////　設定　///////////////////////////////
'文字列の設定
sStr = "aaaaaあああああ11111いいいいいＢＢＢＢＢ２２２２２ううう"
'分割する文字数
iStr = 5
'//////////////////////////////////////////

'変数の設定及び初期化
iLen = Len(sStr)
sString = ""

'文字列の分割
For i = iStr To iLen + iStr Step iStr
If i = iStr Then
sString = Mid(sStr, i - iStr + 1, iStr)
Else
sString = sString & vbCrLf & Mid(sStr, i - iStr + 1, iStr)
End If
Next

'配列化
sString = Split(sString, vbCrLf)

'結果表示
MsgBox Join(sString, vbCrLf)
End Sub

参考まで

回答No.1

fujiponxx

mid関数でちょんぎって、配列にいれればいいんじゃないですか？