老师:
您好!
我的导入PDF代码:
Dim reader As New iTextSharp.text.pdf.PdfReader("d:\裁片统计.pdf")
Dim n As Integer = reader.NumberOfPages
Dim str As String = ""
For i As Integer = 1 To n
Dim strategy As object = New iTextSharp.text.pdf.parser.SimpleTextExtractionStrategy()
Dim currentText As String = iTextSharp.text.pdf.parser.PdfTextExtractor.GetTextFromPage(Reader, i, strategy)
currentText = Encoding.UTF8.GetString(ASCIIEncoding.Convert(Encoding.[Default], Encoding.UTF8, Encoding.[Default].GetBytes(currentText)))
str & = currentText
Next
'msgbox(str)
reader.Close()
Dim mg As New Merger
mg.SourcePath = str '指定数据文件所在目录
mg.Format = "Delimited" '指定格式
mg.SourceTableName = "str & = currentText" '指定要合并的文件,无需扩展名
mg.Fields = "片名"
mg.DataTableName = "统计" '指定接收数据的表
mg.Merge()
.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2018.10.9.1
错误所在事件：
详细错误信息：
'裁片统计 ETCOM
后下节
领
面筒上节
后帽中
帽边
袖
后
前
袋
门筒
门襟
下脚贴
面筒下节
底筒下节
底筒上节
袖口贴
后脚贴
龟
袖下节
袖
前下节
后上
后帽中
后下节
前上节
袖下节
袖上节
前下节
后上节
后帽中
帽边
领
帽口贴
帽边
袋
袋口贴
袋
底筒
袋
领
帽口贴
面筒上节
面筒下节
底筒下节
底筒上节
前上
毛毛
毛毛
布料统计
1
片名 号型 布料 片数 方向 横缩水 纵缩水 净面积 毛面积 净周长 毛周长 刀口 备注 编码
不是一个有效的路径。 确定路径名称拼写是否正确，以及是否连接到文件存放的服务器。
请老师指点,我是一个菜鸟都不及的爱好者,请老师给个导入代码吗!
裁片统计是PDF 文件
统计是FOX表
上边的文本是PDF表的标题
谢谢老师!!!
谢谢!!!
[此贴子已经被作者于2019/5/26 12:51:06编辑过]
加好友 
发短信
Post By：2019/5/20 22:41:00 [显示全部帖子]
