配列変数を別の配列にコピーするには？ (ID：111817)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

前回大変お世話になりました。ソンともうします。
日をおかない上に少し似た質問で恐縮なのですが、
配列変数aがあったとして、配列変数bにコピーしようとするとき、
決められた文字数よりも多かった場合は、
その文を分割して配列変数bにコピーしたいのですが、
（つまり、予想では配列変数bの上限の方が多くなります）
どうもうまくできません。
どなたか、解決方法をお知りの方がいらっしゃいましたら
ご教示お願いいたします。
以下はそのうまくいかないプログラムです。

Dim Count1, Count2, CMax As Integer
Dim intSuuji As Integer
Dim Amari1 As Double
Dim Amari2 As Integer
Dim Bun1, Bun2(100), a As String
Dim dblSuuji, dblSuuji2 As Double
Dim Lp As Integer

’bun1をbun2にコピーするプログラム

a = "あいうえお、かきくけこさし、すせそたち"
Bun1 = Split(a, "、")
CMax = UBound(Bun1)

Lp = 1
Count1 = 0

Do While Lp

If Len(Bun1(Count1)) <= 5 Then
    Bun2(Count1) = Bun1(Count1)
    
Else                                  '５文字以上だったら。

dblSuuji = Len(Bun1(Count1)) / 5  '５文字の所で割る
    dblSuuji2 = dblSuuji
    intSuuji = Int(dblSuuji2)         '整数に変える
    Amari1 = dblSuuji - intSuuji      '余りがあったら。
    If Amari1 > 0 Then
        Amari1 = Amari1 + 1           '余りを１にして足す。
        Amari2 = Int(Amari1) - 1
    End If
    
    For Count2 = 0 To Amari2          '５文字ごとに区切って格納
        Bun2(Count1 + Count2) = Mid(Bun1(Count1), 1 + (Count2 * 5), 5)       
    Next Count2
End If

Count1 = Count1 + 1

If Count1 = CMax Then
  Lp = 0
End If

DoEvents

Loop

長い書き込みで申し訳ありません。

←解決時は質問者本人がここをチェックしてください。

戻る