主题：[求助]导入

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:hisdetail1413891251614.rar

老师，这样的格式有办法导入项目中吗？或导入ACCESS中。

可以，你读取文本，然后对文本进行处理。

 

Dim str As String = FileSys.ReadAllText("d:\hisdetail1413891251614.csv", Encoding.Default)
msgbox(str)

此主题相关图片如下：图像 1.png

老师，没办法修改啊

 谁叫你修改，获取值啊。比如代码

 

Dim str As String = FileSys.ReadAllText("d:\hisdetail1413891251614.csv", Encoding.Default)
Dim ary() As String = str.Split(chr(13))
For i As Integer = 7 To ary.Length - 4
    Dim s() As String = ary(i).Split(",")
    For j As Integer = 0 To s.Length - 1
        output.show(s(j))
    Next
Next

代码应该摆在什么事件里

 你关键是理解代码啊，你在命令窗口那里测试，看得到什么。

 

 不理解，你就根本不会用。

看到全是字符，不会用啊。

意思是读取出来了内容，你只要给表赋值就行啊。

老师好，学生愚钝不会啊

 不会就学。代码已经给你了啊。

 

Dim str As String = FileSys.ReadAllText("d:\hisdetail1413891251614.csv", Encoding.Default)
Dim ary() As String = str.Split(chr(13))
For i As Integer = 7 To ary.Length - 4
    Dim s() As String = ary(i).Split(",")
    Dim nr As DataRow = DataTables("表A").AddNew
    nr("第一列") = s(0).replace("""", "").trim()
Next