如何实现导入纵向排列转成横向排列 - 用户社区 - 易表在线答疑 - 简单实用的数据管理软件|数据统计软件|数据分析软件|电子表格软件

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

共有6737人关注过本帖树形打印复制链接主题：如何实现导入纵向排列转成横向排列

卫新法

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：13 积分：0 威望：0 精华：0 注册：2010/1/10 7:30:00

如何实现导入纵向排列转成横向排列 发帖心情

Post By：2010/1/27 10:49:00 [只看该作者]

egd文件下载
这个文本文件中的名字是纵向排列的，想实现导入后成纵向六列排列，再导出成六列文本文件。请各位帮助解决。谢谢

Czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)