参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=83249&skin=0

此主题相关图片如下：1.jpg

Dim ti As WinForm.TextBox = e.Form.Controls("TextBox_PDF")

Dim all As Integer =0

Dim repeat As Integer = 0

If ti.lines.Length > 0 Then

    

    For i As Integer = 0 To ti.Lines.Length - 1

        If (i Mod 3 = 0 ) Then ’我的pdf粘贴出来后，逢 1 4 7行是数据，其他行是垃圾文字

            Dim s As String = ti.Lines(i)

            s= s.Trim

            

            Dim Values() As String

            Values = s.split(" ")

            If Values.Length > = 5 Then

                

                Dim bar As String = Values(1)

                Dim qty As Integer = Values(Values.Length -5)

                

                Dim tg As Table = Tables("JOQuotationMain.JOQuotationDetail")

                

                Dim pg As Integer

                

                pg = tg.Findrow("JOItemCode =\'" & bar & "\'")

                

                If pg > - 1 Then \'如果找到符合条件的行

                    If pg > -1 Then

                        tg.Position = pg \'则选择该行

                        Dim nowr As Row = tg.Current

                        nowr("JOQuotationQty") = nowr("JOQuotationQty") + qty

                        repeat =repeat +1 \'对应产品数量+1

                    End If

                    

                Else \'找不到,就新增

                    

                    Dim filter As String = "JOItemCode = \'" & bar & "\'"

                    Dim dr As DataRow = DataTables("JOItemInfo").SQLFind (filter)

                    If dr IsNot Nothing Then

                        If DataTables("JOItemInfo").find(filter)  Is Nothing Then \'判断是否加载,没加载就加载

                            DataTables("JOItemInfo").AppendLoad(filter)

                        End If

                        

                        Dim r As Row =    tg.AddNew

                        r("JOItemID")= dr("JOItemID")

                        r("JOQuotationQty") = qty

                        tg.AutoSizeCols

                        all=all+1

                    Else

                        MessageBox.Show("找不到第" & (i/3) & "行条码为" & bar & "的样板,请用笔和纸记录下来,并完善样板资料")

                    End If

                End If

                

                

            Else

                MessageBox.show("第" & (i/3) & "款信息有误,读取失败,请用笔和纸记录下来")

            End If

        End If

    Next

    ti.Text=""

    MessageBox.show("产品识别完成," & repeat & "款重复,"  & all & "款新增")

Else

    MessageBox.show("请先粘贴订单PDF表格明细内容")

End If

只能按照格式获取了，参考代码

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
str = str.replace("审批通过", "").replace(chr(10), vbcrlf)
output.show(str)
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "/.+?.jpg")
output.show("验货报告:" & mc(9*4).value)
output.show("货物2:")
For i As Integer = 9*3-1 To 9*2 Step -1
    output.show(mc(i).value)
Next

Dim mc1 = System.Text.RegularExpressions.Regex.Matches(str, "(?<=申请人部门).+")
output.show("申请人部门:" &mc1(0).value)

reader.Close()