获取微云笔记内容

呓语丶

由于我只是用来做个简单的验证  所以没写格式处理方面
如果有文本加粗之类的东西   自己测试改改就行
调用了精易模块和aalib的Rjson

aalib v1.5.4  json/日志/协程/哈希表/正则/自定义类型传参
https://bbs.125.la/forum.php?mod=viewthread&tid=14719209
(出处: 精易论坛)

  

.版本 2.支持库 aalib

子程序名	返回值类型	公开	备 注
取微云笔记内容	逻辑型		第一行为标题  遍历其余内容赋值内容参数
参数名	类 型	参考	可空	数组	备 注
_url	文本型
_标题	文本型
_内容	文本型

变量名	类 型	静态	数组	备 注
_临时文本	文本型
json	Rjson
局_文本	文本型		0
i	整数型

_临时文本 ＝ 网页_访问S (_url, , , , , , , , , , , , , , , , , , , , )
_临时文本 ＝ 文本_取出中间文本 (_临时文本, “window.syncData = ”, “;</script><script>”, , )
_临时文本 ＝ 子文本替换 (_临时文本, “\u003C”, “<”, , , 真)
json.解析 (_临时文本, , )
_临时文本 ＝ json.取文本 (“shareData/note_list/0/html_content”)
文本_取中间_批量 (_临时文本, “<p>”, “</p>”, 局_文本, , , , , , , )
如果真 (取数组成员数 (局_文本) ＝ 0)
返回 (假)

如果真 (取数组成员数 (局_文本) ＝ 1)
_标题 ＝ 局_文本 [1]
返回 (真)

_标题 ＝ 局_文本 [1]
计次循环首 (取数组成员数 (局_文本), i)
如果真 (i ＋ 1 ≤ 取数组成员数 (局_文本))
_内容 ＝ _内容 ＋ 局_文本 [i ＋ 1] ＋ #换行符

计次循环尾 ()
返回 (真)

.版本 2.支持库 aalib<br /> <br /> .子程序 取微云笔记内容, 逻辑型, , 第一行为标题  遍历其余内容赋值内容参数<br /> .参数 _url, 文本型<br /> .参数 _标题, 文本型, 参考 可空<br /> .参数 _内容, 文本型, 参考 可空<br /> .局部变量 _临时文本, 文本型<br /> .局部变量 json, Rjson<br /> .局部变量 局_文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> _临时文本 ＝ 网页_访问S (_url, , , , , , , , , , , , , , , , , , , , )<br /> _临时文本 ＝ 文本_取出中间文本 (_临时文本, “window.syncData = ”, “;</script><script>”, , )<br /> _临时文本 ＝ 子文本替换 (_临时文本, “\u003C”, “<”, , , 真)<br /> <br /> json.解析 (_临时文本, , )<br /> _临时文本 ＝ json.取文本 (“shareData/note_list/0/html_content”)<br /> 文本_取中间_批量 (_临时文本, “<p>”, “</p>”, 局_文本, , , , , , , )<br /> <br /> .如果真 (取数组成员数 (局_文本) ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> <br /> .如果真 (取数组成员数 (局_文本) ＝ 1)<br />     _标题 ＝ 局_文本 [1]<br />     返回 (真)<br /> .如果真结束<br /> <br /> _标题 ＝ 局_文本 [1]<br /> <br /> .计次循环首 (取数组成员数 (局_文本), i)<br /> <br />     .如果真 (i ＋ 1 ≤ 取数组成员数 (局_文本))<br />         _内容 ＝ _内容 ＋ 局_文本 [i ＋ 1] ＋ #换行符<br />     .如果真结束<br /> <br /> <br /> .计次循环尾 ()<br /> 返回 (真)

落寞23333

{:7_458:} 可以用编码_usc2到ansi解码

XUHONGSONG

66666666666666666666666

且行

支持开源 感谢分享

a446876764

过来赞一个

a446876764

好用，支持，用完回来的

a446876764

来学习学习

且行

支持原创 支持开源

易语言用户蜜桃

不错，可以去微云的笔记太好了。

jiajia0704

取微云笔记容易，怎么能取微文本

qwe8890

写个实例发上来呗

lzbkunming

谢谢分享