怎么将数据分组

[xuhomered]

怎么将txt档内如下数据按照400个为一数组例如：a(0)=(0-400),a(1)=(401-800).总数不定。求帮忙，谢谢
WX11A61A3456
WX11A61X9494
WX21A51N5122
WX21A51W0173
WX21A8269272
WX31A11X3739
.
.
.

[神马被哪个妞占用了呢]

先获得总行数，再分割呗

[xuhomered]

总行数有了，关键是不会分割啊

[threenewbee]

循环。 Dim Lines() As String Lines = textFileContent.Split(VbCrLf) Dim parts(0 To Lines \ 400) As String For i = 0 To Ubound(parts) For j = 0 To 400 parts(i) = parts(i) & VbCrLf & Lines(i * 400 + j) Next Next

[worldy]

Dim Items() As String dim sItem as long dim sData as string dim i as long,j as long,k as long dim sOut() as string dim n as long sData="文本数据内容" sitems=split(sdata,vbcrlf) n=ubound(sitems) redim sOut(n\400) for i=0 to n step 400 for k=0 to 399 if i+k>n then exit for '最后部分可能没有400个 sitem=sitem & sItems(i+k) next sout(k)=sitem k=k+1 sitem="" next