以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：索引超出了数组界限  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99050)
--  作者：huangxueyao
--  发布时间：2017/4/11 20:17:00
--  求助：索引超出了数组界限
\'2以txt方法读取外部数据源--有赞订单
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "CSV文件|*.csv" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    
    Dim str As String = FileSys.ReadAllText(dlg.FileName,Encoding.Default)
    Dim ary() As String = str.Split(new Char() {chr(10), Chr(13)})
    
    For i As Integer = 9 To ary.Length -1
        Dim s() As String = ary(i).Split(",")
        Dim nr As Row = Tables("原始订单数据表").AddNew
        nr("订单ID") = s(0).replace("""", "").trim()
        nr("订单状态") = s(3).replace("""", "").trim()
        nr("买家会员名") = s(4).replace("""", "").trim()
        nr("买家性别") = s(5).replace("""", "").trim()
        nr("买家省份") = s(6).replace("""", "").trim()
        nr("买家城市") = s(7).replace("""", "").trim()
        nr("是否粉丝") = s(8).replace("""", "").trim()
        nr("买家应付订单货款") = s(9).replace("""", "").trim()
        nr("买家应付邮费") = s(10).replace("""", "").trim()
        nr("订单总金额") = s(11).replace("""", "").trim()
        nr("买家实际支付订单金额") = s(12).replace("""", "").trim()
        nr("SKU") = s(14).replace("""", "").trim()
        nr("商家编码_sku") = s(15).replace("""", "").trim()
        nr("商家编码_商品") = s(16).replace("""", "").trim()
        nr("维权信息") = s(17).replace("""", "").trim()
        nr("收货人姓名") = s(18).replace("""", "").trim()
        nr("收货人省份") = s(19).replace("""", "").trim()
        nr("收货人城市") = s(20).replace("""", "").trim()
        nr("收货人地区") = s(21).replace("""", "").trim()
        nr("收货地址") = s(22).replace("""", "").trim()
        nr("邮政编码") = s(23).replace("""", "").trim()
        nr("运送方式") = s(24).replace("""", "").trim()
        nr("自提网点") = s(25).replace("""", "").trim()
        nr("预约人") = s(26).replace("""", "").trim()
        nr("预约电话") = s(27).replace("""", "").trim()
        nr("预约时间") = s(28).replace("""", "").trim()
        nr("联系手机") = s(29).replace("""", "").trim()
        nr("订单创建时间") = s(30).replace("""", "").trim()
        nr("订单付款时间") = s(31).replace("""", "").trim()
        nr("宝贝标题") = s(34).replace("""", "").trim()
        nr("商品价格") = s(35).replace("""", "").trim()
        nr("订单备注") = s(36).replace("""", "").trim()
        nr("宝贝总数量") = s(37).replace("""", "").trim()
        nr("店铺ID") = s(38).replace("""", "").trim()
        nr("店铺名称") = s(39).replace("""", "").trim()
        nr("商品留言") = s(40).replace("""", "").trim()
        nr("订单留言") = s(41).replace("""", "").trim()
        nr("备注") = s(45).replace("""", "").trim()
        nr("团编号") = s(48).replace("""", "").trim()
        nr("门店ID") = s(49).replace("""", "").trim()
        nr("门店名称") = s(50).replace("""", "").trim()
        nr("买家实际支付商品金额") = s(51).replace("""", "").trim()
        nr("同城送达时间") = s(52).replace("""", "").trim()
        nr("交易完成时间") = s(53).replace("""", "").trim()
        nr("周期购信息") = s(54).replace("""", "").trim()
    Next
    
    MessageBox.show("读取成功,共读取" & DataTables("原始订单数据表").datarows.count & "条记录!")
End If
--  作者：有点蓝
--  发布时间：2017/4/11 20:31:00
--  
......
if ary.Lengt >=9 then
     For i As Integer = 9 To ary.Length -1
    Dim s() As String = ary(i).Split(",")
    if s.Lengt = 55 then
        Dim nr As Row = Tables("原始订单数据表").AddNew
        nr("订单ID") = s(0).replace("""", "").trim()
.....

要保证s数组的长度有55个，只要有一行的数据没有就会出错的
--  作者：huangxueyao
--  发布时间：2017/4/11 21:06:00
--  
谢谢