易语言EXCEL表格读取跟修改

guanmoxuexi

纯属为了测试用，以验证自己的猜测我有个EXCEL表格，里面包含赛车游戏期号和第一到第十名十位置的历史开奖数据


我要做个程序，点击后，读取该表格，然后进行分析表格里面的内容

然后在编辑框输入新的开奖数据，点击一下，数据自动更新到文档，

请教下需要怎么做。

文档数据实例如下
期数/名次  1  2  3  4 5 6 7 8 9 10
001           5  2  3  4 6 8 10 7 9 1
002           2  3  5  4 6 8 10 7 9 1
003           4  3  5  2 6 8 10 7 9 1

aipca

用高级表格来做 相对简单

aipca

调整一下，导入导出用CSV，方便用EXCEL或文本编辑。

  

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

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

全局表 ＝ 高级表格1
导入CSV ()

子程序名	返回值类型	公开	备 注
_添加_被选择

全局表.插入行 (“”, 1)

子程序名	返回值类型	公开	备 注
_删除_被选择

全局表.删除行 (1)

子程序名	返回值类型	公开	备 注
_导出_被选择

导出CSV ()
标签1.标题 ＝ “已导出表格到” ＋ 取运行目录 () ＋ “\data.csv”

子程序名	返回值类型	公开	备 注
导出CSV

变量名	类 型	静态	数组	备 注
x	整数型
y	整数型
t	文本型

t ＝ “”
计次循环首 (高级表格1.行数, x)
计次循环首 (高级表格1.列数, y)
t ＝ t ＋ 高级表格1.取文本数据 (x, y － 1) ＋ “;”
计次循环尾 ()
t ＝ t ＋ #换行符
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\data.csv”, 到字节集 (t))

子程序名	返回值类型	公开	备 注
_导入_被选择

导入CSV ()

子程序名	返回值类型	公开	备 注
导入CSV

变量名	类 型	静态	数组	备 注
文本	文本型
行分割	文本型		0
列分割	文本型		0
行
列

文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\data.csv”))
行分割 ＝ 分割文本 (文本, #换行符, )
高级表格1.行数 ＝ 取数组成员数 (行分割)
计次循环首 (取数组成员数 (行分割), 行)
列分割 ＝ 分割文本 (行分割 [行], “;”, )
如果真 (高级表格1.列数 ＜ 取数组成员数 (列分割))
高级表格1.列数 ＝ 取数组成员数 (列分割)

计次循环首 (取数组成员数 (列分割), 列)
高级表格1.置数据 (行, 列 － 1, 1, 列分割 [列])
计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_高级表格1_鼠标右键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

弹出菜单 (右键弹出, 取鼠标水平位置 () ＋ 2, 取鼠标垂直位置 () ＋ 2)

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 全局表 ＝ 高级表格1<br /> 导入CSV ()<br /> <br /> .子程序 _添加_被选择<br /> <br /> 全局表.插入行 (“”, 1)<br /> <br /> .子程序 _删除_被选择<br /> <br /> 全局表.删除行 (1)<br /> <br /> .子程序 _导出_被选择<br /> <br /> 导出CSV ()<br /> 标签1.标题 ＝ “已导出表格到” ＋ 取运行目录 () ＋ “\data.csv”<br /> <br /> .子程序 导出CSV<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 t, 文本型<br /> <br /> t ＝ “”<br /> .计次循环首 (高级表格1.行数, x)<br />     .计次循环首 (高级表格1.列数, y)<br />         t ＝ t ＋ 高级表格1.取文本数据 (x, y － 1) ＋ “;”<br />     .计次循环尾 ()<br />     t ＝ t ＋ #换行符<br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\data.csv”, 到字节集 (t))<br /> <br /> .子程序 _导入_被选择<br /> <br /> 导入CSV ()<br /> <br /> .子程序 导入CSV<br /> .局部变量 文本, 文本型<br /> .局部变量 行分割, 文本型, , "0"<br /> .局部变量 列分割, 文本型, , "0"<br /> .局部变量 行<br /> .局部变量 列<br /> <br /> 文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\data.csv”))<br /> 行分割 ＝ 分割文本 (文本, #换行符, )<br /> 高级表格1.行数 ＝ 取数组成员数 (行分割)<br /> .计次循环首 (取数组成员数 (行分割), 行)<br />     列分割 ＝ 分割文本 (行分割 [行], “;”, )<br />     .如果真 (高级表格1.列数 ＜ 取数组成员数 (列分割))<br />         高级表格1.列数 ＝ 取数组成员数 (列分割)<br />     .如果真结束<br /> <br />     .计次循环首 (取数组成员数 (列分割), 列)<br />         高级表格1.置数据 (行, 列 － 1, 1, 列分割 [列])<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 _高级表格1_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 弹出菜单 (右键弹出, 取鼠标水平位置 () ＋ 2, 取鼠标垂直位置 () ＋ 2)