主题：[求助]一个关于txt文件中的么中格式转换至易表中指定格式？

[求助]一个关于txt文件中的么中格式转换至易表中指定格式？egd文件下载

在顶，没有高手处理！！！

等待。。。。。。

将文本文件命名为“ab”，保存于易表文件同一目录下。
表1窗口自定义按钮公式：

CreateGrid(".","a",0,"b",0,"c",0) And
OpenGrid(grids) And
ImportTextFile(docdir+"ab.txt",char(9),Char(13),0) And
OpenGrid("表1") And
ClearGrid(grid) And
AddRows(grid,CountFor("表2","第一列","Instr","@")-1) and
evalfor(grids,"b","Split([a],"":"",1)") And
evalfor(grids,"c","Split([a],"":"",2)") and
evalfor(grid,1,"FindText(grids,""a"",""a"",""Instr"",""@"",row)") and
evalfor(grid,2,"FindText(grids,""c"",""b"",""="",""土地使用者名称"",row)") and
evalfor(grid,3,"FindText(grids,""c"",""b"",""="",""土地坐落"",row)") And
evalfor(grid,4,"FindText(grids,""c"",""b"",""="",""土地等级"",row)") And
evalfor(grid,5,"FindText(grids,""c"",""b"",""="",""宗地面积"",row)") And
evalfor(grid,6,"FindText(grids,""c"",""b"",""="",""建筑占地面积"",row)") And
evalfor(grid,7,"FindText(grids,""c"",""b"",""="",""地籍号"",row)") And
RemoveGrid(grids)

版主你好！
测试公式了，效果是只有一行记录进去，：后的循环数据没有出现，也就是第二。。。。。。没有写入

公式第六行公式引用错误。

CreateGrid(".","a",0,"b",0,"c",0) And
OpenGrid(grids) And
ImportTextFile(docdir+"ab.txt",char(9),Char(13),0) And
OpenGrid("表1") And
ClearGrid(grid) And
AddRows(grid,CountFor(grids,"a","Instr","@")-1) and
evalfor(grids,"b","Split([a],"":"",1)") And
evalfor(grids,"c","Split([a],"":"",2)") and
evalfor(grid,1,"FindText(grids,""a"",""a"",""Instr"",""@"",row)") and
evalfor(grid,2,"FindText(grids,""c"",""b"",""="",""土地使用者名称"",row)") and
evalfor(grid,3,"FindText(grids,""c"",""b"",""="",""土地坐落"",row)") And
evalfor(grid,4,"FindText(grids,""c"",""b"",""="",""土地等级"",row)") And
evalfor(grid,5,"FindText(grids,""c"",""b"",""="",""宗地面积"",row)") And
evalfor(grid,6,"FindText(grids,""c"",""b"",""="",""建筑占地面积"",row)") And
evalfor(grid,7,"FindText(grids,""c"",""b"",""="",""地籍号"",row)") And
RemoveGrid(grids)

如果你是那个8350，这种公式的错处应该看的出来才对。

哈哈，我是，原来的账户密码忘了，不知你能帮我回复么？

我还没有来得及理解呢，手头的事情太多，都不知何时能不忙，哈哈！

谢谢你了大哥！

谢谢czy大哥！