- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 分割文本文件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=120456)
-- 发布时间：2018/6/16 9:33:00
-- 分割文本文件
请问老师，foxtable是否有自动分割文本文件的功能，比如将一个大文件，分割成若干小文件？请问如何写代码？谢谢
-- 发布时间：2018/6/16 10:00:00
--
先把打文件读进来，然后根据字数，分割并写入新文件
| ReadAllText | 读取文本文件的内容 |
| WriteAllText | 向文本文件中写入内容 |
-- 发布时间：2018/6/20 8:59:00
--
老师好，文档在附件。表A和表C是原始数据，表B是我用人工拷贝和黏贴的方式产生的目标数据，请问如何改代码自动生成表B的数据。表D是和表B完全相同的数据表。多谢啦。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目29.zip |
-- 发布时间：2018/6/20 9:00:00
--
我写的代码在窗体的button里。
-- 发布时间：2018/6/20 9:20:00
--
Dim Name0 As String
Dim drs3 As List(Of DataRow)
drs3=DataTables("表A").Select("lname is not null")
For Each dr As DataRow In drs3
Dim nr As Row = Tables("表D").AddNew
nr("LName")= dr("LName")
nr("point")= dr("SPoint")
nr = Tables("表D").AddNew
nr("LName")= dr("LName")
nr("point")= dr("EPoint")
Next
drs3=DataTables("表C").Select("lname is not null")
For Each dr As DataRow In drs3
Dim nr As Row = Tables("表D").AddNew
nr("LName")= dr("LName")
nr("point")= dr("SPoint")
nr("X")= dr("SPointX")
nr("Y")= dr("SPointY")
Next
-- 发布时间：2018/6/20 10:04:00
--
老师好，您的代码不能达到我的目的，请问是否还能改进一下？谢谢
-- 发布时间：2018/6/20 10:07:00
--
以下是引用cglsg5076在2018/6/20 10:04:00的发言：
老师好，您的代码不能达到我的目的，请问是否还能改进一下？谢谢
老师好，您的代码不能达到我的目的，请问是否还能改进一下？谢谢
请具体说明你的逻辑，哪里达不到具体说明？
-- 发布时间：2018/6/20 10:19:00
--
表B是我用人工拷贝和黏贴的方式产生的目标数据，我就希望生成表B那样的数据结果，麻烦您运行您的代码，和表B比较就看出来了，我无法用语言表达。谢啦。
-- 发布时间：2018/6/20 10:30:00
--
代码没问题啊，数据拷贝过去了啊。
细节自己调整。
-- 发布时间：2018/6/21 22:02:00
--
老师好，我有表A和表B是原始数据，表C是手动拷贝黏贴的目标数据。表C的PointNumber数据必须与表A的SPoint和EPoint一致。也就是说，表B的一些数据不拷贝，比如 1647 的26328和26291的坐标需要拷贝，而1647的26091和28385的坐标不拷贝。请问如何改代码自动生成表C的数据，表D和表C是一样的。多谢啦。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目30.zip |