表格操作,代码修改

huxiaocun23

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
ex	EXCEL类
行数	整数型
列数	整数型
计次	整数型
列表名称	文本型		0
计次2	整数型
开始任务	整数型
表格内容	文本型

超级列表框1.全部删除 ()
ex.创建 ()
ex.打开 (接收到的文件路径)
ex.取行数列数 (行数, 列数)
列表名称 ＝ 分割文本 ( #表格列, “|”, )
开始任务 ＝ 1
计次循环首 (行数, 计次)
超级列表框1.插入表项 (, , , , , )
计次循环首 (取数组成员数 (列表名称), 计次2)
表格内容 ＝ ex.读单元格文本 (列表名称 [计次2] ＋ 到文本 (开始任务))
超级列表框1.置标题 (计次 － 1, 计次2 － 1, 表格内容)
计次循环尾 ()
开始任务 ＝ 开始任务 ＋ 1
计次循环尾 ()
ex.关闭 ()
ex.关闭工作薄 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

超级列表框_Excel (超级列表框1.取窗口句柄 (), “保存的文件.xls”, 真)

i支持库列表	支持库注释
edroptarget	拖放支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 edroptarget<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())<br /> <br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 ex, EXCEL类<br /> .局部变量 行数, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 列表名称, 文本型, , "0"<br /> .局部变量 计次2, 整数型<br /> .局部变量 开始任务, 整数型<br /> .局部变量 表格内容, 文本型<br /> <br /> 超级列表框1.全部删除 ()<br /> ex.创建 ()<br /> ex.打开 (接收到的文件路径)<br /> ex.取行数列数 (行数, 列数)<br /> 列表名称 ＝ 分割文本 (#表格列, “|”, )<br /> 开始任务 ＝ 1<br /> .计次循环首 (行数, 计次)<br />     超级列表框1.插入表项 (, , , , , )<br /> <br />     .计次循环首 (取数组成员数 (列表名称), 计次2)<br />         表格内容 ＝ ex.读单元格文本 (列表名称 [计次2] ＋ 到文本 (开始任务))<br />         超级列表框1.置标题 (计次 － 1, 计次2 － 1, 表格内容)<br />     .计次循环尾 ()<br />     开始任务 ＝ 开始任务 ＋ 1<br /> .计次循环尾 ()<br /> ex.关闭 ()<br /> ex.关闭工作薄 ()<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 超级列表框_Excel (超级列表框1.取窗口句柄 (), “保存的文件.xls”, 真)

上面代码不是我写的求，帮忙修改：
第一个要求：
我需要读取固定的，某两列，比如第5列和第9列（这里可以用两个编辑框输入列数）。并且是从第4行读取。

第二个要求：
根据读到的某一行，所在的行数，比如25行。这个时候编辑框1（另外一个编辑框）中，如果写的是4。这个4能被2整除，是偶数。
前面读取的A,B两列
如果是偶数行，两列所在的偶数行内容交换。
那么就是,AB 两列，13579等.行内容不变。246810等行内容互换


编辑框1（另外一个编辑框）中，如果写的是5，是奇数。
假设AB两行执行道29行时，
29%5，余4
4除2，余0，偶数
那么AB 两列，第29行，内容交换。

假设AB两行执行道28行时
28%5，余3
3除2，余1，是奇数

那么AB 两列，第28行，内容不变。

菜鸟路过

问答专区 群友给予你的只能是帮助，这个帮助是有限的，你这个情况最好是找人定制

huxiaocun23

如果只要，将第5,7列来两列数据写到编辑框1和编辑框2中，有人会吗