Difference between revisions of "Main Page"

From NesevoWiki
Jump to navigationJump to search
Line 102: Line 102:
  
 
* [[GSR linecards and their engines]]
 
* [[GSR linecards and their engines]]
 
==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
 
 
__NOTOC__
 

Revision as of 16:34, 13 March 2009

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

Loading IOS

Telling the difference

Power supply

Miscellaneous

GBICs / SFPs

Cisco routers

Cisco switches

Cisco 6500 series switches

Cisco 2600 series routers

Cisco 7200 series routers

Cisco 7600 series routers

supervisor engines (SUP) / route switch processors (RSP) / performance route processors (PRP)

Nesevo Lab

CCNA / CCNP

CWDM / DWDM

cables / cisco cables

Cisco GSR Linecards