易表在线答疑技术与交流用户社区 → 如何实现导入纵向排列转成横向排列


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

主题:如何实现导入纵向排列转成横向排列

帅哥哟,离线,有人找我吗?
Czy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13147 积分:-89 威望:0 精华:0 注册:2006/8/11 11:14:00
  发帖心情 Post By:2010/1/27 12:16:00 [显示全部帖子]

假设文本文件和易表文件存放于同一目录,文本文件名称为“A”

ClearGrid(grid) and
ImportTextFile(docdir+"A.txt",char(9),char(13),0) And DelFor(grid,1,"=","") and
evalfor(grid,2,"if(row<=-int(-rows/6),cell(-int(-rows/6)+row,1),"""")") and
evalfor(grid,3,"if(row<=-int(-rows/6),cell(-int(-rows/6)*2+row,1),"""")") and
evalfor(grid,4,"if(row<=-int(-rows/6),cell(-int(-rows/6)*3+row,1),"""")") and
evalfor(grid,5,"if(row<=-int(-rows/6),cell(-int(-rows/6)*4+row,1),"""")") and
evalfor(grid,6,"if(row<=-int(-rows/6),cell(-int(-rows/6)*5+row,1),"""")") and
DelFor(grid,2,"=","") and ExportTextFile(docdir+"B.txt",char(9),char(13),grid)


 回到顶部