70 lines
2.2 KiB
VB.net
70 lines
2.2 KiB
VB.net
Imports System.IO
|
|
Imports System.Text.RegularExpressions
|
|
|
|
Public Class clsHelper
|
|
Public Shared Function file_exists(ByVal _file As String, ByVal _modul As String) As Boolean
|
|
Try
|
|
If System.IO.File.Exists(_file) Then
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
Catch ex As Exception
|
|
If _modul = "NI" Then
|
|
ClassLoggerNI.Add("Fehler in clsHelper Funktion file_exists - Fehler: ", ex)
|
|
End If
|
|
Return False
|
|
End Try
|
|
End Function
|
|
Public Shared Function GetPDFPageCount(ByVal PDFDateiname As String, ByVal _modul As String) As Integer
|
|
Try
|
|
If PDFDateiname.ToLower.EndsWith(".pdf") Then
|
|
Dim fs As FileStream
|
|
Dim sr As StreamReader
|
|
Dim PDFText As String
|
|
Dim rgx As Regex
|
|
Dim Muster As String
|
|
Dim Treffer As MatchCollection
|
|
Dim Anzahl As Integer
|
|
|
|
fs = New FileStream(PDFDateiname, FileMode.Open, FileAccess.Read)
|
|
sr = New StreamReader(fs)
|
|
PDFText = sr.ReadToEnd()
|
|
|
|
Muster = "/Type\s*/Page[^s]"
|
|
rgx = New Regex(Muster, RegexOptions.Multiline)
|
|
Treffer = rgx.Matches(PDFText)
|
|
Anzahl = Treffer.Count
|
|
fs.Close()
|
|
|
|
Return Anzahl
|
|
Else
|
|
Return 0
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
If _modul = "NI" Then
|
|
ClassLoggerNI.Add("Fehler in GetPageCount - Fehler: ", ex)
|
|
End If
|
|
If _modul = "DI" Then
|
|
ClassLoggerDI.Add("Fehler in GetPageCount - Fehler: ", ex)
|
|
End If
|
|
Return 0
|
|
End Try
|
|
|
|
|
|
End Function
|
|
Public Shared Sub Add_Application_log(msg As String)
|
|
Try
|
|
If CURRENT_APPLICATION_LOG <> String.Empty Then
|
|
CURRENT_APPLICATION_LOG = CURRENT_APPLICATION_LOG & vbNewLine & Now.ToString & " >> " & msg
|
|
Else
|
|
CURRENT_APPLICATION_LOG = Now.ToString & " >> " & msg
|
|
End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
End Class
|