请问：如何将字符串按一个固定长度分割成多个字符串存入数组中？

Question

例如：string="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
分割长度为5
结果是：a(0)="aaaaa"
        a(1)="aaaaa"
        a(2)="aaaaa"
        ......

Answer 1

for o=1 to int(len(string)/5)
a(o)=mid(string,o,5)
next o
if (len(string) mod 5)>0 then 
   a(o+1)=mid(string,len(string)-(len(string) mod 5),len(string)-int(len(string)/5))
end if

Answer 2

string=trim(replace(string,"aaaaa","aaaaa "))
a=split(string)

Answer 3

Dim str As String
  Dim a() As String
  Dim i As Integer
  ReDim a(0)
  str = "aaaaaaaaaaaaaaaaaaaaaaaaaaaa"
  For i = 0 To Len(str) - 1 Step 5
     a(i \ 5) = Mid(str, i + 1, 5)
     ReDim Preserve a(UBound(a) + 1)
  Next

Answer 4

dim shuzu() as string
shuzu = split(select * from c)shuzu(0)=select
shuzu(1)=*
shuzu(2)=from
shuzu(3)=c

Answer 5

k为长度
i=0
do
  i=i+1
  p(i)=left(s$,k)
  if len(s)<=k then 
     p(i)=s
     exit do
  end if 
  s=mid(s,k+1)
loop