一套比较完整的算法,文本操作处理的教程,主要针对EXCEL,WORD,TXT,一些文本的操作之类的。
通用对话框.类型 ＝ 1
通用对话框.过滤器 ＝ “Excel文件|*.xls”
.如果真 (通用对话框.打开 () ＝ 假)
返回 ()
.如果真结束
.如果真 (Excel程序.创建 () ＝ 假)
信息框 (“Excel 程序创建失败！可能没有安装Excel2000”, 64, “提示信息”)
返回 ()
.如果真结束
Excel工作簿.置程序 (Excel程序)
Excel工作簿.表格序号 ＝ 1
Excel程序.显示 ＝ 假
行数 ＝ 高级表格.行数
.如果真 (是否使用进度条 ＝ 真)
进度条.最大位置 ＝ 行数
.如果真结束
.计次循环首 (行数, i)
.计次循环首 (高级表格.列数, ii)
文本1 ＝ 取空白字节集 (1)
.如果 (ii ＞ 26)
整数 ＝ 96 ＋ ii － 26
文本1 ＝ 到字节集 (整数)
文本3 ＝ “a” ＋ 到文本 (文本1)
.否则
整数 ＝ 96 ＋ ii
文本1 ＝ 到字节集 (整数)
文本3 ＝ 到文本 (文本1) ＋ 到文本 (i)
.如果结束
文本 ＝ 高级表格.取数据 (i － 1, ii － 1)
设置表格内容 (Excel工作簿, 文本3, “”, 文本)
.计次循环尾 ()
.如果真 (是否使用进度条 ＝ 真)
进度条.位置 ＝ i
.如果真结束
.计次循环尾 ()
Excel工作簿.保存 (通用对话框.文件名)
Excel工作簿.关闭 ()
Excel程序.退出 ()
.如果真 (是否提示完成 ＝ 真)
文件名 ＝ 通用对话框.文件名
后缀名 ＝ 分割文本 (通用对话框.文件名, “.”, )
.如果真 (到小写 (后缀名 [取数组成员数 (后缀名)]) ≠ “xls”)
文件名 ＝ 通用对话框.文件名 ＋ “.xls”
.如果真结束
信息框 (“表格导出成功，位置在：” ＋ #换行符 ＋ 文件名, 64, “提示信息”)
上一篇 获取文件详细的属性