码迷,mamicode.com
首页 > 其他好文 > 详细

批量将多个图片转PDF的记录

时间:2020-02-19 18:55:55      阅读:99      评论:0      收藏:0      [点我收藏+]

标签:dwr   make   技术   mat   ted   rbac   cti   alt   public   

本文记录了图片下载后转换成PDF的过程,期间用到了EXCEL和PYTHON,所有来源都是从网络上学习后,稍加整理并测试通过。

[阶段一:有规则的图片下载地址]

    技术图片

    之所以用Excel下载图片,主要是电脑上没有下载工具,于是找到以下代码,并稍加修改后,就可以完成批量下载了(我们不谈速度23333)

 

 1 Option Explicit
 2 Private Declare Function MakeSureDirectoryPathExists _
 3     Lib "imagehlp.dll" (ByVal Pfad As String) As Long
 4 Private Declare Function DeleteUrlCacheEntry Lib "wininet" Alias _
 5     "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
 6 Private Declare Function URLDownloadToFile Lib "urlmon" _
 7     Alias "URLDownloadToFileA" ( _
 8     ByVal pCaller As Long, _
 9     ByVal szURL As String, _
10     ByVal szFileName As String, _
11     ByVal dwReserved As Long, _
12     ByVal lpfnCB As Long) As Long
13 
14 Public Sub GetFiles()
15     Const strBackup As String = "D:\poto\" ‘保存路径
16     Dim arr
17     Dim TargetFile As String
18     Dim lngTMP, i As Long
19     Dim cnt
20         
21     arr = Range("a1").CurrentRegion
22     MakeSureDirectoryPathExists strBackup
23     cnt = UBound(arr)
24     For i = 2 To cnt
25       TargetFile = strBackup & arr(i, 2) & ".jpg"  ‘A列
26       Call DeleteUrlCacheEntry(arr(i, 1))          ‘B列
27       lngTMP = URLDownloadToFile(0, arr(i, 1), TargetFile, 0, 0)
28       DoEvents
29       Application.StatusBar = "结束前请勿乱动:" & i & "/" & cnt
30     Next
31       
32     Application.StatusBar = cnt & "/" & cnt & " 完成。"
33 End Sub

 

[阶段二:将图片转PDF]

    本来以为这个很容易,随便下载一个软件转换一下就行了,没想到尝试了好多软件,都需要付费,而且大多数是大于5张图片就100%需要收费了。正好最近在看python,基础语法什么的已经了解了,于是网络上搜刮了一下:

技术图片

    源码:

 1 from PIL import Image
 2 import os
 3 import re
 4 
 5 
 6 def tryint(s):  #将元素中的数字转换为int后再排序
 7     try:
 8         return int(s)
 9     except ValueError:
10         return s
11 
12 def str2int(v_str):  #将元素中的字符串和数字分割开
13     return [tryint(sub_str) for sub_str in re.split(([0-9]+), v_str)]
14 
15 def sort_humanly(v_list):  #以分割后的list为单位进行排序
16     return sorted(v_list, key=str2int)
17 def rea(path, pdf_name):
18     file_list = os.listdir(path)
19     pic_name = []
20     im_list = []
21     for x in file_list:
22         if "jpg" in x or png in x or jpeg in x:
23             pic_name.append(x)
24 
25     pic_name=sort_humanly(pic_name)
26     print(---)
27     print(pic_name)
28     new_pic = []
29 
30     for x in pic_name:
31         if "jpg" in x:
32             new_pic.append(x)
33 
34     for x in pic_name:
35         if "png" in x:
36             new_pic.append(x)
37 
38     print("hec", new_pic)
39 
40     im1 = Image.open(os.path.join(path, new_pic[0]))
41     new_pic.pop(0)
42     for i in new_pic:
43         img = Image.open(os.path.join(path, i))
44         # im_list.append(Image.open(i))
45         if img.mode == "RGBA":
46             img = img.convert(RGB)
47             im_list.append(img)
48         else:
49             im_list.append(img)
50     im1.save(pdf_name, "PDF", resolution=100.0, save_all=True, append_images=im_list)
51     print("输出文件名称:", pdf_name)
52 
53 
54 if __name__ == __main__:
55 
56     mypath = input("输入文件路径>")
57     pdf_name = mypath + r\result.pdf
58     if ".pdf" in pdf_name:
59         rea(mypath, pdf_name=pdf_name)
60     else:
61         rea(mypath, pdf_name="{}.pdf".format(pdf_name))

    这里面涉及一个排序问题,就是1.JPG、2.JPG、10.JPG等,用了默认的.sort之后,排序是1.JPG、10.JPG、2.JPG。有点问题,于是又重新找了一个排序放上去就正常了,特别网上分享经验的各位Up主。下面就是这个神奇的排序:

 1 def tryint(s):  #将元素中的数字转换为int后再排序
 2     try:
 3         return int(s)
 4     except ValueError:
 5         return s
 6 
 7 def str2int(v_str):  #将元素中的字符串和数字分割开
 8     return [tryint(sub_str) for sub_str in re.split(([0-9]+), v_str)]
 9 
10 def sort_humanly(v_list):  #以分割后的list为单位进行排序
11     return sorted(v_list, key=str2int)

    资源来源网上,为个人整理,欢迎大家提意见~!!!

 

批量将多个图片转PDF的记录

标签:dwr   make   技术   mat   ted   rbac   cti   alt   public   

原文地址:https://www.cnblogs.com/herewithyou/p/12332388.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!