这个页面中的图片全部下载后，如何用图片下面的名言命名图片名？

zzpsx

这个页面中的图片全部下载后，如何用图片下面的名言(名言的作者不需要)命名图片名？

https://www.brainyquote.com/top_100_quotes

wanghan519

用edge浏览器打开网页，收藏当前页面，右键编辑，地址里粘贴代码，保存，点击收藏的地址，网页左上角会多一个textarea，里面每行是图片地址+名言的格式，复制出来，用vba或其他什么工具批量下载改名即可

1. javascript: let t='';$('.quoteDetailBody ').each((x,y)=>{t+=($('img',y).attr('src')+"|"+$('.b-qt',y).text()+"\n")});$('body').prepend($('<textarea id="ta0"></textarea>'));$('#ta0').text(t)

复制代码

zzpsx

图片对应名言.zip (13.08 KB, 下载次数: 1)

2023-4-1 09:48 上传

点击文件名下载附件

谢谢高手，按照您的方法，我已经把名言下载好了。
我直接将这个网页另存为，得到只有97张图片，而名言有100句，无法匹配，请问如何解决？

wanghan519

zzpsx 发表于 2023-4-1 09:49
谢谢高手，按照您的方法，我已经把名言下载好了。
我直接将这个网页另存为，得到只有97张图片，而名言 ...

不知道你下载的文件名是啥样的，手动下了一个，到了这一步去vba板块问也行，或者随便什么脚本都行，比如：

按win+r运行powershell

1. cd R:\Desktop\图片对应名言\
   
2. dir *.jpg,*.png | Rename-Item -NewName {(Get-Content .\a.txt | Select-String ($_.BaseName -replace '-.*','')) -replace '.*\|','' -replace '\?','.' -replace '$',$_.Extension}

复制代码

第一句是转到存有图片的文件夹
第二句是遍历jpg和png文件，重命名为：
把下载到的文件名中-之后的部分删掉，去a.txt里找到含有前面这部分的行，把这一行|前的部分去掉，因为文件名不允许问号，把问号改成句号，最后加上文件后缀

zzpsx

https://fast.uc.cn/s/0c755e6e3f314 点击链接接收文件 [图片排列如此.zip]

zzpsx

版主，可否把此贴转移到vba板块，谢谢。