易语言正则匹配出内容如何写到excel表格存储？

wh827766

易语言正则匹配出内容如何写到excel表格存储？比如这个小说网http://top.17k.com/，GET后正则匹配出每个榜单下的书名这个我会，现在请教如何把匹配出来的榜单和下面的书名，写到EXCEL中并保存下来？

猥琐小胖子

写出csv格式的文件就可以了。其实就是第一行列标题，后面行开始用逗号分割。下面这个代码是超级列表框转换的，如果你没超级列表框，自己看着改下。

  

子程序名	返回值类型	公开	备 注
LVMTOCSV	文本型		列表框数据转CSV;CSV可以用EXCEL打开
参数名	类 型	参考	可空	数组	备 注
LVM	超级列表框

变量名	类 型	静态	数组	备 注
整数	整数型		3	使用到的整数变量
文本	文本型		2	使用到的文本变量

判断 (LVM.取列数 () ＝ 0 或 LVM.取表项数 () ＝ 0)
返回 (文本 [2])
变量循环首 (1, LVM.取列数 (), 1, 整数 [1])
判断 (整数 [1] ＝ 1)
文本 [1] ＝ LVM.取列标题 (整数 [1] － 1)
' 本源码来自易语言资源网(www.5A5X.com)
文本 [1] ＝ 文本 [1] ＋ “,” ＋ LVM.取列标题 (整数 [1] － 1)

变量循环尾 ()
文本 [2] ＝ 文本 [1] ＋ #换行符
变量循环首 (1, LVM.取表项数 (), 1, 整数 [1])
整数 [3] ＝ 整数 [1] － 1
变量循环首 (1, LVM.取列数 (), 1, 整数 [2])
判断 (整数 [2] ＝ 1)
文本 [1] ＝ LVM.取标题 (整数 [3], 整数 [2] － 1)
' 本源码来自易语言资源网(www.5A5X.com)
文本 [1] ＝ 文本 [1] ＋ “,” ＋ LVM.取标题 (整数 [3], 整数 [2] － 1)

变量循环尾 ()
文本 [2] ＝ 文本 [2] ＋ 文本 [1] ＋ #换行符
变量循环尾 ()
返回 (文本 [2])

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 LVMTOCSV, 文本型, , 列表框数据转CSV;CSV可以用EXCEL打开<br /> .参数 LVM, 超级列表框<br /> .局部变量 整数, 整数型, , "3", 使用到的整数变量<br /> .局部变量 文本, 文本型, , "2", 使用到的文本变量<br /> <br /> .判断开始 (LVM.取列数 () ＝ 0 或 LVM.取表项数 () ＝ 0)<br />     返回 (文本 [2])<br /> .默认<br />     .变量循环首 (1, LVM.取列数 (), 1, 整数 [1])<br />         .判断开始 (整数 [1] ＝ 1)<br />             文本 [1] ＝ LVM.取列标题 (整数 [1] － 1)<br />         .默认<br />             ' 本源码来自易语言资源网(www.5A5X.com)<br />             文本 [1] ＝ 文本 [1] ＋ “,” ＋ LVM.取列标题 (整数 [1] － 1)<br />         .判断结束<br /> <br />     .变量循环尾 ()<br />     文本 [2] ＝ 文本 [1] ＋ #换行符<br />     .变量循环首 (1, LVM.取表项数 (), 1, 整数 [1])<br />         整数 [3] ＝ 整数 [1] － 1<br />         .变量循环首 (1, LVM.取列数 (), 1, 整数 [2])<br />             .判断开始 (整数 [2] ＝ 1)<br />                 文本 [1] ＝ LVM.取标题 (整数 [3], 整数 [2] － 1)<br />             .默认<br />                 ' 本源码来自易语言资源网(www.5A5X.com)<br />                 文本 [1] ＝ 文本 [1] ＋ “,” ＋ LVM.取标题 (整数 [3], 整数 [2] － 1)<br />             .判断结束<br /> <br />         .变量循环尾 ()<br />         文本 [2] ＝ 文本 [2] ＋ 文本 [1] ＋ #换行符<br />     .变量循环尾 ()<br />     返回 (文本 [2])<br /> .判断结束