火山软件开发访问网页查找电话号和读写文件应用

火山软件开发平台官方论坛 - Powered by Discuz!

火山软件开发访问网页查找电话号

引用 curl网络传输 和 html解析工具类 模块

声明变量 网络访问类 ，就可用网页访问得到网页内容，返回结果是文本型字符串，然后用高级网页解析器解析网页内容，就能取到网页上号码所在元素

普通网页解析器遇到复杂网页容易失败

另外调试输出发现网页内容太多竟然输出只有一部分，就分割文本循环拼接输出

循环 (0, k, i)
调试输出 (取文本中间 (文本内容, i * J, J))

---------------------------

读写文件是看农行账单，发现复制出来放到excel表格里不是表格，分析他的网页不是表格是一堆div之类，好吧复制出来自己放到txt文件里每个字段是一行，那就读这个文件，拼接几行成一行输出到csv文件，再打开csv，复制粘贴到电子表格里，这样账单好看多了

火山的文件读写类本来有按行读写，但是我实验的结果发现会有乱码，可能是默认文件编码问题，后来就是用字节集读写正常

wb = UTF8到文本 (du.读入字节集 (1000))
i = 分割文本 (wb, "\r\n", hang, 真, 真)

-------------------
balance = 取文本左边 (hang.取成员 (7 * i + 6), 寻找文本 (hang.取成员 (7 * i + 6), "/"))
wb = hang.取成员 (7 * i + 0) + "," + hang.取成员 (7 * i + 1) + "," + hang.取成员 (7 * i + 2) + "," + hang.取成员 (7 * i + 3) + "," + hang.取成员 (7 * i + 4) + ",`" + hang.取成员 (7 * i + 5) + "," + balance + ""

xie.写出字节集 (文本到UTF8 (wb + "\r\n"))

另外打开文件用通用对话框，mfc界面库里组件，代码里直接声明可用

openFile.类型 = 通用对话框类型.打开文件
openFile.过滤器 = "文本文件(*.txt)|*.txt"
openFile.初始目录 = 取当前目录 ()
openFile.标题 = "寻找原始账单记录文件"
如果真 (openFile.打开 (本对象))
   另存路径.内容 = savePath.文件名