以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助！有关按文本长度来导入数据。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2804)
--  作者：baoxyang
--  发布时间：2009/5/16 9:23:00
--  求助！有关按文本长度来导入数据。
因在条形码管理中，从条形码读出的数据每行连串的，关键是应如何取得每行中规定长度的字符串，如aaaa11bbb2ddddd,使得数据表行A列为aaaa,B列11,C列为bbb,D列为2,E列为ddddd,以此类推。。。，也就是按不同规定长度读取文本数据。请老大帮忙！
--  作者：yangming
--  发布时间：2009/5/16 12:59:00
--  
可以先导入全部数据,然后在另一固定表中分段获取所需的数据
--  作者：baoxyang
--  发布时间：2009/5/17 0:44:00
--  

已经知道怎么做了.
--  作者：yangming
--  发布时间：2009/5/17 9:09:00
--  
能否将你做好的例子上传,让大家学学?
--  作者：baoxyang
--  发布时间：2009/5/17 9:41:00
--  

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