diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb index f9a5c435..e16505d1 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb @@ -819,7 +819,7 @@ Public Class usrCntlATLAS_EXGestellung Dim imagePdf As PdfiumViewer.PdfDocument = Nothing Try - Console.WriteLine("Seiten: " & textPdf.NumberOfPages) + 'Console.WriteLine("Seiten: " & textPdf.NumberOfPages) For pageIndex As Integer = 0 To textPdf.NumberOfPages - 1 Dim found As New HashSet(Of String)(StringComparer.OrdinalIgnoreCase) @@ -838,7 +838,7 @@ Public Class usrCntlATLAS_EXGestellung found.Add(mrn) Next Catch ex As Exception - Console.WriteLine($"TEXT-FEHLER | Seite={pageIndex + 1} | {ex.Message}") + ' Console.WriteLine($"TEXT-FEHLER | Seite={pageIndex + 1} | {ex.Message}") End Try ' 2. Nur wenn keine MRN im Text gefunden wurde @@ -850,7 +850,7 @@ Public Class usrCntlATLAS_EXGestellung found.Add(mrn) Next Catch ex As Exception - Console.WriteLine($"BILD-FEHLER | Seite={pageIndex + 1} | {ex.Message}") + ' Console.WriteLine($"BILD-FEHLER | Seite={pageIndex + 1} | {ex.Message}") End Try End If @@ -862,7 +862,7 @@ Public Class usrCntlATLAS_EXGestellung }) Next - Console.WriteLine($"SEITE {pageIndex + 1} ENDE | MRNs={found.Count}") + ' Console.WriteLine($"SEITE {pageIndex + 1} ENDE | MRNs={found.Count}") ' Fortschritt nach abgeschlossener Seite aktualisieren If lblProgress IsNot Nothing Then @@ -876,11 +876,11 @@ Public Class usrCntlATLAS_EXGestellung End Using Catch ex As Exception - Console.WriteLine("PDF FEHLER: " & ex.ToString()) + ' Console.WriteLine("PDF FEHLER: " & ex.ToString()) End Try Next - Console.WriteLine("FERTIG | MRNs gesamt: " & results.Count) + ' Console.WriteLine("FERTIG | MRNs gesamt: " & results.Count) If lblProgress IsNot Nothing Then lblProgress.Text = $"Fertig: {results.Count} MRNs" @@ -895,7 +895,7 @@ Public Class usrCntlATLAS_EXGestellung Dim results As New HashSet(Of String)(StringComparer.OrdinalIgnoreCase) Dim pageText = pdf.GetPage(pageIndex + 1).Text - Console.WriteLine($"TEXT | Seite={pageIndex + 1} | Zeichen={pageText.Length}") + ' Console.WriteLine($"TEXT | Seite={pageIndex + 1} | Zeichen={pageText.Length}") Dim matches = System.Text.RegularExpressions.Regex.Matches( pageText.ToUpperInvariant(), @@ -903,7 +903,7 @@ Public Class usrCntlATLAS_EXGestellung For Each match As System.Text.RegularExpressions.Match In matches If results.Add(match.Value) Then - Console.WriteLine($"TEXT-MRN | Seite={pageIndex + 1} | {match.Value}") + ' Console.WriteLine($"TEXT-MRN | Seite={pageIndex + 1} | {match.Value}") End If Next @@ -927,7 +927,7 @@ Public Class usrCntlATLAS_EXGestellung } } - Console.WriteLine($"BILD | Seite={pageIndex + 1} | Barcode-Erkennung gestartet") + ' Console.WriteLine($"BILD | Seite={pageIndex + 1} | Barcode-Erkennung gestartet") For Each dpi As Integer In {200, 300} Try @@ -935,7 +935,7 @@ Public Class usrCntlATLAS_EXGestellung Dim width = CInt(Math.Ceiling(pageSize.Width * dpi / 72.0)) Dim height = CInt(Math.Ceiling(pageSize.Height * dpi / 72.0)) - Console.WriteLine($"Rendering | Seite={pageIndex + 1} | DPI={dpi} | {width}x{height}") + ' Console.WriteLine($"Rendering | Seite={pageIndex + 1} | DPI={dpi} | {width}x{height}") Using img As System.Drawing.Image = pdf.Render(pageIndex, width, height, dpi, dpi, PdfiumViewer.PdfRenderFlags.Annotations) Using bmp As New Bitmap(img) @@ -968,12 +968,12 @@ Public Class usrCntlATLAS_EXGestellung If decoded IsNot Nothing Then For Each barcode In decoded - Console.WriteLine($"BARCODE | Seite={pageIndex + 1} | Typ={barcode.BarcodeFormat} | Inhalt={barcode.Text}") + ' Console.WriteLine($"BARCODE | Seite={pageIndex + 1} | Typ={barcode.BarcodeFormat} | Inhalt={barcode.Text}") Dim mrn = GetMRNFromBarcode(barcode.Text) If mrn IsNot Nothing Then results.Add(mrn) - Console.WriteLine("MRN ERKANNT: " & mrn) + ' Console.WriteLine("MRN ERKANNT: " & mrn) End If Next End If @@ -988,7 +988,7 @@ Public Class usrCntlATLAS_EXGestellung End Using Catch ex As Exception - Console.WriteLine($"BILD-FEHLER | Seite={pageIndex + 1} | DPI={dpi} | {ex.Message}") + ' Console.WriteLine($"BILD-FEHLER | Seite={pageIndex + 1} | DPI={dpi} | {ex.Message}") End Try If results.Count > 0 Then Exit For