如何把提取到的文本数据变量输出到EXCEL文档里
.版本 2
.支持库 EDataStructure
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 处理
.局部变量 文本, 文本型
.局部变量 行数, 整数型
.局部变量 计次, 整数型
.局部变量 变量, 文本型
.局部变量 文本分割, 文本型, , "0"
.局部变量 数字组, 整数型, , "0"
.局部变量 变量组, 文本型, , "0"
.局部变量 z_计次, 整数型
.局部变量 空点, 整数型
.局部变量 变量文本, 文本型, , "0"
.局部变量 独立, 文本型
.局部变量 独立点, 文本型
.局部变量 i, 整数型
.局部变量 当前最大, 文本型
.局部变量 z, 整数型
.局部变量 个数, 整数型
.局部变量 x, 整数型
.局部变量 节点, 节点
.局部变量 结果, 文本型
.局部变量 Str, 文本型
文本 ＝ 到文本 (读入文件 (编辑框1.内容))
文本_取中间_批量 (文本, “*”, #换行符 ＋ “*”, 变量文本, , , , , , , )
加入成员 (变量文本, 文本_倒取出中间文本 (文本, #换行符 ＋ “End”, “*”, , ))
行数 ＝ 取数组成员数 (变量文本)
重定义数组 (数字组, 假, 0)
重定义数组 (变量组, 假, 0)
.计次循环首 (行数, 计次)
变量 ＝ 变量文本 [计次]
文本分割 ＝ 分割文本 (变量, “ ”, )
加入成员 (数字组, 取数组成员数 (文本分割) － 1)
.如果真 (取数组成员数 (文本分割) ＝ 2)
独立 ＝ 文本分割
独立点 ＝ 独立点 ＋ “ ” ＋ 独立
.如果真结束
.计次循环首 (取数组成员数 (文本分割) － 1, z_计次)
加入成员 (变量组, 文本分割 )
.计次循环尾 ()
.计次循环尾 ()
.计次循环首 (取数组成员数 (变量组), i)
.如果真 (i ＝ 1)
当前最大 ＝ 变量组
.如果真结束
.如果真 (i ＞ 1)
.如果 (到整数 (变量组 ) ＞ 到整数 (当前最大))
当前最大 ＝ 变量组
.否则
.如果结束
.如果真结束
.计次循环尾 ()
调试输出 (数字组)
.计次循环首 (取数组成员数 (数字组), z)
个数 ＝ 0
.计次循环首 (取数组成员数 (数字组), x)
.如果真 (数字组 ＝ 数字组 )
个数 ＝ 个数 ＋ 1
.如果真结束
.计次循环尾 ()
.如果真 (节点.加入属性 (到文本 (数字组 ), 0))
结果 ＝ 到文本 (数字组 ) ＋ “ =” ＋ 到文本 (个数)
Str ＝ Str ＋ 结果 ＋ #换行符
.如果真结束
.计次循环尾 ()
调试输出 (独立点, 取数组成员数 (变量组), 当前最大, Str)
' 写到文件 (“\1.xlsx”, 到字节集 (独立点))
.子程序 _按钮1_被单击
通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.打开 ()
编辑框1.内容 ＝ 通用对话框1.文件名
.子程序 _按钮2_被单击
处理 ()
首先把Excel文件放到资源表里。运行后可以用写到文件。这个命令写出excel文件。
然后用这个模块操作excel表格比较简单
http://www.eyy8.vip/thread-1316-1-1.html 我是新手 发表于 2020-10-5 17:59
首先把Excel文件放到资源表里。运行后可以用写到文件。这个命令写出excel文件。
然后用这个模块操作excel表 ...
大神教我用下，这个模块用不了呀！qq:446327791
luliang2580 发表于 2020-10-6 13:15
大神教我用下，这个模块用不了呀！qq:446327791
可以用的啊。你看看里面有用法例子。这个也行
http://www.eyy8.vip/thread-1327-1-1.html 我是新手 发表于 2020-10-7 09:58
可以用的啊。你看看里面有用法例子。这个也行
http://www.eyy8.vip/thread-1327-1-1.html ...
方便QQ联系下吗？ 楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！
页:
[1]