易表在线答疑 → 技术与交流 → 用户社区 → 求助文本行排除问题


  共有8000人关注过本帖树形打印复制链接

主题：求助文本行排除问题
帅哥哟，离线，有人找我吗？
wjq1072
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00 		  发帖心情 Post By：2010/5/26 21:01:00 [显示全部帖子]

全部导入后再删除。
ClearGrid(GridName) And ImportTextFile(docdir+"aaa.txt", Char(9), Char(13),0) And DelRow(GridName,1) And AddCol(GridName,"k",3, False ) And EvalFor(GridName,"k","Row > 3") And DelFor(GridName,"k","=",-1) And DeleteCol(GridName,"k")

 回到顶部
帅哥哟，离线，有人找我吗？
wjq1072
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00 		  发帖心情 Post By：2010/5/26 22:00:00 [显示全部帖子]

0-不排除行
1－排除第一行
2－排除第二行以上的行
－－－
其实自己试试就可以啦！

 回到顶部
帅哥哟，离线，有人找我吗？
wjq1072
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00 		  发帖心情 Post By：2010/5/27 22:12:00 [显示全部帖子]

全部导入后再部分删除。

ClearGrid(GridName) And －－－删除当前表数据；

ImportTextFile(docdir+"aaa.txt", Char(9), Char(13),0) And －－－全部导入；

DelRow(GridName,1) And －－－删除第一个空行；

AddCol(GridName,"k",3, False ) And －－－增加一逻辑型k列；

EvalFor(GridName,"k","Row > 3") And －－－重算k列，使得大于3的k列为－1；（这里可以任意指定想删除的行！！）

DelFor(GridName,"k","=",-1) And －－－删除k为－1的行；

DeleteCol(GridName,"k")－－－再删除k列。OK


 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright ©2002 - 2005 egrid2000.com   Powered By Dvbbs Version 8.3.0
页面执行时间 0.02734 秒, 6 次数据查询