以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  如何实现导入纵向排列转成横向排列  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=18943)
--  作者：卫新法
--  发布时间：2010/1/27 10:49:00
--  如何实现导入纵向排列转成横向排列
egd文件下载
这个文本文件中的名字是纵向排列的，想实现导入后成纵向六列排列，再导出成六列文本文件。请各位帮助解决。谢谢
--  作者：Czy
--  发布时间：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)

--  作者：卫新法
--  发布时间：2010/1/27 16:27:00
--  
请教这个公式如何用，放在那里，请指点。谢谢。
--  作者：wjq1072
--  发布时间：2010/1/27 16:43:00
--  
按钮公式
--  作者：卫新法
--  发布时间：2010/1/27 16:53:00
--  
egd文件下载

请指导不知如何使用，请你指导一下。

--  作者：wjq1072
--  发布时间：2010/1/27 17:06:00
--  
RAR文件下载
--  作者：卫新法
--  发布时间：2010/1/27 17:12:00
--  
谢谢。