Difference between revisions of "Catalyst 6500 / cisco7600 series Ethernet Module Daughter Cards"
From NesevoWiki
Jump to navigationJump to search (Removing all content from page) |
|||
Line 1: | Line 1: | ||
− | + | '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 |
Revision as of 13:13, 7 June 2010
'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