主题：转换文本问题

这样吧！egd文件下载

DelReptRows
删除指定列中内容重复的行。

语法：
DelReptRows(Grid, Col,Col...)
Grid    指定表，可以用表名表示，也可以用位置表示。
Col     指定列，可以用列名称表示，也可以用位置表示；可以设置任意多列。

例如：
DelReptRows("产品信息","品名","规格")
删除产品信息表中品名和规格重复的行，也就是说相同品名和规格的数据仅保留一行。

[这个贴子最后由lyang70在 2010/12/29 05:01pm 第 1 次编辑]

将5楼附件中按钮公式改为：CreateGrid("X","乡镇名称",0,"语句",0) And CopyRows("X","乡镇名称", "<>" ,"") And DelFor("X","乡镇名称", "=" ,"") And DelReptRows("X","乡镇名称") And EvalFor("X","语句","""MD"" + Char(32) + docdir + ""数据\"" + Cell(Row,""乡镇名称"",""X"")") And DeleteCol("X","乡镇名称") And ExportTextFile(docdir + "md.bat",char(9),Char(13),"X","语句", "<>" ,"",2) And RemoveGrid("X") And MsgBox("已在当前目录下创建了批处理文件md.bat!",1)