- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助 FDP文件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135208)
-- 发布时间：2019/5/20 22:41:00
-- 求助 FDP文件
老师:
您好!
FDP文件的数据可不可以导入到表窗口文件?
请老师指教!!!
谢谢!!!
-- 发布时间：2019/5/20 23:05:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=83249&skin=0
-- 发布时间：2019/5/22 0:44:00
--
谢谢老师!!!
谢谢!!!
-- 发布时间：2019/5/23 21:41:00
--
老师: 您 好! 下面的代码可以提取PDF数据,我新增一个临时表跟PDF的格式一样,但不懂的怎样导入到临时表,请老师指教!!! 谢谢!!!
Dim reader As New iTextSharp.text.pdf.PdfReader("d:\\test.pdf") Dim n As Integer = reader.NumberOfPages |
-- 发布时间：2019/5/24 10:13:00
--
1、pdf文件发上来看看
2、读取到字符串以后，你要根据规则处理字符，读取对应的字符出来
-- 发布时间：2019/5/25 22:00:00
--
老师:
您 好!
QQ浏览器添加不到截图.
之前可以添加, 刚重装系统,添加不了
[此贴子已经被作者于2019/5/25 22:56:48编辑过]
-- 发布时间：2019/5/25 23:04:00
--
老师:
您好!
以下是恨入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
Next
Next
错误提示:
.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,nnxa,Button1,Click
详细错误信息：
从字符串“第一列”到类型“Integer”的转换无效。
输入字符串的格式不正确。
请老师指教!!!
谢谢!!!
[此贴子已经被作者于2019/5/25 23:04:06编辑过]
-- 发布时间：2019/5/25 23:47:00
--
老师:
您 好!
这是刚读到的数据
后下节
领
面筒上节
后帽中
帽边
袖
后
前
袋
门筒
门襟
下脚贴
面筒下节
底筒下节
底筒上节
袖口贴
后脚贴
龟
袖下节
袖
前下节
后上
后帽中
后下节
前上节
袖下节
袖上节
前下节
后上节
后帽中
帽边
领
帽口贴
帽边
袋
袋口贴
袋
底筒
袋
领
帽口贴
面筒上节
面筒下节
底筒下节
底筒上节
前上
毛毛
片名 号型 布料 片数 方向 横缩水 纵缩水 净面积 毛面积 净周长 毛周长 刀口 备注 编
请老师指教!
怎样导入数据表?
谢谢!!!
[此贴子已经被作者于2019/5/26 12:52:36编辑过]
-- 发布时间：2019/5/26 12:37:00
--
老师:
您好!
我的导入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编辑过]
-- 发布时间：2019/5/26 12:54:00
--
老师:
您好!下面是PDF的文件
请老师指教!!!
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:裁片统计.rar |
[此贴子已经被作者于2019/5/26 12:56:23编辑过]