一个长度不固定的字符串（不停增长），问：如何用指定的长度，把这个字符串用","分割并存储倒数组？

Question

一个长度不固定的字符串（不停增长），问：如何用指定的长度，把这个字符串用","分割并存储倒数组？abcdefighdijke....
t=8
abcdefig,hdijkege,....如题

Answer 1

dim oldstring,newstring
const lLength= 8
for i=0 to len(oldstring) step llength
  newstring=newstring & mid(oldstring,i,llength) & ","
next

Answer 2

dim ToArray(0) as string
dim OldString as string
dim i as integer
i=8  '随便自定义
do while len(OldString)>=1 then
   dim Preserve ToArray(Ubound(ToArray())+1) as string
   if len(OldString)>i then
      ToArray(Ubound(ToArray())+1)=left(OldString,i)
      OldString=mid(OldString,i+1)
   else
      ToArray(Ubound(ToArray())+1)=OldString
      exit do
   end if   
Loop