主题：[求助]如何批量导入csv文件

参考例子

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=62227&skin=0

导入单个

 

Dim str As String = FileSys.ReadAllText("C:\Documents and Settings\Administrator\My Documents\下载\2016\2016\SH600004.csv", Encoding.Default)
Dim ary() As String = str.Split(chr(13))
DataTables("表A").ResumeRedraw
DataTables("表A").StopRedraw
For i As Integer = 0 To ary.Length - 1
    Dim s() As String = ary(i).Split(",")
    If s.Length >= 5 Then
        Dim nr As DataRow = DataTables("表A").AddNew
        nr("第一列") = s(0).trim()
        nr("第二列") = s(1).trim()
    End If
Next
DataTables("表A").ResumeRedraw

批量就这样做，但这么大的数据量，不建议直接导入foxtable，最好是通过sql语句，直接导入数据库。

 

DataTables("表A").ResumeRedraw
DataTables("表A").StopRedraw
For Each f As String In FileSys.GetFiles("C:\Documents and Settings\Administrator\My Documents\下载\2016\2016")
    Dim str As String = FileSys.ReadAllText(f, Encoding.Default)
    Dim ary() As String = str.Split(chr(13))
    For i As Integer = 0 To ary.Length - 1
        Dim s() As String = ary(i).Split(",")
        If s.Length >= 4 Then
            Dim nr As DataRow = DataTables("表A").AddNew
            nr("第一列") = s(0).trim()
            nr("第二列") = s(1).trim()
        End If
    Next
   
Next
DataTables("表A").ResumeRedraw

 回复6楼，直接读取CSV文件的文本，循环每一行，统计结果，只有这个办法

DataTables("表A").ResumeRedraw
DataTables("表A").StopRedraw
DataTables("表B").ResumeRedraw
DataTables("表B").StopRedraw
For Each f As String In FileSys.GetFiles("C:\Documents and Settings\Administrator\My Documents\下载\2016\2016")
    Dim str As String = FileSys.ReadAllText(f, Encoding.Default)
    Dim ary() As String = str.Split(chr(13))
    Dim min As Double = ary(0).split(",")(1)
    Dim max As Double = ary(0).split(",")(1)
    Dim sum As Double = 0
    For i As Integer = 0 To ary.Length - 1
        Dim s() As String = ary(i).Split(",")
        If s.Length >= 4 Then
            If val(s(1)) > max Then
                max = val(s(1))
            End If
            If val(s(1)) < min Then
                min = val(s(1))
            End If
            sum += val(s(1))
        End If
    Next
    Dim nr As DataRow
    f = FileSys.GetName(f)
    If f.StartsWith("SH") Then
        nr = DataTables("表A").AddNew
    Else If f.StartsWith("SZ") Then
        nr = DataTables("表B").AddNew
    End If

    nr("第一列") = ary(0).Split(",")(0).Trim()
    nr("第二列") = left(f, 8)
    nr("第三列") = max
    nr("第四列") = min
    nr("第五列") = sum
Next
DataTables("表A").ResumeRedraw
DataTables("表B").ResumeRedraw

 

你使用的是试用版还是开发版？还是盗版？

 

如果是开发版，就是激活码有问题；如果是盗版，会出现各种各样的问题的。

 

你用的不可能是试用版，你用的肯定是盗版的，不然不会出现变灰的情况。