Hallo alle zusammen,
kann mir bitte jemand sagen, in welche Sprache ist dieser Teil eines Programms geschrieben?
Module Start
Sub Main()
Dim CMDLine, ReadLine, Result As String
Dim FileReader As System.IO.StreamReader
Dim CMDWriter As New System.IO.StringWriter
Dim SysNames As New Collection
Dim CP As New System.Diagnostics.Process
Dim i As Integer
Dim nSystem As New System2Check
Const LogFileName As String = "Log.txt"
CMDLine = My.Application.CommandLineArgs(0)
Output.Logfile(LogFileName, "Iputfile = " & CMDLine)
'Read all systems in list and add name in an object wich is addet to a collection
FileReader = FileIO.FileSystem.OpenTextFileReader(CMDLine)
While FileReader.EndOfStream = False
ReadLine = FileReader.ReadLine
nSystem = New System2Check
nSystem.Name = ReadLine
SysNames.Add(nSystem)
Output.Logfile(LogFileName, "Read system: " & nSystem.Name)
End While
FileReader.Close()
Das ist wirklich ernst gemeint, sogar wenn das nicht so ausschaut.
Danke im Voraus,
Yvonna
kann mir bitte jemand sagen, in welche Sprache ist dieser Teil eines Programms geschrieben?
Module Start
Sub Main()
Dim CMDLine, ReadLine, Result As String
Dim FileReader As System.IO.StreamReader
Dim CMDWriter As New System.IO.StringWriter
Dim SysNames As New Collection
Dim CP As New System.Diagnostics.Process
Dim i As Integer
Dim nSystem As New System2Check
Const LogFileName As String = "Log.txt"
CMDLine = My.Application.CommandLineArgs(0)
Output.Logfile(LogFileName, "Iputfile = " & CMDLine)
'Read all systems in list and add name in an object wich is addet to a collection
FileReader = FileIO.FileSystem.OpenTextFileReader(CMDLine)
While FileReader.EndOfStream = False
ReadLine = FileReader.ReadLine
nSystem = New System2Check
nSystem.Name = ReadLine
SysNames.Add(nSystem)
Output.Logfile(LogFileName, "Read system: " & nSystem.Name)
End While
FileReader.Close()
Das ist wirklich ernst gemeint, sogar wenn das nicht so ausschaut.
Danke im Voraus,
Yvonna