Main Page
From NesevoWiki
Help
You can read the introduction to MediaWiki Syntax in german or english. Additionally, you can consult the help pages provided by the WikiMedia Foundation and by mediawiki.org, the developers of this software. There's also help regarding the transformation of Microsoft Office documents (german).
Resetting / changing passwords
- Password Recovery Procedure for Cisco Routers
- Password Recovery Procedure for Cisco Switches
- Password Recovery Procedure for Cisco Secure Pix
- Standard Break Key Sequence Combinations During Password Recovery
- Password Recovery Procedure for the Catalyst 6500 with Supervisor 720 (WS-SUP720 / WS-SUP720-3B / WS-SUP720-3BXL) Running Cisco IOS Software Prior to 12.2(17)SX
Loading IOS
- Loading IOS on a Switch or Router
- Loading IOS from a Switch or Router to your PC
- Loading IOS on a switch or router via the console
- Loadind IOS on a Sup32
Telling the difference
- The difference between a PC, SPC, UPC and APC finish on a fiber optic connector and which one you should choose
- The difference between a singlemode and a multimode fibre patchcord
- The difference between a SC/PC and SC/APC adapter
Power supply
- PWR-2700-AC for Cisco7606
- PWR-2700-AC/4 for Cisco7604 and WS-C6504-E
- PWR-7200-DC / PWR-7200-DC+
- WS-CAC-2500W
- CAB-7513-ACE / CAB-AC-2500W-EU
Miscellaneous
GBICs / SFPs
- connector matrix for cisco transceivers (GBICs and SFPs)
- Testing your GBIC per ping command
- GBIC / SFP / optical components
Cisco routers
- Specifications
- Routermemory
- Router Module Crossref
- Router Performance Matrix
- CISCO INTEGRATED SERVICE ROUTERS
Cisco switches
Cisco 6500 series switches
- Cisco 6503 and Cisco 6503-E
- Cisco 6506 and Cisco 6506-E
- Cisco 6509 and Cisco 6509-E
- Cisco 6509-NEB an Cisco 6509-NEB-A
- Cisco 6509-V-E
- Cisco 6513
Cisco 2600 series routers
Cisco 7200 series routers
Cisco 7600 series routers
- Cisco7603 and Cisco7603-S routers
- Cisco7604 router
- Cisco7606 and Cisco7606-S routers
- Cisco7609 and Cisco7609-S routers
- Cisco7613 router
supervisor engines (SUP) / route switch processors (RSP) / performance route processors (PRP)
- Cisco catalyst 6000 / 6500 series supervisor engines
- forwarding engines / multilayer switch feature cards (MSFC) and routing engines / policy feature cards (PFC)
- WS-SUP720-3BXL
Nesevo Lab
CCNA / CCNP
CWDM / DWDM
cables / cisco cables
Cisco GSR Linecards
=Cisco GSR line cards and their engine types
'Delimeter & Formatierungstags Const TabellenBeginn = "{| border = " & """" & "1" & """" Const TabellenEnde = "|}" Const ZeilenStartDelimeter = "|" Const ZeilenEndDelimeter = "" Const ZeilenTrennzeichen = "|-" Const Delimeter = "|" 'SpaltenTrennzeichen '----------------------------------------------------- Sub Tabelle2Wiki()
Dim fHandle, i, j As Integer
Dim StartZeile, StartSpalte, EndZeile, EndSpalte As Integer
fHandle = FreeFile()
StartZeile = Val(InputBox("Ab welcher Zeile soll umgewandelt werden ?", _
"Startzeile - Schritt 1 von 5", "1"))
'nach belieben als Zahl eintragen a=1, z=26
StartSpalte = Val(InputBox("Ab welcher Spalte soll umgewandelt werden ?" + _
vbCrLf + "(z.B. A=1, Z=26, AG=33)", _
"Startspalte - Schritt 2 von 5", "1"))
EndZeile = Val(InputBox("Bis zu welcher Zeile soll umgewandelt werden ?", _
"Endzeile - Schritt 3 von 5", "100"))
'nach belieben als Zahl eintragen a=1, z=26, Spalte AG = z+7=33
EndSpalte = Val(InputBox("Bis zu welcher Spalte soll umgewandelt werden ?" + _
vbCrLf + "(z.B. A=1, Z=26, AG=33)", _
"Endspalte - Schritt 4 von 5", "26"))
DateiName = InputBox("Wie soll die Ausgabedatei heissen (bitte ggf. den Pfad ergänzen) ?", _
"Dateiname - Schritt 5 von 5", "wiki-tabelle.txt")
Open DateiName For Output As #fHandle
Print #fHandle, TabellenBeginn 'Beginn der Tabelle
For i = StartZeile To EndZeile
For j = StartSpalte To EndSpalte
Print #fHandle, ZelleLesen(i, j)
Next j
Print #fHandle, ZeilenTrennzeichen
Next i
Print #fHandle, TabellenEnde 'Ende der Tabelle
Close #fHandle
End Sub Function ZelleLesen(Zeile, Spalte) Dim Inhalt, RGB_Code, FormatierungsTags As Variant
'------------------Wenn die Zelle ein datum enthält, entsprechend formatieren------------------------------
If VarType(Cells(Zeile, Spalte)) = vbDate Then
Inhalt = Format(Cells(Zeile, Spalte), "dd.mm.yyyy")
Else
Inhalt = Cells(Zeile, Spalte)
End If
'------------------Wenn Zelle leer, Space einstellen für korrekte Darstellung im Wiki----------------------
If Inhalt = "" Then Inhalt = " "
'------------------Zeilenumbrüche innerhalb der Zelle durch Space ersetzen---------------------------------
While InStr(1, Inhalt, Chr(10)) <> 0
Inhalt = Mid(Inhalt, 1, InStr(1, Inhalt, Chr(10)) - 1) & " " & Mid(Inhalt, InStr(1, Inhalt, Chr(10)) + 1)
Wend
'------------------Textinhalt der Zelle auf Fett bzw. kursiv formatieren------------------------------------
If ActiveSheet.Cells(Zeile, Spalte).Font.Bold = vbTrue And ActiveSheet.Cells(Zeile, Spalte) <> "" Then
Inhalt = "" & Inhalt & ""
End If
If ActiveSheet.Cells(Zeile, Spalte).Font.Italic = vbTrue And ActiveSheet.Cells(Zeile, Spalte) <> "" Then
Inhalt = "" & Inhalt & ""
End If
'------------------Hintergrundfarbe der Zelle in Wiki-Tags umsetzen-----------------------------------------
If Hex(ActiveSheet.Cells(Zeile, Spalte).Interior.Color) <> "FFFFFF" Then
RGB_Code = Format(Hex(ActiveSheet.Cells(Zeile, Spalte).Interior.Color), "000000")
While Len(RGB_Code) < 6
RGB_Code = "0" & RGB_Code
Wend
FormatierungsTags = """" & "style=background-color:#" & RGB_Code & ";" & """"
Else
FormatierungsTags = ""
End If
'------------------Horizontale Textausrichtung der Zelle in Wiki-Tags umsetzen------------------------------
If ActiveSheet.Cells(Zeile, Spalte).HorizontalAlignment = xlCenter Then
FormatierungsTags = "align=" & """" & "center" & """" & FormatierungsTags
End If
If ActiveSheet.Cells(Zeile, Spalte).HorizontalAlignment = xlRight Then
FormatierungsTags = "align=" & """" & "right" & """" & FormatierungsTags
End If
'------------------Zelleintrag zusammensetzen---------------------------------------------------------------
ZelleLesen = Delimeter & FormatierungsTags & Delimeter & Inhalt
End Function
