- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]导入 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58662)
-- 发布时间：2014/10/21 19:58:00
-- [求助]导入
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:hisdetail1413891251614.rar |
老师，这样的格式有办法导入项目中吗？或导入ACCESS中。
-- 发布时间：2014/10/21 20:01:00
--
可以，你读取文本，然后对文本进行处理。
Dim str As String = FileSys.ReadAllText("d:\\hisdetail1413891251614.csv", Encoding.Default)
msgbox(str)
-- 发布时间：2014/10/21 20:39:00
--
此主题相关图片如下：图像 1.png
老师，没办法修改啊
-- 发布时间：2014/10/21 20:45:00
--
谁叫你修改，获取值啊。比如代码
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
-- 发布时间：2014/10/21 21:15:00
--
代码应该摆在什么事件里
-- 发布时间：2014/10/21 21:16:00
--
你关键是理解代码啊，你在命令窗口那里测试，看得到什么。
不理解，你就根本不会用。
-- 发布时间：2014/10/21 21:21:00
--
看到全是字符，不会用啊。
-- 发布时间：2014/10/21 21:21:00
--
意思是读取出来了内容，你只要给表赋值就行啊。
-- 发布时间：2014/10/22 9:06:00
--
意思是读取出来了内容，你只要给表赋值就行啊。
老师好，学生愚钝不会啊
-- 发布时间：2014/10/22 9:10:00
--
不会就学。代码已经给你了啊。
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