77 lines
2.5 KiB
Plaintext
77 lines
2.5 KiB
Plaintext
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
|