文檔文檔讀入Datatable表問題

[ou108]

Dim objReader As New System.IO.StreamReader(ImportName)
Dim sLine As String = ""
Dim arrText As New ArrayList()
Do
sLine = objReader.ReadLine
Loop Until sLine Is Nothing
objReader.Close()

以上代碼是每行每行讀
現在我想把每一行數據放入datatable中
請問怎么放，因為每一行有N多列，列數未知!
或是有其它辦法沒？

[dlzhangln]

”1,2,3,4,5,6,7
a,b,c,d,e,f,g
.......“
dim arrRow as String()
dim dt as new datatable("dtTest")
arrRow = objReader.ReadLine.split(",")
for i as integer =0 to ubound(arrRow)
dim col as new datacolumn("col" & i,gettype(system.string))
dt.columns.add(col)
next
循环读行
dt.rows.add(arrRow)
循环结束

[leixueqiyi]

dim arrRow as String()
dim dt as new datatable("dtTest")
arrRow = objReader.ReadLine.split(",")
for i as integer =0 to ubound(arrRow)
dim col as new datacolumn("col" & i,gettype(system.string))
dt.columns.add(col)
next
循环读行
dt.rows.add(arrRow)
循环结束

取最大的列数，组table

[ou108]

呵呵
謝謝樓上幫助
我試成功後就結貼

[ou108]

arrRow = objReader.ReadLine.split(",")
樓上給的方法好像有點問題
我的表只有6列，而arrRow等於12
且執行dta.Rows.Add(arrRow)此句出錯

[ou108]

__sno,__user,__time,jfxm,xmmc,jfje,
1,2,2003/5/7 上午 11:25:00,000001,申誡,10,
2,2,2003/5/7 上午 11:25:00,000002,警告,20,
3,2,2003/5/7 上午 11:25:00,000003,小過,50,
4,2,2003/5/7 上午 11:25:00,000004,大過,100,
5,2,2003/5/7 上午 11:25:00,000005,嘉獎,20,
6,2,2003/5/7 上午 11:25:00,000006,小功,50,
7,2,2003/5/7 上午 11:25:00,000007,大功,100,
8,61,2003/11/10 上午 11:49:00,000008,扣款,0,

[ou108]

也就是從文本文檔中導入數據的問題

[sz709]

顶

[sz709]

楼主可以试试使用OLeDB来读取，类似于从Excel读取数据到DataSet中