Initial commit

2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions
--- a/ColdAbgleich/.svn/pristine/50/503a6ec5c3be8e61bfec0c3fb5066b703163bad2.svn-base
+++ b/ColdAbgleich/.svn/pristine/50/503a6ec5c3be8e61bfec0c3fb5066b703163bad2.svn-base
@@ -0,0 +1,76 @@
+Imports System.IO
+Public Class clsArgs
+    Dim m_typ As String
+    Property Typ() As String
+        Get
+            Return m_typ
+        End Get
+        Set(ByVal value As String)
+            m_typ = value
+        End Set
+    End Property
+
+    Dim m_anzahl As String
+    Property Anzahl() As String
+        Get
+            Return m_anzahl
+        End Get
+        Set(ByVal value As String)
+            m_anzahl = value
+        End Set
+    End Property
+
+    Dim m_filename As String
+    Property inputfilename() As String
+        Get
+            Return m_filename
+        End Get
+        Set(ByVal value As String)
+            m_filename = value
+        End Set
+    End Property
+
+    Public Function CheckArgs(ByVal args() As String) As Boolean
+        Try
+            Me.Typ = args(1)
+            If UCase(Me.Typ) = "BL" Or UCase(Me.Typ) = "BL1" Or UCase(Me.Typ) = "EDOKA" Or UCase(Me.Typ) = "DOK" Or UCase(Me.Typ) = "EDEXBL" Or UCase(Me.Typ) = "EDEXBL1" Or UCase(Me.Typ) = "MFS" Or UCase(Me.Typ) = "DOKS" Then
+                Me.inputfilename = args(2)
+                If Not File.Exists(Me.inputfilename) Then
+                    Console.WriteLine("Inputfile " & Me.inputfilename + " nicht vorhandne.")
+                    Return False
+                End If
+                Return True
+            End If
+
+            If UCase(Me.Typ) = "VV" Then
+                Me.inputfilename = args(2)
+                If Not File.Exists(Me.inputfilename) Then
+                    Console.WriteLine("Inputfile " & Me.inputfilename + " nicht vorhandne.")
+                    Return False
+                End If
+                Return True
+            End If
+
+
+            If UCase(Me.Typ) <> "ZV" And UCase(Me.Typ) <> "HOST" And UCase(Me.Typ) <> "HOST1" Then
+                Console.WriteLine("Inputfile " & Me.inputfilename + " nicht vorhandne.")
+                Return False
+            End If
+            Me.inputfilename = args(2)
+            If Not File.Exists(Me.inputfilename) Then
+                Console.WriteLine("Inputfile " & Me.inputfilename + " nicht vorhandne.")
+                Return False
+            End If
+            Return True
+            If Me.Typ = "" Or Me.Anzahl = "" Or Me.inputfilename = "" Then
+                Console.WriteLine("Fehlende Anzahl Argumente (Typ, Anzahl, Inputfilename)")
+            End If
+            Return True
+        Catch ex As Exception
+            Console.WriteLine("Fehlende Anzahl Argumente (Typ, Anzahl, Inputfilename)")
+            Return False
+        End Try
+
+    End Function
+
+End Class