网页获取JSON

永美发

大佬们 怎么没找到 这个 歌单的 json呢
还是这个网页就是没有的 只有 网页源码那些吗？
https://music.apple.com/cn/playlist/%E9%A5%AE%E6%AD%8C/pl.u-leyl09ATjy5bKoj
怎么提前这个 歌名 加 歌手呢

afu45

新建 易程序.e (947.88 KB, 下载次数: 14)

2023-4-16 11:45 上传

点击文件名下载附件

宇智波·泉奈

  

.字符集 "UTF-8"

窗口程序集名	保 留	保 留	备 注
"Wininet.dll"

.数据段
strUrl  db "https://music.apple.com/cn/playlist/%E9%A5%AE%E6%AD%8C/pl.u-leyl09ATjy5bKoj",0
buffer  rb 4096
.堆栈段
.代码段
start:
调用 InternetOpenA, 0, 0, 0, 0, INTERNET_FLAG_NO_CACHE_WRITE, 0
存储结果 eax, hInternet
调用 InternetConnectA, hInternet, "music.apple.com", INTERNET_DEFAULT_HTTPS_PORT, 0, 0, INTERNET_SERVICE_HTTP, 0, 0
存储结果 eax, hConnect
调用 HttpOpenRequestA, hConnect, "GET", strUrl, "HTTP/1.1", 0, 0, INTERNET_FLAG_RELOAD, 0
存储结果 eax, hRequest
调用 HttpSendRequestA, hRequest, 0, 0, 0, 0
跳转如果错误, err
循环:
调用 InternetReadFile, hRequest, buffer, 4096, 取地址 ebx
跳转如果错误, err
跳转如果零, done
调试输出 文本型 (buffer, eax)
跳转 循环
done:
调用 InternetCloseHandle, hRequest
调用 InternetCloseHandle, hConnect
调用 InternetCloseHandle, hInternet
跳转 exit
err:
调试输出 "Failed to download file."
调用 InternetCloseHandle, hRequest
调用 InternetCloseHandle, hConnect
调用 InternetCloseHandle, hInternet
跳转 exit
exit:
返回
end start

.版本 2<br /> .字符集 "UTF-8"<br /> <br /> .程序集 "Wininet.dll"<br /> <br /> .数据段<br />     strUrl  db "https://music.apple.com/cn/playlist/%E9%A5%AE%E6%AD%8C/pl.u-leyl09ATjy5bKoj",0<br />     buffer  rb 4096<br /> .堆栈段<br /> .代码段<br /> start:<br />     调用 InternetOpenA, 0, 0, 0, 0, INTERNET_FLAG_NO_CACHE_WRITE, 0<br />     存储结果 eax, hInternet<br /> <br />     调用 InternetConnectA, hInternet, "music.apple.com", INTERNET_DEFAULT_HTTPS_PORT, 0, 0, INTERNET_SERVICE_HTTP, 0, 0<br />     存储结果 eax, hConnect<br /> <br />     调用 HttpOpenRequestA, hConnect, "GET", strUrl, "HTTP/1.1", 0, 0, INTERNET_FLAG_RELOAD, 0<br />     存储结果 eax, hRequest<br /> <br />     调用 HttpSendRequestA, hRequest, 0, 0, 0, 0<br />     跳转如果错误, err<br /> <br />     循环:<br />         调用 InternetReadFile, hRequest, buffer, 4096, 取地址 ebx<br />         跳转如果错误, err<br />         跳转如果零, done<br />         调试输出 文本型(buffer, eax)<br />         跳转 循环<br />     done:<br />         调用 InternetCloseHandle, hRequest<br />         调用 InternetCloseHandle, hConnect<br />         调用 InternetCloseHandle, hInternet<br />         跳转 exit<br />     err:<br />         调试输出 "Failed to download file."<br />         调用 InternetCloseHandle, hRequest<br />         调用 InternetCloseHandle, hConnect<br />         调用 InternetCloseHandle, hInternet<br />         跳转 exit<br /> exit:<br />     返回<br /> end start

宇智波·泉奈

大佬，根据您提供的链接，这是一个苹果音乐的歌单页面。从该页面获取JSON数据并不容易，因为数据并非以JSON格式提供。但是，您可以通过分析网页源代码来提取歌名和歌手信息。我会给您提供一个易语言的示例代码，但请注意，我并不是易语言的专家，所以这个代码仅供您参考。

易语言代码示例：

  

子程序名	返回值类型	公开	备 注
取网页源码	文本型		文本型

.局部变量 http操作, internet操作
.局部变量 临时文本, 文本型
创建internet操作 (http操作)
http操作.取网页源码 (网址, 临时文本)
返回 临时文本
.子程序结束

子程序名	返回值类型	公开	备 注
提取歌名和歌手	文本型		文本型

.局部变量 歌名歌手列表, 列表型
.局部变量 左边界, 文本型, "songName\":\""
.局部变量 右边界, 文本型, "\",\"artistName\":\""
.局部变量 右边界2, 文本型, "\"}"
.局部变量 结果, 文本型
列表_创建 (歌名歌手列表)
.循环
如果 (文本_取中间 (网页源码, 左边界, 右边界) = "")
.跳出循环
结果 ＝ 文本_取中间 (网页源码, 左边界, 右边界)
结果 ＝ 结果 ＋ " - " ＋ 文本_取中间 (网页源码, 右边界, 右边界2)
列表_添加 (歌名歌手列表, 结果)
网页源码 ＝ 文本_删除左边 (网页源码, 文本_寻找 (网页源码, 右边界2) ＋ 文本_长度 (右边界2))
.结束如果
.循环_直到 (文本_长度 (网页源码) < 1)
返回 列表_连接 (歌名歌手列表, "\n")
.子程序结束
主程序
.常量 音乐网址, 文本型, "https://music.apple.com/cn/playlist/%E9%A5%AE%E6%AD%8C/pl.u-leyl09ATjy5bKoj"
.变量 网页源码, 文本型
.变量 歌名歌手, 文本型
网页源码 ＝ 取网页源码 (音乐网址)
歌名歌手 ＝ 提取歌名和歌手 (网页源码)
输出 "歌名与歌手："
输出 歌名歌手

.版本 2<br /> <br /> .子程序 取网页源码, 文本型, 网址, 文本型<br />     .局部变量 http操作, internet操作<br />     .局部变量 临时文本, 文本型<br />     创建internet操作(http操作)<br />     http操作.取网页源码(网址, 临时文本)<br />     返回 临时文本<br /> .子程序结束<br /> <br /> .子程序 提取歌名和歌手, 文本型, 网页源码, 文本型<br />     .局部变量 歌名歌手列表, 列表型<br />     .局部变量 左边界, 文本型, "songName\":\""<br />     .局部变量 右边界, 文本型, "\",\"artistName\":\""<br />     .局部变量 右边界2, 文本型, "\"}"<br />     .局部变量 结果, 文本型<br /> <br />     列表_创建(歌名歌手列表)<br /> <br />     .循环<br />         .如果 (文本_取中间(网页源码, 左边界, 右边界) = "")<br />             .跳出循环<br />         .否则<br />             结果 ＝ 文本_取中间(网页源码, 左边界, 右边界)<br />             结果 ＝ 结果 ＋ " - " ＋ 文本_取中间(网页源码, 右边界, 右边界2)<br />             列表_添加(歌名歌手列表, 结果)<br />             网页源码 ＝ 文本_删除左边(网页源码, 文本_寻找(网页源码, 右边界2) ＋ 文本_长度(右边界2))<br />         .结束如果<br />     .循环_直到 (文本_长度(网页源码) < 1)<br /> <br />     返回 列表_连接(歌名歌手列表, "\n")<br /> .子程序结束<br /> <br /> 主程序<br />     .常量 音乐网址, 文本型, "https://music.apple.com/cn/playlist/%E9%A5%AE%E6%AD%8C/pl.u-leyl09ATjy5bKoj"<br />     .变量 网页源码, 文本型<br />     .变量 歌名歌手, 文本型<br /> <br />     网页源码 ＝ 取网页源码(音乐网址)<br />     歌名歌手 ＝ 提取歌名和歌手(网页源码)<br /> <br />     输出 "歌名与歌手："<br />     输出 歌名歌手

请注意，这个代码可能会随着苹果音乐网页结构的改变失效。如果您遇到任何问题，请随时向我咨询。