Initial commit

2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions
--- a/EDOKA_Toolset/Plugin_ScanToEDOKA/frmDokMgmt.vb
+++ b/EDOKA_Toolset/Plugin_ScanToEDOKA/frmDokMgmt.vb
@@ -0,0 +1,122 @@
+Imports System.IO
+Imports System.Drawing
+Imports Syncfusion.Pdf
+Imports Syncfusion.Pdf.Parsing
+Imports Syncfusion
+Imports Patagames.Ocr
+Imports Patagames.Ocr.Enums
+
+Public Class frmDokMgmt
+    Private Sub frmDokMgmt_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Get_Files()
+    End Sub
+
+
+    Sub Get_Files()
+        Me.ListBox1.Items.Clear()
+        Dim fileEntries As String() = Directory.GetFiles(My.Settings.SourcePath)
+        ' Process the list of files found in the directory.
+        Dim fileName As String
+        For Each fileName In fileEntries
+            If System.IO.Path.GetExtension(fileName) = ".pdf" Then Me.ListBox1.Items.Add(Path.GetFileName(fileName))
+
+        Next fileName
+
+    End Sub
+
+    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
+        loadpdf(My.Settings.SourcePath + Me.ListBox1.SelectedItem)
+    End Sub
+
+    Public Sub loadpdf(ByVal filename As String)
+        PdfViewerControl1.Load(filename)
+        Me.TextBox1.Text = ""
+        Me.TextBox2.Text = ""
+        Try
+            Dim s As String = My.Settings.SourcePath + Me.ListBox1.SelectedItem
+            Try
+                Dim ldoc As New PdfLoadedDocument(s)
+
+                Dim page As PdfLoadedPage = ldoc.Pages(0)
+                Dim ss As String
+
+                ss = page.ExtractText()
+                Dim splitter() As String
+                splitter = ss.Split(vbCrLf)
+                Dim splitter2() As String
+                splitter2 = splitter(1).ToString.Split(":")
+                Me.TextBox2.Text = splitter2(1).ToString.Trim
+                splitter2 = splitter(2).ToString.Split(":")
+                Me.TextBox1.Text = splitter2(1).ToString.Trim
+            Catch
+            End Try
+
+        Catch ex As Exception
+
+        End Try
+
+        Try
+            ' If FindTextinPdf("Doktyp:") Then MsgBox("Found")
+        Catch ex As Exception
+            ' MsgBox(ex.Message)
+        End Try
+
+    End Sub
+
+
+
+    Public Function FindTextinPdf(texttofind As String) As Boolean
+
+
+        Dim IsMatchFound As Boolean
+        'Get the occurrences of the target text and location.
+
+        Dim textSearch As New Dictionary(Of Integer, List(Of RectangleF))()
+        Dim gaga As Dictionary(Of Integer, List(Of RectangleF))
+
+        IsMatchFound = PdfViewerControl1.FindText(texttofind, textSearch)
+
+        Dim s As String = PdfViewerControl1.FindText(texttofind, textSearch)
+
+        Return IsMatchFound
+
+    End Function
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        OcrApi.PathToEngine = "H:\scan\Tesseract\"
+        Using api = OcrApi.Create()
+
+            api.Init(Languages.German)
+
+            Using renderer = OcrPdfRenderer.Create("h:\scan\scan0036.pdf", "H:\scan\Tesseract\TessData\")
+                renderer.BeginDocument("Title")
+                api.ProcessPages("h:\scan\scaned.txt", Nothing, 0, renderer)
+                renderer.EndDocument()
+            End Using
+        End Using
+
+    End Sub
+
+    'Using processor As New Syncfusion.OCRProcessor.OCRProcessor("H:\scan\Tesseract\")
+
+    '        'Load a PDF document
+
+    '        Dim lDoc As New PdfLoadedDocument("h:\scan\scan0036.pdf")
+
+    '        'Set OCR language to process
+
+    '        processor.Settings.Language = OCRProcessor.Languages.English
+
+    '        'Process OCR by providing the PDF document and Tesseract data
+
+    '        processor.PerformOCR(lDoc, "H:\scan\Tesseract\TessData\")
+
+    '        'Save the OCR processed PDF document in the disk
+
+    '        lDoc.Save("h:\scan\Sample.pdf")
+
+    '        lDoc.Close(True)
+
+    '    End Using
+    'End Sub
+End Class