以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  求助文本行排除问题  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=19455)

--  作者:JIANGJIAN
--  发布时间:2010/5/26 20:20:00
--  求助文本行排除问题
ImportTextFile(FileName,ColSeparator,RowSeparator,FixedRows)
在上述公式中“FixedRows       指定要排除的行数”
怎样表示排除前3行以后的全部行
--  作者:wjq1072
--  发布时间: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")
--  作者:JIANGJIAN
--  发布时间:2010/5/26 21:36:00
--  
FixedRows,可否指定单一行,例如排除第三行
--  作者:wjq1072
--  发布时间:2010/5/26 22:00:00
--  
0-不排除行
1-排除第一行
2-排除第二行以上的行
---
其实自己试试就可以啦!
--  作者:JIANGJIAN
--  发布时间:2010/5/27 21:03:00
--  
郁闷只能排除x以上的行,不能排除指定的行
--  作者:wjq1072
--  发布时间: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


--  作者:JIANGJIAN
--  发布时间:2010/5/28 8:08:00
--  
是的我也这样做了但是网络上有多人同时使用本表时有时出出错

-=-=-=- 以下内容由 JIANGJIAN2010年05月28日 08:10am 时添加 -=-=-=-
易表在局域网使用时,有很多麻烦的事