VFP 愛用者社區

iswith · 註冊時間: 2022-11-04 文章: 93 第 1 樓

NetPdfTools V1.01

gxouyuan · 註冊時間: 2022-05-25 文章: 12 第 2 樓

iswith · 註冊時間: 2022-11-04 文章: 93 第 3 樓

*--test_netpdftools DEMO Build 2024 07 29
Clear

public cPath
If Type( "_vfp.ActiveProject" ) == "O" Then
m.cPath = justPath( _vfp.ActiveProject.Name )
Else
m.cPath = Justpath( Sys(16) )
Endif

Set Default To ( m.cPath )
If !File( "netpdftools.vcx" ) And !File( "netpdftools.vct" ) Then
?"没找到“netpdftools.vcx”可视类库"
Endif

Set Classlib To netpdftools.vcx

Public oNetPdfTools
oNetPdfTools = Createobject( "NetPdfTools" )

*--初始化PdfTools-----------------------------------------------------------------------------------------------------------
If !oNetPdfTools.PdfToolsInit() Then
?"初始化PdfTools失败"
Return .F.
Endif

Local lcPdfFileName ;
, lctoFilename ;
, lnFormat ;
, lcErrorMsg ;
, llReturn ;
, lnReturn ;
, loReturn ;
, lnHsTimes

*选择运行区域时用
Return

*1.------------------------------------------------------------------------------------------------------------------------
*将PDF2Linearized(线性化)
*选择运行区域时用
If "temp" $ Lower( Sys(16) ) Then
Clear
Endif
m.lcPdfFileName = Addbs( m.cPath ) + "testdata\_6YI01QSDM.PDF"
m.lctoFilename = Addbs( m.cPath ) + "testdata\_6YI01QSDM.PDF"
m.lcErrorMsg = ""
?"1.PDF2Linearized(线性化)-> "
m.llReturn = oNetPdfTools.PDF2Linearized( m.lcPdfFileName , @lcErrorMsg , m.lctoFilename )
??Iif( m.llReturn , "转换成功到：" + m.lctoFilename , "转换失败,原因：" + m.lcErrorMsg )

*2.------------------------------------------------------------------------------------------------------------------------
*将单个PDF文件压缩
*CompressPdf( *pdffilename 必传被压缩的PDF文件路径+文件名.PDF
*toFilename 必传压缩去向路径+文件名.PDF
*ErrorMsg 非必传不传就会在出时弹出错误对话框
*nImageQuality 非必传默认=1 图片质量(0=High;1=Low;2=Medium)
*UnembedFonts 非必传默认=false 不嵌入字体，看情况某些PDF用了特殊字体时设置 =.F.;
)
*--返回值：L
If "temp" $ Lower( Sys(16) ) Then
Clear
Endif

Local lnImageQuality ;
, llUnembedFonts

m.lcErrorMsg = "" &&不传地址变量参数时，出错会弹出出错对话框。
m.lnImageQuality = 0 &&0=High;1=Low;2=Medium
m.llUnembedFonts = .T. &&不嵌入字体，看情况某些PDF用了特殊字体时设置为.F.
m.lcPdfFileName = Addbs( m.cPath ) + "testdata\_6YI01QSDM.PDF"
m.lctoFilename = Addbs( m.cPath ) + "testdata\_6YI01QSDM_Compresstest.PDF"
?"2.PDF文件压缩:CompressPdf-> "
m.lnHsTimes = Seconds()
m.llReturn = oNetPdfTools.CompressPdf( m.lcPdfFileName ;
, m.lctoFilename ;
, @lcErrorMsg ;
, m.lnImageQuality;
, m.llUnembedFonts )
??Iif( m.llReturn , "转换成功到：" + m.lctoFilename , "转换失败,原因：" + m.lcErrorMsg )
??"->耗时：" + Transform( Seconds() - m.lnHsTimes)

*3.------------------------------------------------------------------------------------------------------------------------
*将目录下的全部PDF文件进行压缩,并发多线程执行,执行是的进度由类“OnProgress”自动捕捉出现进度显示
?"3.目录下全部PDF文件压缩:CompressPdfAllAsync"
*oNetPdfTools.CompressPdfAllAsync( Sys(2015 ) , "E:\NetPDFTools\testdata" )

*4.------------------------------------------------------------------------------------------------------------------------
*将PDF2Excel(Xlsx)
*PDF2Excel( * PdfFileName 必传来源PDF文件（路径+文件名.Pdf)
* ToFilename 必传去向Xlsx文件（路径+文件名.Xlsx)
* ErrorMsg 非必传不传就会在出时弹出错误对话框
* StartIndex 非必传从第几页开始(暂不支持）
* EndIndex 非必传到第几页结束(暂不支持）;
)

*返回值：L

If "temp" $ Lower( Sys(16) ) Then
Clear
Endif
m.lcPdfFileName = Addbs( m.cPath ) + "testdata\test5.PDF"
m.lctoFilename = Addbs( m.cPath ) + "testdata\test5.XLSX"
m.lcErrorMsg = ""
?"4.PDF2Excel(Xlsx)-> "
m.lnHsTimes = Seconds()
m.llReturn = oNetPdfTools.PDF2Excel( m.lcPdfFileName , m.lctoFilename , @lcErrorMsg )
??Iif( m.llReturn , "转换成功到：" + m.lctoFilename , "转换失败,原因：" + m.lcErrorMsg )
??"->耗时：" + Transform( Seconds() - m.lnHsTimes)

*5.------------------------------------------------------------------------------------------------------------------------
*将PDF2Word(Docx)
*PDF2Word ( * PdfFileName 必传来源PDF文件（路径+文件名.Pdf)
* ToFilename 必传去向Xlsx文件（路径+文件名.Docx)
* ErrorMsg 非必传不传就会在出时弹出错误对话框
* StartIndex 非必传从第几页开始(暂不支持）
* EndIndex 非必传到第几页结束(暂不支持）;
)
*返回值：L

If "temp" $ Lower( Sys(16) ) Then
Clear
Endif
m.lcPdfFileName = Addbs( m.cPath ) + "testdata\test1.PDF"
m.lctoFilename = Addbs( m.cPath ) + "testdata\test1.Docx"
m.lcErrorMsg = ""
?"5.PDF2Word(Docx)-> "
m.lnHsTimes = Seconds()
m.llReturn = oNetPdfTools.Pdf2Word( m.lcPdfFileName , m.lctoFilename , @lcErrorMsg )
??Iif( m.llReturn , "转换成功到：" + m.lctoFilename , "转换失败,原因：" + m.lcErrorMsg )
??"->耗时：" + Transform( Seconds() - m.lnHsTimes)

*6.------------------------------------------------------------------------------------------------------------------------
*将PDF转换成需要的格式文件
*PDF2Image( * pdffilename As String 必传参
* toFilename As String 非传参值=空 -> 即与PDF同名且同目录(页数).扩展名由formats决定;
值=只是路径 -> 取路径+被转换的PDF文件名(页数).扩展名由formats决定;
值=路径+文件名.扩展名 -> 只取路径 + 文件名 (图片序数).扩展名由formats决定;

* ErrorMsg As String 非必传不传就会在出错时,弹出错误对话框,传的话就地址返值
* StartIndex As Integer 非必传 StartIndex 与 EndIndex 不传就取全部页,默认值=1(第一页)
* EndIndex As Integer 非必传结束页，默认=-1取全部
* Format As Integer 非必传默认=3
*Bmp = 1
*Jpeg = 2
*Png = 3
*Gif = 4
*Tiff = 5
*Wmf = 6
*Emf = 7
* dpi As Integer 非必传默认=300 dpi ,值越大转换后的图片容量就越大,越小图片质量就越差;
)
*返回值：L

*选择运行区域时用
If "temp" $ Lower( Sys(16) ) Then
Clear
Endif
m.lcPdfFileName = Addbs( m.cPath ) + "testdata\test.PDF"
m.lnFormat = 2
*!* m.lctoFilename = ""
m.lctoFilename = Addbs( m.cPath ) + "testdata\PDF2Image\"
*!* m.lctoFilename = Addbs( m.cPath ) + "testdata\PDF2Image\123.jpg"
m.lcErrorMsg = ""
m.lnStartIndex = 1
m.lnEndIndex = 10
m.lndpi = 300
?"6.将PDF2Image->"
m.lnHsTimes = Seconds()
m.llReturn = oNetPdfTools.PDF2Image( m.lcPdfFileName , m.lctoFilename , @lcErrorMsg , m.lnStartIndex , m.lnEndIndex , m.lnFormat , m.lndpi )
?Iif( !m.llReturn , "转换失败,原因：" + m.lcErrorMsg , "" )
??"->耗时：" + Transform( Seconds() - m.lnHsTimes)

*7.------------------------------------------------------------------------------------------------------------------------
*多个PDF文档合并
*MergePdfFiles(
*SourceFiles As String 必传 [a.pdf,b.pdf]
*OutputFile As String 必传合成后的PDF文件：路径+文件名.扩展名
*ErrorMsg As String 非必传不传就会在出时弹出错误对话框;
)
*返回值：L

If "temp" $ Lower( Sys(16) ) Then
Clear
Endif
Local lcSourceFiles ;
, lcOutputFile

m.lcSourceFiles = Addbs( m.cPath ) + "testdata\_6YA1E3JCX.PDF"
m.lcSourceFiles = m.lcSourceFiles+ [,] + Addbs( m.cPath ) + "testdata\_6YB0HU3SA.PDF"
m.lcSourceFiles = m.lcSourceFiles+ [,] + Addbs( m.cPath ) + "testdata\_6YB1DI8LC.PDF"
m.lcSourceFiles = m.lcSourceFiles+ [,] + Addbs( m.cPath ) + "testdata\_6YB1DX1V4.PDF"

m.lcOutputFile = Addbs( m.cPath ) + "testdata\MergePdf.PDF"
m.lcErrorMsg = ""
?"7.多个PDF文档合并-> "
m.lnHsTimes = Seconds()
m.llReturn = oNetPdfTools.MergePdfFiles( m.lcSourceFiles, m.lcOutputFile, @lcErrorMsg )
?Iif( m.llReturn , "合并成功到：" + m.lcOutputFile, "合并失败,原因：" + m.lcErrorMsg )
??"->耗时：" + Transform( Seconds() - m.lnHsTimes)

*8.------------------------------------------------------------------------------------------------------------------------
*多个Excel文档合并(不需要安装office套件)
*MergeExcelFiles(
*SourceFiles 必传 [a.xls,b.xls]|[a.xlsx,b.xlsx]
*OutputFile 必传合成后的Excel文件：路径+文件名.扩展名
*ErrorMsg 非必传不传就会在出错时弹出错误对话框
*isDeleteFile 非必传是否删除a.xls,b.xls...这类文件默认值=false
*isQname 非必传是否强名默认值=false;=true 则系统强名为Page1.....n;
)
*返回值：L

*注意：如果工作区名称为“Sheet”或isQname = true 时SheetName改变为"Page1...N",否则取之前的工作区名称;
但要注意工作区同名，则失败，一个文档不可以同名工作区名称

If "temp" $ Lower( Sys(16) ) Then
Clear
Endif

Local lisDeleteFile ;
, lisQname

m.lcSourceFiles = Addbs( m.cPath ) + "testdata\KPI1.xlsx"
m.lcSourceFiles = m.lcSourceFiles+ [,] + Addbs( m.cPath ) + "testdata\KPI2.xlsx"
m.lcSourceFiles = m.lcSourceFiles+ [,] + Addbs( m.cPath ) + "testdata\KPI3.xlsx"
m.lcSourceFiles = m.lcSourceFiles+ [,] + Addbs( m.cPath ) + "testdata\KPI4.xlsx"
m.lcOutputFile = Addbs( m.cPath ) + "testdata\MergeExcel_KPI.xlsx"
m.lcErrorMsg = ""
m.lisDeleteFile = .F.
m.lisQname = .T.
?"8.多个Excel文档合并-> "
m.lnHsTimes = Seconds()
m.llReturn = oNetPdfTools.MergeExcelFiles( m.lcSourceFiles, m.lcOutputFile , @lcErrorMsg , m.lisDeleteFile , m.lisQname )
?Iif( m.llReturn , "合并成功到：" + m.lcOutputFile , "合并失败,原因：" + m.lcErrorMsg )
??"->耗时：" + Transform( Seconds() - m.lnHsTimes)

*9.------------------------------------------------------------------------------------------------------------------------
*多个Word文档合并(不需要安装office套件)
*MergeWordFiles(
*SourceFiles 必传 a.docx,b.docx
*OutputFile 必传合成后的Excel文件：路径+文件名.扩展名
*ErrorMsg 非必传不传就会在出错时弹出错误对话框
*isDeleteFile 非必传是否删除a.xls,b.xls...这类文件默认值=false
)
*返回值：L

If "temp" $ Lower( Sys(16) ) Then
Clear
Endif
m.lcSourceFiles = Addbs( m.cPath ) + "testdata\KPI1.docx"
m.lcSourceFiles = m.lcSourceFiles+ [,] + Addbs( m.cPath ) + "testdata\KPI2.docx"
m.lcSourceFiles = m.lcSourceFiles+ [,] + Addbs( m.cPath ) + "testdata\KPI3.docx"
m.lcOutputFile = Addbs( m.cPath ) + "testdata\MergeWord_KPI.docx"
m.lcErrorMsg = ""
m.lisDeleteFile = .F.
?"9.多个Word文档合并-> "
m.lnHsTimes = Seconds()
m.llReturn = oNetPdfTools.MergeWordFiles( m.lcSourceFiles, m.lcOutputFile , @lcErrorMsg , m.lisDeleteFile )
?Iif( m.llReturn , "合并成功到：" + m.lcOutputFile, "合并失败,原因：" + m.lcErrorMsg )
??"->耗时：" + Transform( Seconds() - m.lnHsTimes)

*10.------------------------------------------------------------------------------------------------------------------------
*提取PDF的表格数据到VFP(类“onprogress”事件捕捉，一个表格一个cJson,注意可能有多个cJson)

*ExtractPdfTable( * PdfFileName 必传来源PDF文件（路径+文件名.Pdf)
* toFilename 非传参如果转出图片的目录为空 -> 即与PDF同名且同目录(页数).扩展名由formats决定;
如果传过来的只是路径 -> 取路径+被转换的PDF文件名(页数).扩展名由formats决定;
如果含有路径+文件名.扩展名 -> 只取路径 + 文件名 (页数).扩展名由formats决定
* ErrorMsg 非必传不传就会在出时弹出错误对话框
* Format 非必传图片格式默认值:=3
* StartIndex 非必传从第几页开始默认值:=1 第一页
* EndIndex 非必传到第几页结束默认值:=-1 全部页;
)
*返回值：L
If "temp" $ Lower( Sys(16) ) Then
Clear
Endif
m.lcSourceFiles = Addbs( m.cPath ) + "testdata\test6.pdf"
m.lcErrorMsg = ""
?"10.提取PDF的表格数据到VFP-> "
m.lnHsTimes = Seconds()
m.llReturn = oNetPdfTools.ExtractPdfTable( m.lcSourceFiles, @lcErrorMsg )
?Iif( m.llReturn , "成功生成表“ExtractPdfTable”,请自行解析cJson" , "提取PDF表格失败,原因：" + m.lcErrorMsg )
??"->耗时：" + Transform( Seconds() - m.lnHsTimes)

*11.------------------------------------------------------------------------------------------------------------------------
*提取Word的表格数据到VFP(不需要安装office套件)(类“onprogress”事件捕捉，一个表格一个cJson,注意可能有多个cJson)
If "temp" $ Lower( Sys(16) ) Then
Clear
Endif
m.lcSourceFiles = Addbs( m.cPath ) + "testdata\KPI.docx"
m.lcErrorMsg = ""
?"11.提取Word的表格数据到VFP-> "
m.lnHsTimes = Seconds()
m.llReturn = oNetPdfTools.ExtractWordTable( m.lcSourceFiles, @lcErrorMsg )
?Iif( m.llReturn , "成功生成表“ExtractWordTable”,请自行解析cJson" , "提取Word表格失败,原因：" + m.lcErrorMsg )
??"->耗时：" + Transform( Seconds() - m.lnHsTimes)

*12.------------------------------------------------------------------------------------------------------------------------
*提取Excel的表格数据到VFP(不需要安装office套件)(类“onprogress”事件捕捉，一个表格一个cJson,注意可能有多个cJson)
*ExtractExcelTable( * cSourceFiles 必传提取的Excel文件（路径+文件名.Xlsx)
* ErrorMsg 非必传不传就会在出时弹出错误对话框
* StartIndex 非必传从第几页开始,默认=1,即第一个工作区
* EndIndex 非必传到第几页结束,默认=-1，即全部工作区;
)
*返回值：L

If "temp" $ Lower( Sys(16) ) Then
Clear
Endif
m.lcSourceFiles = Addbs( m.cPath ) + "testdata\KPI1.xlsx"
m.lcErrorMsg = ""
?"12.提取Excel的表格数据到VFP-> "
m.lnHsTimes = Seconds()
m.llReturn = oNetPdfTools.ExtractExcelTable( m.lcSourceFiles, @lcErrorMsg )
?Iif( m.llReturn , "成功生成表“ExtractExcelTable”,请自行解析cJson" , "提取Excel表格失败,原因：" + m.lcErrorMsg )
??"->耗时：" + Transform( Seconds() - m.lnHsTimes)

*13.------------------------------------------------------------------------------------------------------------------------
*提取PDF图片,按什么图片格式导出至什么路径下
*ExtractPdfImage(
* PdfFileName 必传来源PDF文件（路径+文件名.Pdf)
* toFilename 非传参值=空 -> 即与PDF同名且同目录(页数).扩展名由formats决定;
值=只是路径 -> 取路径+被转换的PDF文件名(页数).扩展名由formats决定;
值=路径+文件名.扩展名 -> 只取路径 + 文件名 (图片序数).扩展名由formats决定;
(即时扩展名不会定义但也要写入系统,需要判定目录与文件名区别)
* ErrorMsg 非必传不传就会在出时弹出错误对话框
* ImageFormat 非必传图片格式默认值:=2
*Bmp = 1
*Jpeg = 2
*Png = 3
*Gif = 4
*Tiff = 5
*Wmf = 6
*Emf = 7
* StartIndex 非必传从第几页开始默认值:=1 第一页
* EndIndex 非必传到第几页结束默认值:=-1 全部页;
)
*返回值：L
If "temp" $ Lower( Sys(16) ) Then
Clear
Endif

m.lcPdfFileName = Addbs( m.cPath ) + "testdata\_6YI01QSDM.PDF"
m.lnFormat = 2

*--与原PDF同级目录同文件名.扩展名(由Format决定),或不传
*!* m.lctoFilename = ""

*--去向目录且重新命名
*!* m.lctoFilename = Addbs( m.cPath ) + "testdata\ExtractPdfImage\123.jpg"

*--去向目录,注意带“\”
m.lctoFilename = Addbs( m.cPath ) + "testdata\ExtractPdfImage\"
m.lcErrorMsg = ""
m.lnStartIndex = 1
m.lnEndIndex = -1

?"13.提取PDF图片,按什么图片格式导出至什么路径下-> "
m.lnHsTimes = Seconds()
m.llReturn = oNetPdfTools.ExtractPdfImage( m.lcPdfFileName, m.lctoFilename, @lcErrorMsg , m.lnFormat , m.lnStartIndex , m.lnEndIndex )
?Iif( m.llReturn , "" , "提图片失败,原因：" + m.lcErrorMsg )
??"->耗时：" + Transform( Seconds() - m.lnHsTimes)

*14.------------------------------------------------------------------------------------------------------------------------
*查找word段落/表格中的文字(不需要安装office套件)并将其替换,性能比传统的耗时为：1/20,甚至更快
*WordReplaceText(
* WordFiles 必传 Word文件（路径+文件名.Docx)
* Findtext 必传查找的字符
* Replacetext 必传替换的字符
* ErrorMsg 非必传不传就会在出时弹出错误对话框;
)
*返回值：L
If "temp" $ Lower( Sys(16) ) Then
Clear
Endif
Local lcWordFiles;
, lcFindtext ;
, lcReplacetext

m.lcWordFiles = Addbs( m.cPath ) + "testdata\KPI.docx"
m.lcFindtext = "测试"
m.lcReplacetext = "NetTools"
m.lcErrorMsg = ""
?"14.Word文字替换:WordReplaceText->"
m.lnHsTimes = Seconds()
m.llReturn = oNetPdfTools.ReplaceWordText( m.lcWordFiles , m.lcFindtext , m.lcReplacetext , @lcErrorMsg)
??Iif( m.llReturn , "成功" , "失败,原因：" + m.lcErrorMsg )
??"->耗时：" + Transform( Seconds() - m.lnHsTimes)

*15.------------------------------------------------------------------------------------------------
*获取PDF有多少页
*GetPdfPage(
* PdfFileName 必传来源PDF文件（路径+文件名.Pdf)
* ErrorMsg 非必传不传就会在出时弹出错误对话框;
)
*返回值：N
If "temp" $ Lower( Sys(16) ) Then
Clear
Endif
m.lcPdfFileName = Addbs( m.cPath ) + "testdata\_6YI01QSDM.PDF"
m.lcErrorMsg = ""
?"15.返回PDF页数-> "
m.lnReturn = oNetPdfTools.GetPdfPage( m.lcPdfFileName, @lcErrorMsg )
??Iif( Empty( lcErrorMsg ) , m.lnReturn , "返回PDF页数失败,原因：" + m.lcErrorMsg )

*16.----------------------------------------------------------------------------------------------
*获取PDF某页文本
*GetPdfText(
* PdfFileName 必传来源PDF文件（路径+文件名.Pdf)
* nPage 必传某页
* ErrorMsg 非必传不传就会在出时弹出错误对话框;
)
*返回值:C
If "temp" $ Lower( Sys(16) ) Then
Clear
Endif
m.lcPdfFileName = Addbs( m.cPath ) + "testdata\_6YB0H7JV0.PDF"
m.lcErrorMsg = ""
m.lnPage = 1
?"16.返回PDF某页文本-> "
m.lcReturn = oNetPdfTools.GetPdfText( m.lcPdfFileName, m.lnPage , @lcErrorMsg )
??Iif( Empty( m.lcErrorMsg ) , Left( m.lcReturn , 10 ) + "....." , "返回PDF某页文本,原因：" + m.lcErrorMsg )

iswith · 註冊時間: 2022-11-04 文章: 93 第 4 樓

18个功能做发行第一版

iswith · 註冊時間: 2022-11-04 文章: 93 第 5 樓

全包资源请在csdn下载
https://download.csdn.net/download/weixin_53925881/89606078

GOLDHAN · 註冊時間: 2004-06-07 文章: 10 第 6 樓

太牛了~但CSDN連結似乎無法下載