Zum Inhalt springen

BatchAnalyseTool (SoftwareEntwicklung)


Moses1302

Empfohlene Beiträge

Hallo Leute,

ich brauche dringend Hilfe....

Ich muss ein Programm mit Hilfe von .NET enwerfen.

Das Programm soll bestimmte "Sub directories" durchsuchen können...innerhalb der Directories sind Batches angelegt.

Ziel bei dem Programm soll es sein, dass mit Hilfe von Eingabefelder, die zu durchsuchende Directorie sowie die Pfadausgabe angegeben werden kann. Es geht darum, zusammenhängende Batches evtl. mit Hilfe eines Organiegrammes oder so ähnlich auszugeben/zu visualisieren.

Man kann ja evtl. die zusammenhängende Batches mit Hilfe einer Abfrage z.B. Call ermitteln.

Ich bräuchte total eure Hilfe, wäre sehr nett wenn mir jemand von euch weiterhelfen könnte!

Ich währe für jeden Vorschlag dankbar.

Liebe Grüsse

und Danke für die Mühen

Marco

Link zu diesem Kommentar
Auf anderen Seiten teilen

Du brauchst 2 Komponenten, eine die rekursiv einen Verzeichnisbaum durchläuft und alle Dateien in diesen auflistest, das ist relativ trivial, finden sich massig Beispiele im Internet.

Die zweite Komponente muss die Batch-Files öffnen, jede Zeile lesen und nach Verweisen suchen. Wichtig ist, die Batch-Dateien intern mit dem kompletten Pfadnamen zu handeln. Wenn call test.bat gefunden wird ist es wichtig zu wissen das damit c:\demo\test.bat gemeint ist.

Alles in allem eigentlich trivial, vielleicht erstmal in Textform einen Algorithmus aufschreiben oder ein Struktogramm machen?

Link zu diesem Kommentar
Auf anderen Seiten teilen

Hi, hab es soweit hinbekommen, aber er spuckt mit immer nen Exception Failure aus bei /siehe Grüne Syntax)

Hast du ne Idee?

''''''''Schleife welche REFERENZLISTE behandelt:

If Not Trim(strQuellZeile) = "" Then

strSuchAnfang = CStr(1)

intZeilennummer = 1

Do Until CDbl(strSuchAnfang) >= Len(strQuellZeile)

lngStelleGesuchtesZeichen = InStr(CShort(strSuchAnfang), Trim(strQuellZeile), " ")

If lngStelleGesuchtesZeichen = 0 Then

lngStelleGesuchtesZeichen = Len(Trim(strQuellZeile)) + 1

End If

strgefundenerBefehl = Mid(Trim(strQuellZeile), CInt(strSuchAnfang), lngStelleGesuchtesZeichen - 1)

' Set rs = New ADODB.Recordset

' With rs

' .ActiveConnection = cn

' .CursorLocation = adUseClient

' .LockType = adLockOptimistic

' .Source = "SELECT * FROM Referenzliste WHERE Befehl = '" & strgefundenerBefehl & "'"

' .Open

' End With

' If rs.EOF Then

strZeile = "Zeile"

strZeilenName = strZeile & intZeilennummer

rs = New ADODB.Recordset

With rs

.let_ActiveConnection(cn)

.CursorLocation = ADODB.CursorLocationEnum.adUseClient

.LockType = ADODB.LockTypeEnum.adLockOptimistic

.let_Source("SELECT * FROM Zeilen")

.Open()

If strZeilenName = "Zeile1" Then

.AddNew()

.Fields(strZeilenName).Value = strgefundenerBefehl

Else

'.Fields(strZeilenName).Value = strgefundenerBefehl

End If

.Update()

.Close()

Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...