Difference between revisions of "PIX-525 firewalls overview and replacement partnumbers"

From NesevoWiki
Jump to navigationJump to search
(New page: 'Delimeter & Formatierungstags Const TabellenBeginn = "{| border = " & """" & "1" & """" Const TabellenEnde = "|}" Const ZeilenStartDelimeter = "|" Const ZeilenEndDelimeter = "" Const Zeil...)
 
Line 1: Line 1:
−
'Delimeter & Formatierungstags
+
{| border = "1"
−
Const TabellenBeginn = "{| border = " & """" & "1" & """"
+
||'''End-of-Sale Product Part Number'''
−
Const TabellenEnde = "|}"
+
||'''Product Description'''
−
Const ZeilenStartDelimeter = "|"
+
||'''Replacement Product Part Number'''
−
Const ZeilenEndDelimeter = ""
+
||'''Replacement Product Description'''
−
Const ZeilenTrennzeichen = "|-"
+
|-
−
Const Delimeter = "|"  'SpaltenTrennzeichen
+
||PIX-525
−
'-----------------------------------------------------
+
||PIX 525 Chassis (Chassis, Software, 2 FE Ports)
−
Sub Tabelle2Wiki()
+
||ASA5520-BUN-K9
−
  Dim fHandle, i, j As Integer
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
−
  Dim StartZeile, StartSpalte, EndZeile, EndSpalte As Integer
+
|-
−
  fHandle = FreeFile()
+
||PIX-525
−
  StartZeile = Val(InputBox("Ab welcher Zeile soll umgewandelt werden ?", _
+
||PIX 525 Chassis (Chassis, Software, 2 FE Ports)
−
                            "Startzeile - Schritt 1 von 5", "1"))
+
||ASA5520-K8
−
  'nach belieben als Zahl eintragen a=1, z=26
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
−
  StartSpalte = Val(InputBox("Ab welcher Spalte soll umgewandelt werden ?" + _
+
|-
−
                    vbCrLf + "(z.B. A=1, Z=26, AG=33)", _
+
||PIX-525-AA-GE-BUN
−
                    "Startspalte - Schritt 2 von 5", "1"))
+
||PIX 525 FO-AA Bundle (SW, Act/Act FO Lic, VAC+, 2 GE+2FE)
−
  EndZeile = Val(InputBox("Bis zu welcher Zeile soll umgewandelt werden ?", _
+
||ASA5520-BUN-K9
−
                            "Endzeile - Schritt 3 von 5", "100"))
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
−
 
+
|-
−
  'nach belieben als Zahl eintragen a=1, z=26, Spalte AG = z+7=33
+
||PIX-525-AA-GE-BUN
−
  EndSpalte = Val(InputBox("Bis zu welcher Spalte soll umgewandelt werden ?" + _
+
||PIX 525 FO-AA Bundle (SW, Act/Act FO Lic, VAC+, 2 GE+2FE)
−
                    vbCrLf + "(z.B. A=1, Z=26, AG=33)", _
+
||ASA5520-K8
−
                    "Endspalte - Schritt 4 von 5", "26"))
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
−
  DateiName = InputBox("Wie soll die Ausgabedatei heissen (bitte ggf. den Pfad ergänzen) ?", _
+
|-
−
                            "Dateiname - Schritt 5 von 5", "wiki-tabelle.txt")
+
||PIX-525-FO-BUN
−
  Open DateiName For Output As #fHandle
+
||PIX 525-FO Bundle (Chassis, Failover SW, 2 FE Ports, VAC+)
−
  Print #fHandle, TabellenBeginn      'Beginn der Tabelle
+
||ASA5520-BUN-K9
−
  For i = StartZeile To EndZeile
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
−
        For j = StartSpalte To EndSpalte
+
|-
−
            Print #fHandle, ZelleLesen(i, j)
+
||PIX-525-FO-BUN
−
        Next j
+
||PIX 525-FO Bundle (Chassis, Failover SW, 2 FE Ports, VAC+)
−
        Print #fHandle, ZeilenTrennzeichen
+
||  ASA5520-K8
−
  Next i
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
−
  Print #fHandle, TabellenEnde      'Ende der Tabelle
+
|-
−
  Close #fHandle
+
||PIX-525-FO-GE-BUN
−
End Sub
+
||PIX 525-FO-GE Bundle (Chassis,Failover SW,2 GE+2 FE,VAC+)
−
Function ZelleLesen(Zeile, Spalte)
+
||ASA5520-BUN-K9
−
Dim Inhalt, RGB_Code, FormatierungsTags As Variant
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
−
    '------------------Wenn die Zelle ein datum enthält, entsprechend formatieren------------------------------
+
|-
−
    If VarType(Cells(Zeile, Spalte)) = vbDate Then
+
||PIX-525-FO-GE-BUN
−
        Inhalt = Format(Cells(Zeile, Spalte), "dd.mm.yyyy")
+
||PIX 525-FO-GE Bundle (Chassis,Failover SW,2 GE+2 FE,VAC+)
−
    Else
+
||ASA5520-K8
−
        Inhalt = Cells(Zeile, Spalte)
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
−
    End If
+
|-
−
    '------------------Wenn Zelle leer, Space einstellen für korrekte Darstellung im Wiki----------------------
+
||PIX-525-R-BUN
−
    If Inhalt = "" Then Inhalt = " "
+
||PIX 525-R Bundle (Chassis, Restricted SW, 2 FE Ports)
−
    '------------------Zeilenumbrüche innerhalb der Zelle durch Space ersetzen---------------------------------
+
||ASA5520-BUN-K9
−
    While InStr(1, Inhalt, Chr(10)) <> 0
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
−
        Inhalt = Mid(Inhalt, 1, InStr(1, Inhalt, Chr(10)) - 1) & " " & Mid(Inhalt, InStr(1, Inhalt, Chr(10)) + 1)
+
|-
−
    Wend
+
||PIX-525-R-BUN
−
    '------------------Textinhalt der Zelle auf Fett bzw. kursiv formatieren------------------------------------
+
||PIX 525-R Bundle (Chassis, Restricted SW, 2 FE Ports)
−
    If ActiveSheet.Cells(Zeile, Spalte).Font.Bold = vbTrue And ActiveSheet.Cells(Zeile, Spalte) <> "" Then
+
||ASA5520-K8
−
        Inhalt = "'''" & Inhalt & "'''"
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
−
    End If
+
|-
−
    If ActiveSheet.Cells(Zeile, Spalte).Font.Italic = vbTrue And ActiveSheet.Cells(Zeile, Spalte) <> "" Then
+
||PIX-525-UR-BUN
−
        Inhalt = "''" & Inhalt & "''"
+
||PIX 525-UR Bundle (Chassis,Unrestricted SW,2 FE Ports,VAC+)
−
    End If
+
||ASA5520-BUN-K9
−
    '------------------Hintergrundfarbe der Zelle in Wiki-Tags umsetzen-----------------------------------------
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
−
    If Hex(ActiveSheet.Cells(Zeile, Spalte).Interior.Color) <> "FFFFFF" Then
+
|-
−
        RGB_Code = Format(Hex(ActiveSheet.Cells(Zeile, Spalte).Interior.Color), "000000")
+
||PIX-525-UR-BUN
−
        While Len(RGB_Code) < 6
+
||PIX 525-UR Bundle (Chassis,Unrestricted SW,2 FE Ports,VAC+)
−
            RGB_Code = "0" & RGB_Code
+
||ASA5520-K8
−
        Wend
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
−
        FormatierungsTags = """" & "style=background-color:#" & RGB_Code & ";" & """"
+
|-
−
    Else
+
||PIX-525-UR-GE-BUN
−
        FormatierungsTags = ""
+
||PIX 525-UR-GE Bundle (Chassis,Unrestr. SW,2 GE+2 FE,VAC+)
−
    End If
+
||ASA5520-BUN-K9
−
    '------------------Horizontale Textausrichtung der Zelle in Wiki-Tags umsetzen------------------------------
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
−
    If ActiveSheet.Cells(Zeile, Spalte).HorizontalAlignment = xlCenter Then
+
|-
−
        FormatierungsTags = "align=" & """" & "center" & """" & FormatierungsTags
+
||PIX-525-UR-GE-BUN
−
    End If
+
||PIX 525-UR-GE Bundle (Chassis,Unrestr. SW,2 GE+2 FE,VAC+)
−
    If ActiveSheet.Cells(Zeile, Spalte).HorizontalAlignment = xlRight Then
+
||ASA5520-K8
−
        FormatierungsTags = "align=" & """" & "right" & """" & FormatierungsTags
+
||ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
−
    End If
+
|-
−
    '------------------Zelleintrag zusammensetzen---------------------------------------------------------------
+
|}
−
    ZelleLesen = Delimeter & FormatierungsTags & Delimeter & Inhalt
 
−
End Function
 

Revision as of 17:28, 6 October 2009

End-of-Sale Product Part Number Product Description Replacement Product Part Number Replacement Product Description
PIX-525 PIX 525 Chassis (Chassis, Software, 2 FE Ports) ASA5520-BUN-K9 ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
PIX-525 PIX 525 Chassis (Chassis, Software, 2 FE Ports) ASA5520-K8 ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
PIX-525-AA-GE-BUN PIX 525 FO-AA Bundle (SW, Act/Act FO Lic, VAC+, 2 GE+2FE) ASA5520-BUN-K9 ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
PIX-525-AA-GE-BUN PIX 525 FO-AA Bundle (SW, Act/Act FO Lic, VAC+, 2 GE+2FE) ASA5520-K8 ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
PIX-525-FO-BUN PIX 525-FO Bundle (Chassis, Failover SW, 2 FE Ports, VAC+) ASA5520-BUN-K9 ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
PIX-525-FO-BUN PIX 525-FO Bundle (Chassis, Failover SW, 2 FE Ports, VAC+) ASA5520-K8 ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
PIX-525-FO-GE-BUN PIX 525-FO-GE Bundle (Chassis,Failover SW,2 GE+2 FE,VAC+) ASA5520-BUN-K9 ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
PIX-525-FO-GE-BUN PIX 525-FO-GE Bundle (Chassis,Failover SW,2 GE+2 FE,VAC+) ASA5520-K8 ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
PIX-525-R-BUN PIX 525-R Bundle (Chassis, Restricted SW, 2 FE Ports) ASA5520-BUN-K9 ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
PIX-525-R-BUN PIX 525-R Bundle (Chassis, Restricted SW, 2 FE Ports) ASA5520-K8 ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
PIX-525-UR-BUN PIX 525-UR Bundle (Chassis,Unrestricted SW,2 FE Ports,VAC+) ASA5520-BUN-K9 ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
PIX-525-UR-BUN PIX 525-UR Bundle (Chassis,Unrestricted SW,2 FE Ports,VAC+) ASA5520-K8 ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
PIX-525-UR-GE-BUN PIX 525-UR-GE Bundle (Chassis,Unrestr. SW,2 GE+2 FE,VAC+) ASA5520-BUN-K9 ASA 5520 Appliance with SW, HA, 4GE+1FE, 3DES/AES
PIX-525-UR-GE-BUN PIX 525-UR-GE Bundle (Chassis,Unrestr. SW,2 GE+2 FE,VAC+) ASA5520-K8 ASA 5520 Appliance with SW, HA, 4GE+1FE, DES
Retrieved from "http://wiki.nesevo.com/index.php?title=PIX-525_firewalls_overview_and_replacement_partnumbers&oldid=1283"