aerius
Feb 06, 2008, updated at Feb 12, 2008 (UTC)
view4598
view13
0
Goto Top

txt Konfigurationsdatei über eine Batchdatei teilen lassen

GermansolvedQuestionBatch, ShellDevelopment
Hallo,

ich habe mehrere Konfigurationsdateien von Switchen, die um die 20000 Zeilen beinhalten.

Die Dateien heißen BROCADE_IPAdresse.txt.

Innerhalb der Datei befinden sich Konsolenbefehle die immer das gleiche Muster haben, dabei beinhaltet der Konsolenbefehl immer "admin>".

Zum Beispiel: admin> nsshow

Das nsshow zum Beispiel soll danach auch für den Dateinamen dienen, welcher dann so aussehen sollte BROCADE_IPAdresse_nsshow.
Der Inhalt in der Datei sollen die Zeilen zwischen dem Konsolenbefehl und dem nächsten sein.

Die Stelle wo nsshow hier steht müsste aber immer ausgelesen werden, da dort auch andere Befehle stehen können.

Ich hab es bisher nur soweit hinbekommen, das ich über findstr rausgefunden habe in welcher Zeile admin> vorkommt.


Die Dateien sollen am Ende einfach im gleichen Verzeichnis liegen.

Vielleicht kann mir ja hier einer weiterhelfen.

Aerius
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 80040

Url: https://administrator.de/contentid/80040

Printed on: April 20, 2024 at 01:04 o'clock

13 Comments
Latest comment
Goto Top
Member: rubberduck
rubberduck Feb 07, 2008 at 09:45:46 (UTC)
Goto Top
Hi Aerius

Bitte nicht böse sein. Aber ich Check nicht, was Du haben willst.
(Und wenn ich die Zeit/Datum Deiner Frage anschaue, bin ich wohl nicht der einzige...)
Kannst Du Deine Frage vielleicht Umformulieren?

So nach Muster:
- Meine Eingabe (mit kleinem Auszug)
- Gewünschte Ausgabe (wie es Aussehen soll)

Ich denke, das die Lösung eigentlich sehr einfach ist.
Ach ja, was hast Du für ein OS? Windows ja (ist Annahme da FINDSTR), aber welches?

Und sollte es sich bereits erledigt haben, dann markier es als Erledigt. Danke
Member: Aerius
Aerius Feb 07, 2008 at 10:17:03 (UTC)
Goto Top
Das Betriebssystem ist ein Windows XP verschnitt mit SP1. ;)

BROCADE_IPAdresse.txt

## ScanMaster Version 2.1.0 ##

## Starting SWITCH INFORMATION ##


Type: Switch
HostName / IP: xxx.xxx.xxx.xxx


login:
xxxxxx

Password:
xxxxxx

version
Kernel: 2.4.19
Fabric OS: v5.2.1b
Made on: Mon Apr 9 20:19:56 2007
Flash: Tue Aug 21 11:50:30 2007
BootProm: 4.5.3
na01_sw01:admin> switchshow
switchName: na01_sw01
switchType: 34.0
switchState: Online
switchMode: Native
switchRole: Principal
switchDomain: 1
switchId: xxx
switchWwn: xxx
zoning: OFF
switchBeacon: OFF

Area Port Media Speed State Proto
0 0 id N2 Online F-Port
1 1 id N2 Online F-Port
2 2 id N2 Online L-Port
3 3 id N4 No_Light
4 4 id N2 Online L-Port
5 5 id N4 No_Light
6 6 id N2 Online F-Port
7 7 id N4 Online E-Port
8 8 -- N4 No_Module (No POD License) Disabled
9 9 -- N4 No_Module (No POD License) Disabled
10 10 -- N4 No_Module (No POD License) Disabled
11 11 -- N4 No_Module (No POD License) Disabled
12 12 -- N4 No_Module (No POD License) Disabled
13 13 -- N4 No_Module (No POD License) Disabled
14 14 -- N4 No_Module (No POD License) Disabled
15 15 -- N4 No_Module (No POD License) Disabled
na01_sw01:admin> nsshow
{
...

Das soll durch die Batchdatei geteilt werden.
Immer in der Zeile wo admin> vorkommt und das Kommando dahinter soll mit in den neuen Dateinamen.

Also so..

BROCADE_IPAdresse_switchshow.txt

switchName: na01_sw01
switchType: 34.0
switchState: Online
switchMode: Native
switchRole: Principal
switchDomain: 1
switchId: xxx
switchWwn: xxx
zoning: OFF
switchBeacon: OFF

Area Port Media Speed State Proto
0 0 id N2 Online F-Port
1 1 id N2 Online F-Port
2 2 id N2 Online L-Port
3 3 id N4 No_Light
4 4 id N2 Online L-Port
5 5 id N4 No_Light
6 6 id N2 Online F-Port
7 7 id N4 Online E-Port
8 8 -- N4 No_Module (No POD License) Disabled
9 9 -- N4 No_Module (No POD License) Disabled
10 10 -- N4 No_Module (No POD License) Disabled
11 11 -- N4 No_Module (No POD License) Disabled
12 12 -- N4 No_Module (No POD License) Disabled
13 13 -- N4 No_Module (No POD License) Disabled
14 14 -- N4 No_Module (No POD License) Disabled
15 15 -- N4 No_Module (No POD License) Disabled

BROCADE_IPAdresse_nsshow.txt

{
...


In der ursprünglichen Datei gibt es etwa 10 solcher Abfragen. Der Switchname ist auch nicht immer der gleiche, da ich noch mehr Dateien davon habe mit anderen IPAdressen.
Ich hoffe es war jetzt verständlicher. face-smile
Member: rubberduck
rubberduck Feb 07, 2008 at 19:27:33 (UTC)
Goto Top
Kannst Du mal den den nachfolgenden Code als *.vbs abspeichern (strPfad und strBrocade anpassen)?
Es wird erstmal ein File per : admin> trennen und neue Files erstellen.
Wenn das so O.K. ist, dann geht es zu Schritt 2.

Für alle, die mitlesen:
Ich weiss, beim lesen dieses Codes bekommt man Augenkrebs, aber für's erste funktioniert's face-wink

Dim objFSO, objFile, arrLines

strpfad = "c:\MeinFileOrdner\"  
strBrocade = "Brocade_IP.txt"  
intZeiger = 0

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFile = objFSO.OpenTextFile(strpfad & strBrocade, 1)

arrLines = Split(objFile.ReadAll, vbCrLf): objFile.Close

For i = 0 To UBound(arrLines)
    If InStr(1, arrLines(i), ":admin>") <> 0 Then  
        strFileName = Left(strBrocade, Len(strBrocade) - 4) & "_" & Mid(arrLines(i), InStr(1, arrLines(i), ">") + 2, 50) & ".txt"  
        objFSO.CreateTextFile (strpfad & strFileName)
        ReDim arrCurrent(0)
        intZeiger = 1
    End If
    If intZeiger = 1 Then
        intZeiger = 2
    ElseIf intZeiger = 2 Then
        ReDim Preserve arrCurrent(UBound(arrCurrent) + 1)
        arrCurrent(UBound(arrCurrent) - 1) = arrLines(i)
        Set objFile = objFSO.OpenTextFile(strpfad & strFileName, 2)
        objFile.Write (Join(arrCurrent, vbCrLf)): objFile.Close
    End If
Next
Member: Aerius
Aerius Feb 08, 2008 at 11:18:37 (UTC)
Goto Top
wunderbar face-smile
Das klappt schonmal.

Jetzt wäre es nur noch schön mit relativen Pfaden und mehrere Dateien.
Vielleicht wäre das mit mehreren Dateien einfacher, wenn man da einfach den Inhalt von einem Ordner nimmt.
Vielen Dank schonmal.
Member: rubberduck
rubberduck Feb 08, 2008 at 11:30:41 (UTC)
Goto Top
Na klar. Darum sage ich ja auch Schritt 1.
Zuerst baut man einen Durchgang der funktioniert und lässt Ihn danach wiederholen.

Was ich noch nicht weiss, sind alle Deine Log-Files im selben Verzeichnis, oder sind sie es zum Zeitpunkt der Ausführung?
Ach ja, was meinst Du mit relativen Pfaden?
Member: Aerius
Aerius Feb 08, 2008 at 11:35:23 (UTC)
Goto Top
Ja sind alle im selben Verzeichnis.

Naja relativer Pfad, das man den Ordner mal verschieben kann. Das Script soll dann einfach in dem Ordner von den Konfigs mit drin liegen.

Will das ganze ja dann in Excel einbauen. ;)
Bzw die einzelnen Dateien irgendwie.
Member: rubberduck
rubberduck Feb 08, 2008 at 12:29:26 (UTC)
Goto Top
O.K.
Versuchs mal damit:

Dim objFSO, objFile, objFolder, arrLines, strEingabe, strAusgabe, intZeiger

strEingabe = "c:\MeinFileOrdner"  
strAusgabe = "c:\MeinFileOrdner\"  

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFolder = objFSO.GetFolder(strEingabe)

For Each File In objFolder.Files
    If InStr(1, LCase(Right(File, 4)), ".txt") <> 0 Then  
    intZeiger = 0
        Set objFile = objFSO.OpenTextFile(File, 1)
        arrLines = Split(objFile.ReadAll, vbCrLf): objFile.Close
        
        For i = 0 To UBound(arrLines)
            If InStr(1, arrLines(i), ":admin>") <> 0 Then  
                strFileName = Mid(File.Name, 1, Len(File.Name) - 4) & "_" & Mid(arrLines(i), InStr(1, arrLines(i), ">") + 2, 50) & ".txt"  
                objFSO.CreateTextFile (strAusgabe & strFileName)
                ReDim arrCurrent(0)
                intZeiger = 1
            End If

            If intZeiger = 1 Then
                intZeiger = 2
            ElseIf intZeiger = 2 Then
                ReDim Preserve arrCurrent(UBound(arrCurrent) + 1)
                arrCurrent(UBound(arrCurrent) - 1) = arrLines(i)
                Set objFile = objFSO.OpenTextFile(strAusgabe & strFileName, 2)
                objFile.Write (Join(arrCurrent, vbCrLf)): objFile.Close
            End If
        Next
        Set objFile = Nothing
        Set objFolder = Nothing
    End If
Next
Falls Du noch Fragen zum Script hast, nur zu.
Member: Aerius
Aerius Feb 08, 2008 at 13:10:02 (UTC)
Goto Top
Funktioniert soweit, außer das es irgendwie lange dauert nach der ersten Datei bis was passiert.
Kann man sich das anzeigen lassen was er gerade macht, damit man sieht das er noch was macht?
Ansonsten vielen Dank face-smile
Member: rubberduck
rubberduck Feb 08, 2008 at 13:25:26 (UTC)
Goto Top
Das Script so ausführen:
CMD -> cscript ScriptName.vbs
Im Script sind es die Zeilen, wo wscript.echo drinsteht. Kannst natürlich Deine gewünschten Angaben Ausgeben lassen

Dim objFSO, objFile, objFolder, arrLines, strEingabe, strAusgabe, intZeiger

strEingabe = "p:\scripts\brocade"  
strAusgabe = "p:\scripts\brocade\"  

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFolder = objFSO.GetFolder(strEingabe)

For Each File In objFolder.Files
    If InStr(1, LCase(Right(File, 4)), ".txt") <> 0 Then  
    intZeiger = 0 : wscript.echo file
        Set objFile = objFSO.OpenTextFile(File, 1)
        arrLines = Split(objFile.ReadAll, vbCrLf): objFile.Close
        
        For i = 0 To UBound(arrLines)
            If InStr(1, arrLines(i), ":admin>") <> 0 Then  
                strFileName = Mid(File.Name, 1, Len(File.Name) - 4) & "_" & Mid(arrLines(i), InStr(1, arrLines(i), ">") + 2, 50) & ".txt"  
                objFSO.CreateTextFile (strAusgabe & strFileName)
                ReDim arrCurrent(0)
                intZeiger = 1
            End If

            If intZeiger = 1 Then
                intZeiger = 2
            ElseIf intZeiger = 2 Then
                ReDim Preserve arrCurrent(UBound(arrCurrent) + 1)
                arrCurrent(UBound(arrCurrent) - 1) = arrLines(i)
                Set objFile = objFSO.OpenTextFile(strAusgabe & strFileName, 2)
		wscript.echo arrlines(i)
                objFile.Write (Join(arrCurrent, vbCrLf)): objFile.Close
            End If
        Next
        Set objFile = Nothing
        Set objFolder = Nothing
    End If
Next
Member: Aerius
Aerius Feb 08, 2008 at 13:49:23 (UTC)
Goto Top
Super funktioniert face-smile

Aber das er sich den Pfad allein holt ist nicht möglich oder?

Vielen Dank für die tolle Hilfe! face-smile
Member: rubberduck
rubberduck Feb 08, 2008 at 13:56:30 (UTC)
Goto Top
Ist nicht getestet.
Aber in etwa so:

strEingabe = cstr(Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")))  
strAusgabe = cstr(Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))) & "\"

Gibt nur ein Kleines Problem... Das Script muss in genau diesem Ordner sein.
Sonst hast Du ja die Möglichkeit eine Variable zu bennen, also wo liegt das Problem?
Member: Aerius
Aerius Feb 08, 2008 at 18:39:36 (UTC)
Goto Top
Einwandfrei, so hab ich mir das vorgestellt. face-smile

Vielen Dank, super Forum, weiter so!!!
Member: Aerius
Aerius Feb 12, 2008 at 08:41:46 (UTC)
Goto Top
Kleine Frage hätte ich noch,

wo und was müsste ich in das Script einbauen, das er mir den Bereich von "supportshow" überspringt, da sind nur Logdaten drin, die total unwichtig sind aber ewig brauchen beim erstellen.
Dann muss er auch nicht alles durchgehen. face-smile

lg Aerius
GermansolvedQuestionBatch, ShellDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment