You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
54 lines
1.5 KiB
54 lines
1.5 KiB
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) = "BP_PERSON_REL_TYPE" Or UCase(Me.Typ) = "CODE_PERSON_TYPE" 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
|
|
|
|
Return True
|
|
Catch ex As Exception
|
|
Console.WriteLine("Fehlende Anzahl Argumente (Typ, Anzahl, Inputfilename)")
|
|
Return False
|
|
End Try
|
|
|
|
End Function
|
|
|
|
End Class
|