求助 FDP文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师:

您好!

FDP文件的数据可不可以导入到表窗口文件?

请老师指教!!!

谢谢!!!

谢谢老师!!!

谢谢!!!

老师:

您好!

下面的代码可以提取PDF数据,我新增一个临时表跟PDF的格式一样,但不懂的怎样导入到临时表,请老师指教!!!

谢谢!!!

Dim reader As New iTextSharp.text.pdf.PdfReader("d:\test.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()

1、pdf文件发上来看看

2、读取到字符串以后，你要根据规则处理字符，读取对应的字符出来

老师:

您好!

QQ浏览器添加不到截图.

之前可以添加, 刚重装系统,添加不了

[此贴子已经被作者于2019/5/25 22:56:48编辑过]

老师:

您好!

以下是恨入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

reader.Close()

For Each r As String In currentText

If r("第一列") > "" Then

Dim r2 As Row = Tables("表A").AddNew

r2("第一列") = r("第一列")

End If

错误提示:

.NET Framework 版本：2.0.50727.5420

Foxtable 版本：2018.10.9.1

错误所在事件：窗口,nnxa,Button1,Click

详细错误信息：

从字符串“第一列”到类型“Integer”的转换无效。

输入字符串的格式不正确。

请老师指教!!!

谢谢!!!

[此贴子已经被作者于2019/5/25 23:04:06编辑过]

老师:

您好!

这是刚读到的数据

后下节

领

面筒上节

后帽中

帽边

袖

后

前

袋

门筒

门襟

下脚贴

面筒下节

底筒下节

底筒上节

袖口贴

后脚贴

龟

袖下节

袖

前下节

后上

后帽中

后下节

前上节

袖下节

袖上节

前下节

后上节

后帽中

帽边

领

帽口贴

帽边

袋

袋口贴

袋

底筒

袋

领

帽口贴

面筒上节

面筒下节

底筒下节

底筒上节

前上

毛毛

片名号型布料片数方向横缩水纵缩水净面积毛面积净周长毛周长刀口备注编

请老师指教!

怎样导入数据表?

谢谢!!!

[此贴子已经被作者于2019/5/26 12:52:36编辑过]

老师:

您好!

我的导入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

'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

后下节

领

面筒上节

后帽中

帽边

袖

后

前

袋

门筒

门襟

下脚贴

面筒下节

底筒下节

底筒上节

袖口贴

后脚贴

龟

袖下节

袖

前下节

后上

后帽中

后下节

前上节

袖下节

袖上节

前下节

后上节

后帽中

帽边

领

帽口贴

帽边

袋

袋口贴

袋

底筒

袋

领

帽口贴

面筒上节

面筒下节

底筒下节

底筒上节

前上

毛毛

布料统计

片名号型布料片数方向横缩水纵缩水净面积毛面积净周长毛周长刀口备注编码

不是一个有效的路径。确定路径名称拼写是否正确，以及是否连接到文件存放的服务器。

请老师指点,我是一个菜鸟都不及的爱好者,请老师给个导入代码吗!

裁片统计是PDF 文件

统计是FOX表

上边的文本是PDF表的标题

谢谢老师!!!

谢谢!!!

[此贴子已经被作者于2019/5/26 12:51:06编辑过]

老师:

您好!下面是PDF的文件

请老师指教!!!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:裁片统计.rar

[此贴子已经被作者于2019/5/26 12:56:23编辑过]

主题：求助 FDP文件