简单的LibXL读入例子

sw3425369

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
xx	LibXL_dll

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 xx, LibXL_dll

  

子程序名	返回值类型	公开	备 注
每个催记识别
参数名	类 型	参考	可空	数组	备 注
文件名	文本型
文件路径	文本型

变量名	类 型	静态	数组	备 注
标题1	文本型
i	整数型
扩展名	文本型
错误消息	文本型
book	整数型
sheet	整数型
名称	文本型

扩展名 ＝ 文本_到小写 (文件_取扩展名 (文件名))
如果 (扩展名 ＝ “.xls” 或 扩展名 ＝ “.xlsx”)



返回 ()

如果真 (取文本左边 (文件名, 2) ＝ “~$”)
返回 ()

如果 (扩展名 ＝ “.xlsx”)
book ＝ xx.创建XLSX ()



book ＝ xx.创建XLS ()

xx.zc (book, “GCCG”, “windows-282123090cc0e6036db16b60a1o3p0h9”)
如果真 (xx.打开EXCEL (book, 文件路径) ＝ 假)  ' 打开工作簿
错误消息 ＝ xx.取错误消息 (book)
xx.释放 (book)
如果真 (错误消息 ＝ “workbook is encrypted”)
调试输出 (错误消息, 文件路径)
信息框 (“打开失败”, 0, , )
返回 ()

计次循环首 (10, i)
名称 ＝ xx.取表格名称 (book, i － 1)
如果真 (名称 ＝ “”)
跳出循环 ()

sheet ＝ xx.取表格句柄 (book, i － 1)
读取这个工作簿 (sheet, 文件路径)
计次循环尾 ()
xx.释放 (book)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 每个催记识别<br /> .参数 文件名, 文本型<br /> .参数 文件路径, 文本型<br /> .局部变量 标题1, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 扩展名, 文本型<br /> .局部变量 错误消息, 文本型<br /> .局部变量 book, 整数型<br /> .局部变量 sheet, 整数型<br /> .局部变量 名称, 文本型<br /> <br /> 扩展名 ＝ 文本_到小写 (文件_取扩展名 (文件名))<br /> .如果 (扩展名 ＝ “.xls” 或 扩展名 ＝ “.xlsx”)<br /> <br /> .否则<br /> <br />     返回 ()<br /> .如果结束<br /> <br /> .如果真 (取文本左边 (文件名, 2) ＝ “~$”)<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果 (扩展名 ＝ “.xlsx”)<br />     book ＝ xx.创建XLSX ()<br /> <br /> .否则<br /> <br />     book ＝ xx.创建XLS ()<br /> <br /> .如果结束<br /> <br /> xx.zc (book, “GCCG”, “windows-282123090cc0e6036db16b60a1o3p0h9”)<br /> <br /> .如果真 (xx.打开EXCEL (book, 文件路径) ＝ 假)  ' 打开工作簿<br />     错误消息 ＝ xx.取错误消息 (book)<br /> <br />     xx.释放 (book)<br />     .如果真 (错误消息 ＝ “workbook is encrypted”)<br />         调试输出 (错误消息, 文件路径)<br />     .如果真结束<br />     信息框 (“打开失败”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> .计次循环首 (10, i)<br />     名称 ＝ xx.取表格名称 (book, i － 1)<br />     .如果真 (名称 ＝ “”)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     sheet ＝ xx.取表格句柄 (book, i － 1)<br />     读取这个工作簿 (sheet, 文件路径)<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> xx.释放 (book)

  

子程序名	返回值类型	公开	备 注
读取这个工作簿
参数名	类 型	参考	可空	数组	备 注
sheet	整数型
文件名	文本型

变量名	类 型	静态	数组	备 注
i	整数型
标题枚举	文本型
位置1	位置类型
标题1	文本型
取催记类型	文本型
sql语句	文本型
判断内容	文本型
跳出	整数型
姓名内容	文本型
时间内容	文本型
卡号内容	文本型
***内容	文本型
公司内容	文本型
催收员内容	文本型
电话内容	文本型
催记内容	文本型
外访地址内容	文本型
外访结果内容	文本型
数组	文本型		0
关系内容	文本型

标题1 ＝ “”
计次循环首 (100, i)
标题枚举 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, 0, i － 1, #Celltype_String ), “ ”)
如果真 (标题枚举 ＝ “”)
到循环尾 ()
标题1 ＝ 标题1 ＋ 标题枚举 ＋ “,”
判断 (标题枚举 ＝ “电话地址.” 或 标题枚举 ＝ “电话地址”)
位置1.电话位置 ＝ i

判断 (标题枚举 ＝ “姓名”)
位置1.姓名位置 ＝ i
判断 (标题枚举 ＝ “***.” 或 标题枚举 ＝ “***”)
位置1.***位置 ＝ i
判断 (标题枚举 ＝ “匹配.” 或 标题枚举 ＝ “匹配”)
位置1.卡号位置 ＝ i
判断 (标题枚举 ＝ “时间.” 或 标题枚举 ＝ “时间” 或 标题枚举 ＝ “日期”)
位置1.时间位置 ＝ i
判断 (标题枚举 ＝ “催记详情.” 或 标题枚举 ＝ “催记详情”)
位置1.催记位置 ＝ i
判断 (标题枚举 ＝ “委案公司.” 或 标题枚举 ＝ “委案公司”)
位置1.公司位置 ＝ i
判断 (标题枚举 ＝ “催收员.” 或 标题枚举 ＝ “催收员”)
位置1.催收员位置 ＝ i
判断 (标题枚举 ＝ “外访地址.” 或 标题枚举 ＝ “外访地址”)
位置1.外访地址位置 ＝ i
判断 (标题枚举 ＝ “外访结果.” 或 标题枚举 ＝ “外访结果”)
位置1.外访结果位置 ＝ i
判断 (标题枚举 ＝ “关系.” 或 标题枚举 ＝ “关系” 或 标题枚举 ＝ “联系关系.” 或 标题枚举 ＝ “联系关系”)
位置1.关系位置 ＝ i




计次循环尾 ()
如果真 (标题1 ＝ “”)
返回 ()
取催记类型 ＝ “”
如果 (寻找文本 (文件_取文件名 (文件名), “外访”, , 假) ＞ -1)
如果 (位置1.外访地址位置 ＞ 0 且 位置1.外访结果位置 ＞ 0)
' 这个就是外访催记
取催记类型 ＝ “外访”



调试输出 (文件名, 位置1.外访地址位置, 位置1.外访结果位置, 标题1)
如果 (位置1.外访地址位置 ＞ 0 或 位置1.外访结果位置 ＞ 0)
' 这个就是外访催记出现问题



' 其他情况




' 这个就是正常催记先看看正常催记缺不缺
如果 (位置1.电话位置 ＜ 1 或 位置1.姓名位置 ＜ 1 或 位置1.卡号位置 ＜ 1 或 位置1.时间位置 ＜ 1 或 位置1.催记位置 ＜ 1 或 位置1.公司位置 ＜ 1 或 位置1.***位置 ＜ 1 或 位置1.催收员位置 ＜ 1 或 位置1.关系位置 ＜ 1)
' 这个就是正常催记也有问题需要看看哪个文件
调试输出 (文件名, 位置1.电话位置, 位置1.姓名位置, 位置1.卡号位置, 位置1.时间位置, 位置1.催记位置, 位置1.公司位置, 位置1.***位置, 位置1.催收员位置, 位置1.关系位置, 标题1)



取催记类型 ＝ “电催”
' 这个是正常催记没有问题


判断 (取催记类型 ＝ “电催”)
i ＝ 0
跳出 ＝ 0
判断循环首 (真)
判断内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.时间位置 － 1, #Celltype_String ), “ ”)
如果 (判断内容 ＝ “”)
跳出 ＝ 跳出 ＋ 1
i ＝ i ＋ 1
如果真 (跳出 ＞ 10)
跳出循环 ()

到循环尾 ()



跳出 ＝ 0
姓名内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.姓名位置 － 1, #Celltype_String ), “ ”)
时间内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.时间位置 － 1, #Celltype_String ))
卡号内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.卡号位置 － 1, #Celltype_String ))
***内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.***位置 － 1, #Celltype_String ))
公司内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.公司位置 － 1, #Celltype_String ))
催收员内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.催收员位置 － 1, #Celltype_String ))
电话内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.电话位置 － 1, #Celltype_String ))
催记内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.催记位置 － 1, #Celltype_String ))
外访地址内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.外访地址位置 － 1, #Celltype_String ))
外访结果内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.外访结果位置 － 1, #Celltype_String ))
关系内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.关系位置 － 1, #Celltype_String ))
如果 (取文本长度 (关系内容) ＜ 2 或 关系内容 ＝ “待确定” 或 关系内容 ＝ “持卡人”)
关系内容 ＝ “本人”


执行SQL语句 (句柄, “set names gbk”)
sql语句 ＝ “INSERT INTO `hahang`(`id`, `leixing`, `xingming`, `shijian`, `kahao`, `shenfenzheng`, `gongsi`, `cuishouyuan`, `dianhua`, `cuiji`, `waifangdizhi`, `waifangjieguo`, `guanxi`) VALUES (null, '电催', '” ＋ 姓名内容 ＋ “', '” ＋ 时间内容 ＋ “', '” ＋ 卡号内容 ＋ “', '” ＋ ***内容 ＋ “', '” ＋ 公司内容 ＋ “', '” ＋ 催收员转姓名 (催收员内容) ＋ “', '” ＋ 电话内容 ＋ “', '” ＋ 催记内容 ＋ “', '” ＋ 外访地址内容 ＋ “', '” ＋ 外访结果内容 ＋ “', '” ＋ 关系内容 ＋ “')”
如果真 (执行SQL语句 (句柄, sql语句) ＝ 假)
调试输出 (sql语句)

i ＝ i ＋ 1
判断循环尾 ()
调试输出 (文件名, i － 10)

判断 (取催记类型 ＝ “外访”)
i ＝ 0
跳出 ＝ 0
调试输出 (位置1.时间位置, 位置1.姓名位置, 位置1.外访地址位置, 位置1.外访结果位置)
判断循环首 (真)
判断内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.时间位置 － 1, #Celltype_String ), “ ”)
如果 (判断内容 ＝ “”)
跳出 ＝ 跳出 ＋ 1
i ＝ i ＋ 1
如果真 (跳出 ＞ 10)
跳出循环 ()

到循环尾 ()



跳出 ＝ 0
姓名内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.姓名位置 － 1, #Celltype_String ), “ ”)
如果真 (姓名内容 ≠ “姓名”)
时间内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.时间位置 － 1, #Celltype_String ))
外访地址内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.外访地址位置 － 1, #Celltype_String ))
外访结果内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.外访结果位置 － 1, #Celltype_String ))
如果真 (取文本长度 (时间内容) ＝ 5 且 寻找文本 (时间内容, “.”, , 假) ＜ 0 且 寻找文本 (时间内容, “-”, , 假) ＜ 0)
时间内容 ＝ 时间_时间戳转文本 (到文本 (到整数 ( (到整数 (时间内容) － 25569) × 3600 × 24)))
如果真 (寻找文本 (时间内容, “.”, , 假) ＞ 0)
数组 ＝ 分割文本 (时间内容, “.”, )
时间内容 ＝ 数组 [1] ＋ “-” ＋ 取文本右边 (“0” ＋ 数组 [2], 2) ＋ “-” ＋ 取文本右边 (“0” ＋ 数组 [3], 2) ＋ “ 00:00:00”
时间内容 ＝ 取文本左边 (时间内容 ＋ “ 00:00:00”, 19)
如果 (姓名时间查哈行 (姓名内容, 时间内容, ***内容, 卡号内容, 催收员内容, 公司内容))
执行SQL语句 (句柄, “set names gbk”)
sql语句 ＝ “INSERT INTO `hahang`(`id`, `leixing`, `xingming`, `shijian`, `kahao`, `shenfenzheng`, `gongsi`, `cuishouyuan`, `dianhua`, `cuiji`, `waifangdizhi`, `waifangjieguo`, `guanxi`) VALUES (null, '外访', '” ＋ 姓名内容 ＋ “', '” ＋ 时间内容 ＋ “', '” ＋ 卡号内容 ＋ “', '” ＋ ***内容 ＋ “', '” ＋ 公司内容 ＋ “', '” ＋ 催收员内容 ＋ “', '” ＋ 电话内容 ＋ “', '” ＋ 催记内容 ＋ “', '” ＋ 外访地址内容 ＋ “', '” ＋ 外访结果内容 ＋ “', '外访地址')”
如果真 (执行SQL语句 (句柄, sql语句) ＝ 假)
调试输出 (sql语句)




调试输出 (姓名内容, 时间内容, xx.表格取单元格内容_ (sheet, i, 位置1.时间位置 － 1, #Celltype_Empty ))


i ＝ i ＋ 1
判断循环尾 ()
调试输出 (文件名, 到整数 (i － 10))



调试输出 (文件名, “催记类型不等于电催和外访”)

i支持库列表	支持库注释
spec	特殊功能支持库
mysql	MySql支持库

.版本 2<br /> .支持库 spec<br /> .支持库 mysql<br /> <br /> .子程序 读取这个工作簿<br /> .参数 sheet, 整数型<br /> .参数 文件名, 文本型, 可空<br /> .局部变量 i, 整数型<br /> .局部变量 标题枚举, 文本型<br /> .局部变量 位置1, 位置类型<br /> .局部变量 标题1, 文本型<br /> .局部变量 取催记类型, 文本型<br /> .局部变量 sql语句, 文本型<br /> .局部变量 判断内容, 文本型<br /> .局部变量 跳出, 整数型<br /> .局部变量 姓名内容, 文本型<br /> .局部变量 时间内容, 文本型<br /> .局部变量 卡号内容, 文本型<br /> .局部变量 ***内容, 文本型<br /> .局部变量 公司内容, 文本型<br /> .局部变量 催收员内容, 文本型<br /> .局部变量 电话内容, 文本型<br /> .局部变量 催记内容, 文本型<br /> .局部变量 外访地址内容, 文本型<br /> .局部变量 外访结果内容, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 关系内容, 文本型<br /> <br /> 标题1 ＝ “”<br /> <br /> .计次循环首 (100, i)<br /> <br />     标题枚举 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, 0, i － 1, #Celltype_String), “ ”)<br />     .如果真 (标题枚举 ＝ “”)<br />         到循环尾 ()<br />     .如果真结束<br />     标题1 ＝ 标题1 ＋ 标题枚举 ＋ “,”<br />     .判断开始 (标题枚举 ＝ “电话地址.” 或 标题枚举 ＝ “电话地址”)<br />         位置1.电话位置 ＝ i<br /> <br />     .判断 (标题枚举 ＝ “姓名”)<br />         位置1.姓名位置 ＝ i<br /> <br />     .判断 (标题枚举 ＝ “***.” 或 标题枚举 ＝ “***”)<br />         位置1.***位置 ＝ i<br /> <br /> <br />     .判断 (标题枚举 ＝ “匹配.” 或 标题枚举 ＝ “匹配”)<br />         位置1.卡号位置 ＝ i<br /> <br />     .判断 (标题枚举 ＝ “时间.” 或 标题枚举 ＝ “时间” 或 标题枚举 ＝ “日期”)<br />         位置1.时间位置 ＝ i<br /> <br />     .判断 (标题枚举 ＝ “催记详情.” 或 标题枚举 ＝ “催记详情”)<br />         位置1.催记位置 ＝ i<br /> <br />     .判断 (标题枚举 ＝ “委案公司.” 或 标题枚举 ＝ “委案公司”)<br />         位置1.公司位置 ＝ i<br /> <br />     .判断 (标题枚举 ＝ “催收员.” 或 标题枚举 ＝ “催收员”)<br />         位置1.催收员位置 ＝ i<br /> <br />     .判断 (标题枚举 ＝ “外访地址.” 或 标题枚举 ＝ “外访地址”)<br />         位置1.外访地址位置 ＝ i<br /> <br />     .判断 (标题枚举 ＝ “外访结果.” 或 标题枚举 ＝ “外访结果”)<br />         位置1.外访结果位置 ＝ i<br /> <br />     .判断 (标题枚举 ＝ “关系.” 或 标题枚举 ＝ “关系” 或 标题枚举 ＝ “联系关系.” 或 标题枚举 ＝ “联系关系”)<br />         位置1.关系位置 ＝ i<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (标题1 ＝ “”)<br />     返回 ()<br /> .如果真结束<br /> 取催记类型 ＝ “”<br /> <br /> .如果 (寻找文本 (文件_取文件名 (文件名), “外访”, , 假) ＞ -1)<br />     .如果 (位置1.外访地址位置 ＞ 0 且 位置1.外访结果位置 ＞ 0)<br />         ' 这个就是外访催记<br />         取催记类型 ＝ “外访”<br /> <br />     .否则<br /> <br />         调试输出 (文件名, 位置1.外访地址位置, 位置1.外访结果位置, 标题1)<br />         .如果 (位置1.外访地址位置 ＞ 0 或 位置1.外访结果位置 ＞ 0)<br />             ' 这个就是外访催记出现问题<br /> <br /> <br />         .否则<br /> <br />             ' 其他情况<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .否则<br /> <br />     ' 这个就是正常催记先看看正常催记缺不缺<br />     .如果 (位置1.电话位置 ＜ 1 或 位置1.姓名位置 ＜ 1 或 位置1.卡号位置 ＜ 1 或 位置1.时间位置 ＜ 1 或 位置1.催记位置 ＜ 1 或 位置1.公司位置 ＜ 1 或 位置1.***位置 ＜ 1 或 位置1.催收员位置 ＜ 1 或 位置1.关系位置 ＜ 1)<br /> <br />         ' 这个就是正常催记也有问题需要看看哪个文件<br />         调试输出 (文件名, 位置1.电话位置, 位置1.姓名位置, 位置1.卡号位置, 位置1.时间位置, 位置1.催记位置, 位置1.公司位置, 位置1.***位置, 位置1.催收员位置, 位置1.关系位置, 标题1)<br /> <br /> <br />     .否则<br /> <br />         取催记类型 ＝ “电催”<br />         ' 这个是正常催记没有问题<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> .判断开始 (取催记类型 ＝ “电催”)<br />     i ＝ 0<br />     跳出 ＝ 0<br />     .判断循环首 (真)<br />         判断内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.时间位置 － 1, #Celltype_String), “ ”)<br /> <br />         .如果 (判断内容 ＝ “”)<br />             跳出 ＝ 跳出 ＋ 1<br />             i ＝ i ＋ 1<br />             .如果真 (跳出 ＞ 10)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />             到循环尾 ()<br /> <br />         .否则<br /> <br />             跳出 ＝ 0<br />         .如果结束<br />         姓名内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.姓名位置 － 1, #Celltype_String), “ ”)<br />         时间内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.时间位置 － 1, #Celltype_String))<br />         卡号内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.卡号位置 － 1, #Celltype_String))<br />         ***内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.***位置 － 1, #Celltype_String))<br />         公司内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.公司位置 － 1, #Celltype_String))<br />         催收员内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.催收员位置 － 1, #Celltype_String))<br />         电话内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.电话位置 － 1, #Celltype_String))<br />         催记内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.催记位置 － 1, #Celltype_String))<br />         外访地址内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.外访地址位置 － 1, #Celltype_String))<br />         外访结果内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.外访结果位置 － 1, #Celltype_String))<br />         关系内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.关系位置 － 1, #Celltype_String))<br />         .如果 (取文本长度 (关系内容) ＜ 2 或 关系内容 ＝ “待确定” 或 关系内容 ＝ “持卡人”)<br />             关系内容 ＝ “本人”<br />         .否则<br /> <br />         .如果结束<br />         执行SQL语句 (句柄, “set names gbk”)<br />         sql语句 ＝ “INSERT INTO `hahang`(`id`, `leixing`, `xingming`, `shijian`, `kahao`, `shenfenzheng`, `gongsi`, `cuishouyuan`, `dianhua`, `cuiji`, `waifangdizhi`, `waifangjieguo`, `guanxi`) VALUES (null, '电催', '” ＋ 姓名内容 ＋ “', '” ＋ 时间内容 ＋ “', '” ＋ 卡号内容 ＋ “', '” ＋ ***内容 ＋ “', '” ＋ 公司内容 ＋ “', '” ＋ 催收员转姓名 (催收员内容) ＋ “', '” ＋ 电话内容 ＋ “', '” ＋ 催记内容 ＋ “', '” ＋ 外访地址内容 ＋ “', '” ＋ 外访结果内容 ＋ “', '” ＋ 关系内容 ＋ “')”<br />         .如果真 (执行SQL语句 (句柄, sql语句) ＝ 假)<br />             调试输出 (sql语句)<br />         .如果真结束<br /> <br />         i ＝ i ＋ 1<br />     .判断循环尾 ()<br />     调试输出 (文件名, i － 10)<br /> <br /> <br /> <br /> <br /> .判断 (取催记类型 ＝ “外访”)<br />     i ＝ 0<br />     跳出 ＝ 0<br /> <br />     调试输出 (位置1.时间位置, 位置1.姓名位置, 位置1.外访地址位置, 位置1.外访结果位置)<br /> <br />     .判断循环首 (真)<br />         判断内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.时间位置 － 1, #Celltype_String), “ ”)<br /> <br />         .如果 (判断内容 ＝ “”)<br />             跳出 ＝ 跳出 ＋ 1<br />             i ＝ i ＋ 1<br />             .如果真 (跳出 ＞ 10)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />             到循环尾 ()<br /> <br />         .否则<br /> <br />             跳出 ＝ 0<br />         .如果结束<br />         姓名内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.姓名位置 － 1, #Celltype_String), “ ”)<br />         .如果真 (姓名内容 ≠ “姓名”)<br />             时间内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.时间位置 － 1, #Celltype_String))<br /> <br /> <br />             外访地址内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.外访地址位置 － 1, #Celltype_String))<br />             外访结果内容 ＝ 内容替换新 (xx.表格取单元格内容_ (sheet, i, 位置1.外访结果位置 － 1, #Celltype_String))<br />             .如果真 (取文本长度 (时间内容) ＝ 5 且 寻找文本 (时间内容, “.”, , 假) ＜ 0 且 寻找文本 (时间内容, “-”, , 假) ＜ 0)<br />                 时间内容 ＝ 时间_时间戳转文本 (到文本 (到整数 ((到整数 (时间内容) － 25569) × 3600 × 24)))<br />             .如果真结束<br />             .如果真 (寻找文本 (时间内容, “.”, , 假) ＞ 0)<br />                 数组 ＝ 分割文本 (时间内容, “.”, )<br />                 时间内容 ＝ 数组 [1] ＋ “-” ＋ 取文本右边 (“0” ＋ 数组 [2], 2) ＋ “-” ＋ 取文本右边 (“0” ＋ 数组 [3], 2) ＋ “ 00:00:00”<br />             .如果真结束<br />             时间内容 ＝ 取文本左边 (时间内容 ＋ “ 00:00:00”, 19)<br /> <br />             .如果 (姓名时间查哈行 (姓名内容, 时间内容, ***内容, 卡号内容, 催收员内容, 公司内容))<br />                 执行SQL语句 (句柄, “set names gbk”)<br /> <br />                 sql语句 ＝ “INSERT INTO `hahang`(`id`, `leixing`, `xingming`, `shijian`, `kahao`, `shenfenzheng`, `gongsi`, `cuishouyuan`, `dianhua`, `cuiji`, `waifangdizhi`, `waifangjieguo`, `guanxi`) VALUES (null, '外访', '” ＋ 姓名内容 ＋ “', '” ＋ 时间内容 ＋ “', '” ＋ 卡号内容 ＋ “', '” ＋ ***内容 ＋ “', '” ＋ 公司内容 ＋ “', '” ＋ 催收员内容 ＋ “', '” ＋ 电话内容 ＋ “', '” ＋ 催记内容 ＋ “', '” ＋ 外访地址内容 ＋ “', '” ＋ 外访结果内容 ＋ “', '外访地址')”<br />                 .如果真 (执行SQL语句 (句柄, sql语句) ＝ 假)<br />                     调试输出 (sql语句)<br />                 .如果真结束<br /> <br /> <br />             .否则<br /> <br />                 调试输出 (姓名内容, 时间内容, xx.表格取单元格内容_ (sheet, i, 位置1.时间位置 － 1, #Celltype_Empty))<br />             .如果结束<br /> <br />         .如果真结束<br /> <br /> <br /> <br />         i ＝ i ＋ 1<br />     .判断循环尾 ()<br />     调试输出 (文件名, 到整数 (i － 10))<br /> <br /> <br /> <br /> <br /> .默认<br /> <br />     调试输出 (文件名, “催记类型不等于电催和外访”)

LibXL39.zip (2.06 MB, 下载次数: 67)

2022-2-19 16:44 上传

点击文件名下载附件

王刚123456

嘻，，学习一下

apjy

先下后看。

amycarl

感谢分享，新人学习

year1970

感谢分享

m348820

大佬们加密的如何打开呀

mning

谢谢分享！

ketong

感谢楼主，好详细。

lxh3936815

lxh3936815