来大佬帮我看一下如何全部提前出来

是风情吖

来看看如何写把里面的信息全部提取出来，现在只能提取一个 我想全部都要

这拳十年功力

这样写。。。

冷渣渣

循环取标题啊

久居时光

你这不是源码吗，直接写入剪切板不就好了

是风情吖

久居时光 发表于 2024-12-25 17:37
你这不是源码吗，直接写入剪切板不就好了

就是不会写

久居时光

是风情吖 发表于 2024-12-25 17:38
就是不会写

那你发代码等人帮你写吧，不然别人没办法帮你改

是风情吖

久居时光 发表于 2024-12-25 17:40
那你发代码等人帮你写吧，不然别人没办法帮你改

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1			易编程分享群：685083092

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕			易编程分享群：685083092

拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件			易编程分享群：685083092
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
接收的文本	文本型
文本数组	文本型		0
i	整数型
文本数组1	文本型		0
行数	整数型

超级列表框1.全部删除 ()
接收的文本 ＝ 编码_URL解码 (到文本 (读入文件 (接收到的文件路径)), 真)
文本_分割文本 (接收的文本, #换行符, , 文本数组)
计次循环首 (取数组成员数 (文本数组), i)
行数 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (行数, 0, 到文本 (行数 ＋ 1))
文本_分割文本 (文本数组 [i], “----”, , 文本数组1)
计次循环首 (取数组成员数 (文本数组1), i)
超级列表框1.置标题 (行数, i, 文本数组1 [i])
计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击			易编程分享群：685083092

启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1			易编程分享群：685083092

变量名	类 型	静态	数组	备 注
行数	整数型
QQ	文本型
i	整数型
次数	整数型
返回值	文本型
mobile	文本型
province	文本型
city	文本型
sp	文本型
IP	文本型
diqu	文本型

次数 ＝ 超级列表框1.取表项数 ()
调试输出 (次数)
计次循环首 (次数, i)
QQ ＝ 超级列表框1.取标题 (行数, 1)
调试输出 (QQ)
返回值 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://zy.xywlapi.cc/qqcx2023?qq=” ＋ QQ)), 真)
调试输出 (返回值)
mobile ＝ 文本_取出中间文本 (返回值, #手机号前, #手机号后, , 真)
diqu ＝ 文本_取出中间文本 (返回值, #地区前, #地区后, , 真)
超级列表框1.置标题 (行数, 3, mobile)
超级列表框1.置标题 (行数, 4, diqu)
超级列表框1.置标题 (行数, 6, sp)
如果真 (文本_寻找文本 (返回值, “库中并没有这个记录！”, , 真) ≠ -1)
超级列表框1.置标题 (行数, 2, “没有记录”)
超级列表框1.置标题 (行数, 3, “空”)
超级列表框1.置标题 (行数, 4, “空”)
超级列表框1.置标题 (行数, 5, “空”)
超级列表框1.置标题 (行数, 6, “空”)
如果真 (mobile ≠ “”)
超级列表框1.置标题 (行数, 2, “查询成功”)
行数 ＝ 行数 ＋ 1
程序_延时 (200, )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_导出选中手机号_被选择			易编程分享群：685083092

变量名	类 型	静态	数组	备 注
保存的文件名	文本型
n	整数型
临时文本	文本型

通用对话框1.类型 ＝ 1
通用对话框1.过滤器 ＝ “文本文件（*.txt）丨*.txt”
通用对话框1.打开 ()
保存的文件名 ＝ 通用对话框1.文件名
计次循环首 (超级列表框1.取表项数 (), n)
临时文本 ＝ 临时文本 ＋ 超级列表框1.取标题 (n － 1, 3) ＋ #换行符
计次循环尾 ()
如果 (写到文件 (保存的文件名, 到字节集 (临时文本)) ＝ 真)
信息框 (“成功”, 0, , )
信息框 (“失败”, 0, , )

子程序名	返回值类型	公开	备 注
_复制_被选择			易编程分享群：685083092

变量名	类 型	静态	数组	备 注
表项组	整数型		0
表项数	整数型
i	整数型
第二列	文本型
第三列	文本型
第四列	文本型
第五列	文本型
第六列	文本型
第七列	文本型
复制文本	文本型

表项组 ＝ 超级列表框1.取被选择表项 ()
调试输出 (表项组)
表项数 ＝ 取数组成员数 (表项组)  ' 第一列
如果真 (表项数 ＝ 0)
返回 ()
计次循环首 (表项数, i)
第二列 ＝ 超级列表框1.取标题 (表项组 [i], 1)  ' 第二列
第三列 ＝ 超级列表框1.取标题 (表项组 [i], 2)  ' 第三列
第四列 ＝ 超级列表框1.取标题 (表项组 [i], 3)  ' 第四列
复制文本 ＝ 复制文本 ＋ 第四列 ＋ #换行符
计次循环尾 ()
置剪辑板文本 (复制文本)

i支持库列表	支持库注释
edroptarget	拖放支持库
iext	扩展界面支持库一
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 edroptarget<br /> .支持库 iext<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1, , , 易编程分享群：685083092<br /> <br /> .子程序 _窗口1_创建完毕, , , 易编程分享群：685083092<br /> <br /> 拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())<br /> <br /> .子程序 _拖放对象1_得到文件, , , 易编程分享群：685083092<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 接收的文本, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文本数组1, 文本型, , "0"<br /> .局部变量 行数, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 接收的文本 ＝ 编码_URL解码 (到文本 (读入文件 (接收到的文件路径)), 真)<br /> 文本_分割文本 (接收的文本, #换行符, , 文本数组)<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     行数 ＝ 超级列表框1.插入表项 (, , , , , )<br /> <br />     超级列表框1.置标题 (行数, 0, 到文本 (行数 ＋ 1))<br />     文本_分割文本 (文本数组 <i>, “----”, , 文本数组1)<br />     .计次循环首 (取数组成员数 (文本数组1), i)<br />         超级列表框1.置标题 (行数, i, 文本数组1 <i>)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮2_被单击, , , 易编程分享群：685083092<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1, , , 易编程分享群：685083092<br /> .局部变量 行数, 整数型<br /> .局部变量 QQ, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 次数, 整数型<br /> .局部变量 返回值, 文本型<br /> .局部变量 mobile, 文本型<br /> .局部变量 province, 文本型<br /> .局部变量 city, 文本型<br /> .局部变量 sp, 文本型<br /> .局部变量 IP, 文本型<br /> .局部变量 diqu, 文本型<br /> <br /> 次数 ＝ 超级列表框1.取表项数 ()<br /> 调试输出 (次数)<br /> .计次循环首 (次数, i)<br />     QQ ＝ 超级列表框1.取标题 (行数, 1)<br />     调试输出 (QQ)<br />     返回值 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://zy.xywlapi.cc/qqcx2023?qq=” ＋ QQ)), 真)<br />     调试输出 (返回值)<br />     mobile ＝ 文本_取出中间文本 (返回值, #手机号前, #手机号后, , 真)<br />     diqu ＝ 文本_取出中间文本 (返回值, #地区前, #地区后, , 真)<br />     超级列表框1.置标题 (行数, 3, mobile)<br />     超级列表框1.置标题 (行数, 4, diqu)<br />     超级列表框1.置标题 (行数, 6, sp)<br />     .如果真 (文本_寻找文本 (返回值, “库中并没有这个记录！”, , 真) ≠ -1)<br />         超级列表框1.置标题 (行数, 2, “没有记录”)<br />         超级列表框1.置标题 (行数, 3, “空”)<br />         超级列表框1.置标题 (行数, 4, “空”)<br />         超级列表框1.置标题 (行数, 5, “空”)<br />         超级列表框1.置标题 (行数, 6, “空”)<br />     .如果真结束<br />     .如果真 (mobile ≠ “”)<br />         超级列表框1.置标题 (行数, 2, “查询成功”)<br />     .如果真结束<br />     行数 ＝ 行数 ＋ 1<br />     程序_延时 (200, )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _导出选中手机号_被选择, , , 易编程分享群：685083092<br /> .局部变量 保存的文件名, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 临时文本, 文本型<br /> <br /> 通用对话框1.类型 ＝ 1<br /> 通用对话框1.过滤器 ＝ “文本文件（*.txt）丨*.txt”<br /> 通用对话框1.打开 ()<br /> 保存的文件名 ＝ 通用对话框1.文件名<br /> .计次循环首 (超级列表框1.取表项数 (), n)<br />     临时文本 ＝ 临时文本 ＋ 超级列表框1.取标题 (n － 1, 3) ＋ #换行符<br /> .计次循环尾 ()<br /> .如果 (写到文件 (保存的文件名, 到字节集 (临时文本)) ＝ 真)<br />     信息框 (“成功”, 0, , )<br /> .否则<br />     信息框 (“失败”, 0, , )<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _复制_被选择, , , 易编程分享群：685083092<br /> .局部变量 表项组, 整数型, , "0"<br /> .局部变量 表项数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 第二列, 文本型<br /> .局部变量 第三列, 文本型<br /> .局部变量 第四列, 文本型<br /> .局部变量 第五列, 文本型<br /> .局部变量 第六列, 文本型<br /> .局部变量 第七列, 文本型<br /> .局部变量 复制文本, 文本型<br /> <br /> 表项组 ＝ 超级列表框1.取被选择表项 ()<br /> 调试输出 (表项组)<br /> 表项数 ＝ 取数组成员数 (表项组)  ' 第一列<br /> .如果真 (表项数 ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (表项数, i)<br />     第二列 ＝ 超级列表框1.取标题 (表项组 <i>, 1)  ' 第二列<br />     第三列 ＝ 超级列表框1.取标题 (表项组 <i>, 2)  ' 第三列<br />     第四列 ＝ 超级列表框1.取标题 (表项组 <i>, 3)  ' 第四列<br />     复制文本 ＝ 复制文本 ＋ 第四列 ＋ #换行符<br /> .计次循环尾 ()<br /> 置剪辑板文本 (复制文本)

是风情吖

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1			易编程分享群：685083092

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕			易编程分享群：685083092

拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件			易编程分享群：685083092
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
接收的文本	文本型
文本数组	文本型		0
i	整数型
文本数组1	文本型		0
行数	整数型

超级列表框1.全部删除 ()
接收的文本 ＝ 编码_URL解码 (到文本 (读入文件 (接收到的文件路径)), 真)
文本_分割文本 (接收的文本, #换行符, , 文本数组)
计次循环首 (取数组成员数 (文本数组), i)
行数 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (行数, 0, 到文本 (行数 ＋ 1))
文本_分割文本 (文本数组 [i], “----”, , 文本数组1)
计次循环首 (取数组成员数 (文本数组1), i)
超级列表框1.置标题 (行数, i, 文本数组1 [i])
计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击			易编程分享群：685083092

启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1			易编程分享群：685083092

变量名	类 型	静态	数组	备 注
行数	整数型
QQ	文本型
i	整数型
次数	整数型
返回值	文本型
mobile	文本型
province	文本型
city	文本型
sp	文本型
IP	文本型
diqu	文本型

次数 ＝ 超级列表框1.取表项数 ()
调试输出 (次数)
计次循环首 (次数, i)
QQ ＝ 超级列表框1.取标题 (行数, 1)
调试输出 (QQ)
返回值 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://zy.xywlapi.cc/qqcx2023?qq=” ＋ QQ)), 真)
调试输出 (返回值)
mobile ＝ 文本_取出中间文本 (返回值, #手机号前, #手机号后, , 真)
diqu ＝ 文本_取出中间文本 (返回值, #地区前, #地区后, , 真)
超级列表框1.置标题 (行数, 3, mobile)
超级列表框1.置标题 (行数, 4, diqu)
超级列表框1.置标题 (行数, 6, sp)
如果真 (文本_寻找文本 (返回值, “库中并没有这个记录！”, , 真) ≠ -1)
超级列表框1.置标题 (行数, 2, “没有记录”)
超级列表框1.置标题 (行数, 3, “空”)
超级列表框1.置标题 (行数, 4, “空”)
超级列表框1.置标题 (行数, 5, “空”)
超级列表框1.置标题 (行数, 6, “空”)
如果真 (mobile ≠ “”)
超级列表框1.置标题 (行数, 2, “查询成功”)
行数 ＝ 行数 ＋ 1
程序_延时 (200, )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_导出选中手机号_被选择			易编程分享群：685083092

变量名	类 型	静态	数组	备 注
保存的文件名	文本型
n	整数型
临时文本	文本型

通用对话框1.类型 ＝ 1
通用对话框1.过滤器 ＝ “文本文件（*.txt）丨*.txt”
通用对话框1.打开 ()
保存的文件名 ＝ 通用对话框1.文件名
计次循环首 (超级列表框1.取表项数 (), n)
临时文本 ＝ 临时文本 ＋ 超级列表框1.取标题 (n － 1, 3) ＋ #换行符
计次循环尾 ()
如果 (写到文件 (保存的文件名, 到字节集 (临时文本)) ＝ 真)
信息框 (“成功”, 0, , )
信息框 (“失败”, 0, , )

子程序名	返回值类型	公开	备 注
_复制_被选择			易编程分享群：685083092

变量名	类 型	静态	数组	备 注
表项组	整数型		0
表项数	整数型
i	整数型
第二列	文本型
第三列	文本型
第四列	文本型
第五列	文本型
第六列	文本型
第七列	文本型
复制文本	文本型

表项组 ＝ 超级列表框1.取被选择表项 ()
调试输出 (表项组)
表项数 ＝ 取数组成员数 (表项组)  ' 第一列
如果真 (表项数 ＝ 0)
返回 ()
计次循环首 (表项数, i)
第二列 ＝ 超级列表框1.取标题 (表项组 [i], 1)  ' 第二列
第三列 ＝ 超级列表框1.取标题 (表项组 [i], 2)  ' 第三列
第四列 ＝ 超级列表框1.取标题 (表项组 [i], 3)  ' 第四列
复制文本 ＝ 复制文本 ＋ 第四列 ＋ #换行符
计次循环尾 ()
置剪辑板文本 (复制文本)

i支持库列表	支持库注释
edroptarget	拖放支持库
iext	扩展界面支持库一
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 edroptarget<br /> .支持库 iext<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1, , , 易编程分享群：685083092<br /> <br /> .子程序 _窗口1_创建完毕, , , 易编程分享群：685083092<br /> <br /> 拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())<br /> <br /> .子程序 _拖放对象1_得到文件, , , 易编程分享群：685083092<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 接收的文本, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文本数组1, 文本型, , "0"<br /> .局部变量 行数, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 接收的文本 ＝ 编码_URL解码 (到文本 (读入文件 (接收到的文件路径)), 真)<br /> 文本_分割文本 (接收的文本, #换行符, , 文本数组)<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     行数 ＝ 超级列表框1.插入表项 (, , , , , )<br /> <br />     超级列表框1.置标题 (行数, 0, 到文本 (行数 ＋ 1))<br />     文本_分割文本 (文本数组 <i>, “----”, , 文本数组1)<br />     .计次循环首 (取数组成员数 (文本数组1), i)<br />         超级列表框1.置标题 (行数, i, 文本数组1 <i>)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮2_被单击, , , 易编程分享群：685083092<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1, , , 易编程分享群：685083092<br /> .局部变量 行数, 整数型<br /> .局部变量 QQ, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 次数, 整数型<br /> .局部变量 返回值, 文本型<br /> .局部变量 mobile, 文本型<br /> .局部变量 province, 文本型<br /> .局部变量 city, 文本型<br /> .局部变量 sp, 文本型<br /> .局部变量 IP, 文本型<br /> .局部变量 diqu, 文本型<br /> <br /> 次数 ＝ 超级列表框1.取表项数 ()<br /> 调试输出 (次数)<br /> .计次循环首 (次数, i)<br />     QQ ＝ 超级列表框1.取标题 (行数, 1)<br />     调试输出 (QQ)<br />     返回值 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://zy.xywlapi.cc/qqcx2023?qq=” ＋ QQ)), 真)<br />     调试输出 (返回值)<br />     mobile ＝ 文本_取出中间文本 (返回值, #手机号前, #手机号后, , 真)<br />     diqu ＝ 文本_取出中间文本 (返回值, #地区前, #地区后, , 真)<br />     超级列表框1.置标题 (行数, 3, mobile)<br />     超级列表框1.置标题 (行数, 4, diqu)<br />     超级列表框1.置标题 (行数, 6, sp)<br />     .如果真 (文本_寻找文本 (返回值, “库中并没有这个记录！”, , 真) ≠ -1)<br />         超级列表框1.置标题 (行数, 2, “没有记录”)<br />         超级列表框1.置标题 (行数, 3, “空”)<br />         超级列表框1.置标题 (行数, 4, “空”)<br />         超级列表框1.置标题 (行数, 5, “空”)<br />         超级列表框1.置标题 (行数, 6, “空”)<br />     .如果真结束<br />     .如果真 (mobile ≠ “”)<br />         超级列表框1.置标题 (行数, 2, “查询成功”)<br />     .如果真结束<br />     行数 ＝ 行数 ＋ 1<br />     程序_延时 (200, )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _导出选中手机号_被选择, , , 易编程分享群：685083092<br /> .局部变量 保存的文件名, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 临时文本, 文本型<br /> <br /> 通用对话框1.类型 ＝ 1<br /> 通用对话框1.过滤器 ＝ “文本文件（*.txt）丨*.txt”<br /> 通用对话框1.打开 ()<br /> 保存的文件名 ＝ 通用对话框1.文件名<br /> .计次循环首 (超级列表框1.取表项数 (), n)<br />     临时文本 ＝ 临时文本 ＋ 超级列表框1.取标题 (n － 1, 3) ＋ #换行符<br /> .计次循环尾 ()<br /> .如果 (写到文件 (保存的文件名, 到字节集 (临时文本)) ＝ 真)<br />     信息框 (“成功”, 0, , )<br /> .否则<br />     信息框 (“失败”, 0, , )<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _复制_被选择, , , 易编程分享群：685083092<br /> .局部变量 表项组, 整数型, , "0"<br /> .局部变量 表项数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 第二列, 文本型<br /> .局部变量 第三列, 文本型<br /> .局部变量 第四列, 文本型<br /> .局部变量 第五列, 文本型<br /> .局部变量 第六列, 文本型<br /> .局部变量 第七列, 文本型<br /> .局部变量 复制文本, 文本型<br /> <br /> 表项组 ＝ 超级列表框1.取被选择表项 ()<br /> 调试输出 (表项组)<br /> 表项数 ＝ 取数组成员数 (表项组)  ' 第一列<br /> .如果真 (表项数 ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (表项数, i)<br />     第二列 ＝ 超级列表框1.取标题 (表项组 <i>, 1)  ' 第二列<br />     第三列 ＝ 超级列表框1.取标题 (表项组 <i>, 2)  ' 第三列<br />     第四列 ＝ 超级列表框1.取标题 (表项组 <i>, 3)  ' 第四列<br />     复制文本 ＝ 复制文本 ＋ 第四列 ＋ #换行符<br /> .计次循环尾 ()<br /> 置剪辑板文本 (复制文本)

是风情吖

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1			易编程分享群：685083092

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕			易编程分享群：685083092

拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件			易编程分享群：685083092
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
接收的文本	文本型
文本数组	文本型		0
i	整数型
文本数组1	文本型		0
行数	整数型

超级列表框1.全部删除 ()
接收的文本 ＝ 编码_URL解码 (到文本 (读入文件 (接收到的文件路径)), 真)
文本_分割文本 (接收的文本, #换行符, , 文本数组)
计次循环首 (取数组成员数 (文本数组), i)
行数 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (行数, 0, 到文本 (行数 ＋ 1))
文本_分割文本 (文本数组 [i], “----”, , 文本数组1)
计次循环首 (取数组成员数 (文本数组1), i)
超级列表框1.置标题 (行数, i, 文本数组1 [i])
计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击			易编程分享群：685083092

启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1			易编程分享群：685083092

变量名	类 型	静态	数组	备 注
行数	整数型
QQ	文本型
i	整数型
次数	整数型
返回值	文本型
mobile	文本型
province	文本型
city	文本型
sp	文本型
IP	文本型
diqu	文本型

次数 ＝ 超级列表框1.取表项数 ()
调试输出 (次数)
计次循环首 (次数, i)
QQ ＝ 超级列表框1.取标题 (行数, 1)
调试输出 (QQ)
返回值 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://zy.xywlapi.cc/qqcx2023?qq=” ＋ QQ)), 真)
调试输出 (返回值)
mobile ＝ 文本_取出中间文本 (返回值, #手机号前, #手机号后, , 真)
diqu ＝ 文本_取出中间文本 (返回值, #地区前, #地区后, , 真)
超级列表框1.置标题 (行数, 3, mobile)
超级列表框1.置标题 (行数, 4, diqu)
超级列表框1.置标题 (行数, 6, sp)
如果真 (文本_寻找文本 (返回值, “库中并没有这个记录！”, , 真) ≠ -1)
超级列表框1.置标题 (行数, 2, “没有记录”)
超级列表框1.置标题 (行数, 3, “空”)
超级列表框1.置标题 (行数, 4, “空”)
超级列表框1.置标题 (行数, 5, “空”)
超级列表框1.置标题 (行数, 6, “空”)
如果真 (mobile ≠ “”)
超级列表框1.置标题 (行数, 2, “查询成功”)
行数 ＝ 行数 ＋ 1
程序_延时 (200, )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_导出选中手机号_被选择			易编程分享群：685083092

变量名	类 型	静态	数组	备 注
保存的文件名	文本型
n	整数型
临时文本	文本型

通用对话框1.类型 ＝ 1
通用对话框1.过滤器 ＝ “文本文件（*.txt）丨*.txt”
通用对话框1.打开 ()
保存的文件名 ＝ 通用对话框1.文件名
计次循环首 (超级列表框1.取表项数 (), n)
临时文本 ＝ 临时文本 ＋ 超级列表框1.取标题 (n － 1, 3) ＋ #换行符
计次循环尾 ()
如果 (写到文件 (保存的文件名, 到字节集 (临时文本)) ＝ 真)
信息框 (“成功”, 0, , )
信息框 (“失败”, 0, , )

子程序名	返回值类型	公开	备 注
_复制_被选择			易编程分享群：685083092

变量名	类 型	静态	数组	备 注
表项组	整数型		0
表项数	整数型
i	整数型
第二列	文本型
第三列	文本型
第四列	文本型
第五列	文本型
第六列	文本型
第七列	文本型
复制文本	文本型

表项组 ＝ 超级列表框1.取被选择表项 ()
调试输出 (表项组)
表项数 ＝ 取数组成员数 (表项组)  ' 第一列
如果真 (表项数 ＝ 0)
返回 ()
计次循环首 (表项数, i)
第二列 ＝ 超级列表框1.取标题 (表项组 [i], 1)  ' 第二列
第三列 ＝ 超级列表框1.取标题 (表项组 [i], 2)  ' 第三列
第四列 ＝ 超级列表框1.取标题 (表项组 [i], 3)  ' 第四列
复制文本 ＝ 复制文本 ＋ 第四列 ＋ #换行符
计次循环尾 ()
置剪辑板文本 (复制文本)

i支持库列表	支持库注释
edroptarget	拖放支持库
iext	扩展界面支持库一
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 edroptarget<br /> .支持库 iext<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1, , , 易编程分享群：685083092<br /> <br /> .子程序 _窗口1_创建完毕, , , 易编程分享群：685083092<br /> <br /> 拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())<br /> <br /> .子程序 _拖放对象1_得到文件, , , 易编程分享群：685083092<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 接收的文本, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文本数组1, 文本型, , "0"<br /> .局部变量 行数, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 接收的文本 ＝ 编码_URL解码 (到文本 (读入文件 (接收到的文件路径)), 真)<br /> 文本_分割文本 (接收的文本, #换行符, , 文本数组)<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     行数 ＝ 超级列表框1.插入表项 (, , , , , )<br /> <br />     超级列表框1.置标题 (行数, 0, 到文本 (行数 ＋ 1))<br />     文本_分割文本 (文本数组 <i>, “----”, , 文本数组1)<br />     .计次循环首 (取数组成员数 (文本数组1), i)<br />         超级列表框1.置标题 (行数, i, 文本数组1 <i>)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮2_被单击, , , 易编程分享群：685083092<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1, , , 易编程分享群：685083092<br /> .局部变量 行数, 整数型<br /> .局部变量 QQ, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 次数, 整数型<br /> .局部变量 返回值, 文本型<br /> .局部变量 mobile, 文本型<br /> .局部变量 province, 文本型<br /> .局部变量 city, 文本型<br /> .局部变量 sp, 文本型<br /> .局部变量 IP, 文本型<br /> .局部变量 diqu, 文本型<br /> <br /> 次数 ＝ 超级列表框1.取表项数 ()<br /> 调试输出 (次数)<br /> .计次循环首 (次数, i)<br />     QQ ＝ 超级列表框1.取标题 (行数, 1)<br />     调试输出 (QQ)<br />     返回值 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://zy.xywlapi.cc/qqcx2023?qq=” ＋ QQ)), 真)<br />     调试输出 (返回值)<br />     mobile ＝ 文本_取出中间文本 (返回值, #手机号前, #手机号后, , 真)<br />     diqu ＝ 文本_取出中间文本 (返回值, #地区前, #地区后, , 真)<br />     超级列表框1.置标题 (行数, 3, mobile)<br />     超级列表框1.置标题 (行数, 4, diqu)<br />     超级列表框1.置标题 (行数, 6, sp)<br />     .如果真 (文本_寻找文本 (返回值, “库中并没有这个记录！”, , 真) ≠ -1)<br />         超级列表框1.置标题 (行数, 2, “没有记录”)<br />         超级列表框1.置标题 (行数, 3, “空”)<br />         超级列表框1.置标题 (行数, 4, “空”)<br />         超级列表框1.置标题 (行数, 5, “空”)<br />         超级列表框1.置标题 (行数, 6, “空”)<br />     .如果真结束<br />     .如果真 (mobile ≠ “”)<br />         超级列表框1.置标题 (行数, 2, “查询成功”)<br />     .如果真结束<br />     行数 ＝ 行数 ＋ 1<br />     程序_延时 (200, )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _导出选中手机号_被选择, , , 易编程分享群：685083092<br /> .局部变量 保存的文件名, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 临时文本, 文本型<br /> <br /> 通用对话框1.类型 ＝ 1<br /> 通用对话框1.过滤器 ＝ “文本文件（*.txt）丨*.txt”<br /> 通用对话框1.打开 ()<br /> 保存的文件名 ＝ 通用对话框1.文件名<br /> .计次循环首 (超级列表框1.取表项数 (), n)<br />     临时文本 ＝ 临时文本 ＋ 超级列表框1.取标题 (n － 1, 3) ＋ #换行符<br /> .计次循环尾 ()<br /> .如果 (写到文件 (保存的文件名, 到字节集 (临时文本)) ＝ 真)<br />     信息框 (“成功”, 0, , )<br /> .否则<br />     信息框 (“失败”, 0, , )<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _复制_被选择, , , 易编程分享群：685083092<br /> .局部变量 表项组, 整数型, , "0"<br /> .局部变量 表项数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 第二列, 文本型<br /> .局部变量 第三列, 文本型<br /> .局部变量 第四列, 文本型<br /> .局部变量 第五列, 文本型<br /> .局部变量 第六列, 文本型<br /> .局部变量 第七列, 文本型<br /> .局部变量 复制文本, 文本型<br /> <br /> 表项组 ＝ 超级列表框1.取被选择表项 ()<br /> 调试输出 (表项组)<br /> 表项数 ＝ 取数组成员数 (表项组)  ' 第一列<br /> .如果真 (表项数 ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (表项数, i)<br />     第二列 ＝ 超级列表框1.取标题 (表项组 <i>, 1)  ' 第二列<br />     第三列 ＝ 超级列表框1.取标题 (表项组 <i>, 2)  ' 第三列<br />     第四列 ＝ 超级列表框1.取标题 (表项组 <i>, 3)  ' 第四列<br />     复制文本 ＝ 复制文本 ＋ 第四列 ＋ #换行符<br /> .计次循环尾 ()<br /> 置剪辑板文本 (复制文本)

Ruang

没有原数据怎么写？