主题：[求助]索引超出数组界限

 应该是格式不对你加一个判断。你把你的wz.txt传上来看看。

 看了一下，你的格式明显不是能这样获取的。你看看具体的使用说明，看怎样生成的txt是哪种格式的。

 你执行一下下面的代码，自己看怎么去调整字符吧。

Dim Info As String
Info = FileSys.ReadAllText("d:\test.txt", Encoding.unicode) '读取生成的文本文件
info = info.Replace("     ", chr(11)) '将回车换行替换为换行
Dim pars() As String = Info.Split(chr(11)) '将读取的信息拆分为数组
For Each par As String In pars
    output.show(par)
Next

用下面的代码截取到信息，然后自己看着办吧。

Dim Info As String
Info = FileSys.ReadAllText("d:\test.txt", Encoding.unicode) '读取生成的文本文件
Dim reg As new System.Text.RegularExpressions.Regex(".+? +")
Dim mc As object = reg.Matches(info)
For i As Integer = 0 To mc.count - 1
    output.show(mc(i).value)
Next