主题：求助！有关按文本长度来导入数据。

因在条形码管理中，从条形码读出的数据每行连串的，关键是应如何取得每行中规定长度的字符串，如aaaa11bbb2ddddd,使得数据表行A列为aaaa,B列11,C列为bbb,D列为2,E列为ddddd,以此类推。。。，也就是按不同规定长度读取文本数据。请老大帮忙！

已经知道怎么做了.

Dim s As string = FileSys.ReadAllText("d:\data\Chkinu.txt")
Dim Multi As String = s
Dim Values() as String
Values = Multi.split(Chr(10))
dim s1 as string
Dim s2 As String
Dim s3,s4,s5 As String
For Index As Integer = 0 To Values.Length - 1
  s1 = Values(Index)
  s2 = s1.SubString(1,10)
  s3 = s1.SubString(11,20)
  s4 = s1.SubString(31,12)
  s5 = s1.SubString(44,1)

  Tables("表A").Rows(Index)("第一列") = s2
  Tables("表A").Rows(Index)("第二列") = s3
  Tables("表A").Rows(Index)("第三列") = s4
  Tables("表A").Rows(Index)("第四列") = s5

Next