@Schnuffel Danke für deine Hilfe!
Das ist das 1. Mal, dass ich was mit HTML zu tun habe.
Hab verschiedene sachen ausprobiert, mansches klappte auch
Also einfach gesagt ich hab davon keinen Plan.
Gruß
Werner
Outlookex Schriftgröße ändern
-
Windi -
22. Januar 2024 um 11:19 -
Erledigt
-
dafür sind wir doch da
-
Jetzt sieht es so aus:
-
pls, stell auch das entsprechende Script mit ein, dann können wir daran "arbeiten"
-
hier mal dein vollständiger Code etwas aufgeräumt:
AutoIt
Alles anzeigenOpt('MustDeclareVars', 1) #include-once #include <Array.au3> #include <WinAPIConv.au3> ; Array heißt $aWeine Global $aWeine[][5] = _ [ _ ['02', '1 ', '2021er Silvaner, trocken ', ' 5,00 €', ' 5,00 €'], _ ['01', '10 ', '2022er Gutenberger´s Winzerschoppen, lieblich', ' 5,00 €', ' 50,00 €'], _ ['04', '100 ', '2021er Müller-Thurgau u. Silvaner, lieblich', ' 5,00 €', ' 500,00 €'], _ ['08', '1000 ', '2022er Blauer Spätburgunder Rosé, lieblich', ' 5,00 €', ' 5000,00 €'], _ ['07', '1 ', '2022er Rotling, halbtrocken', ' 10,00 €', ' 10,00 €'] _ ] ;MsgBox(0,"Alle Artikel", $AlleArtikel) _ArrayDisplay($aWeine) ;~ For $Col = 0 to $Cols - 1 ;wird nur benötigt wenn die Spalten überschriften haben ;~ $AlleArtikel &= '<th>' & $aWeine[0][$Col] & '</th>' ;~ Next Global $Wert, $Rahmen = 'style="border: 1px solid black;"' ; Tabellen-Rahmen in schwarz Global $Tabelle = '<table>' ; Tabelle For $Row = 0 To UBound($aWeine, $UBOUND_ROWS) - 1 $Tabelle &= '<tr>' & @CRLF For $Col = 0 To UBound($aWeine, $UBOUND_COLUMNS) - 1 $Wert = BinaryToString(StringToBinary($aWeine[$Row][$Col], 1), 1) ; Somit sind Umlaute oder Zeichen wie "´" okay If $Col = 0 Then $Tabelle &= '<td style="border: 1px solid black;text-align: center;">' & $Wert & '</td>' & @CRLF Else $Tabelle &= '<td style="border: 1px solid black;text-align: right;">' & $Wert & '</td>' & @CRLF EndIf Next $Tabelle &= '</tr>' & @CRLF Next $Tabelle &= '</table>' ConsoleWrite($Tabelle & @CRLF) -
sollte das Problem weiträumiger sein brauchen wir den vollständigen code.
-
Super Danke so ist es perfekt.
Spalte 3 linksbündig hab ich Dank dir selbst hinbekommen.
Mein Kollege, hatte ich Eingangs schon erwähnt, ist stark Sehbehindert.
Deshalb noch diese Frage?
Gibt es in der Tabelle, die Möglichkeit 2 oder 3 Leerstellen vor der Weinsorte (3. Spalte) einzufügen.
Das wäre für Ihn besser zu lesen.
Hatte es so versucht. Geht nicht.
If $Col = 2 Then $Tabelle &= '<td style="border: 1px solid black;text-align: left;">' & " " & $Wert & '</td>' & @CRLF
-
zum Beispiel so:
AutoIt
Alles anzeigenOpt('MustDeclareVars', 1) #include-once #include <Array.au3> #include <WinAPIConv.au3> ; Array heißt $aWeine Global $aWeine[][5] = _ [ _ ['02', '1 ', '2021er Silvaner, trocken ', ' 5,00 €', ' 5,00 €'], _ ['01', '10 ', '2022er Gutenberger´s Winzerschoppen, lieblich', ' 5,00 €', ' 50,00 €'], _ ['04', '100 ', '2021er Müller-Thurgau u. Silvaner, lieblich', ' 5,00 €', ' 500,00 €'], _ ['08', '1000 ', '2022er Blauer Spätburgunder Rosé, lieblich', ' 5,00 €', ' 5000,00 €'], _ ['07', '1 ', '2022er Rotling, halbtrocken', ' 10,00 €', ' 10,00 €'] _ ] ;MsgBox(0,"Alle Artikel", $AlleArtikel) _ArrayDisplay($aWeine) ;~ For $Col = 0 to $Cols - 1 ;wird nur benötigt wenn die Spalten überschriften haben ;~ $AlleArtikel &= '<th>' & $aWeine[0][$Col] & '</th>' ;~ Next Global $Wert, $Rahmen = 'style="border: 1px solid black;"' ; Tabellen-Rahmen in schwarz Global $Tabelle = '<table>' ; Tabelle For $Row = 0 To UBound($aWeine, $UBOUND_ROWS) - 1 $Tabelle &= '<tr>' & @CRLF For $Col = 0 To UBound($aWeine, $UBOUND_COLUMNS) - 1 $Wert = BinaryToString(StringToBinary($aWeine[$Row][$Col], 1), 1) ; Somit sind Umlaute oder Zeichen wie "´" okay If $Col = 0 Then $Tabelle &= '<td style="border: 1px solid black;text-align: center;">' & $Wert & '</td>' & @CRLF ElseIf $Col = 2 Then $Tabelle &= '<td style="border: 1px solid black;text-align: left; padding-left:10px;">' & " " & $Wert & '</td>' & @CRLF Else $Tabelle &= '<td style="border: 1px solid black;text-align: right;">' & $Wert & '</td>' & @CRLF EndIf Next $Tabelle &= '</tr>' & @CRLF Next $Tabelle &= '</table>' ConsoleWrite($Tabelle & @CRLF) -
für html empfehle ich die Lektüre von: https://wiki.selfhtml.org
Ist immer etwas schwierig, wenn man mit der einen Sprache (AutoIt) eine andere Sprache erstellen will(html)
Da kommt man gerne durcheinander, auf welcher Ebene man gerade welchen Tag anwenden muss ...
-
für html empfehle ich die Lektüre von: https://wiki.selfhtml.org
Die kenne ich hab da auch schon drin rumgestöbert.
Ist immer etwas schwierig, wenn man mit der einen Sprache (AutoIt) eine andere Sprache erstellen will(html)
Da kommt man gerne durcheinander, auf welcher Ebene man gerade welchen Tag anwenden muss ...
Oh Ja wie recht du hast.
Und das in meinem alter, da ist die Festplatte schon übervoll und man vergisst schon wieder die Hälfte.
Ich bedanke mich bei Euch Allen
Moombas water SOLVE-SMART Schnuffel
Danke! Danke! Danke! Danke!Mein Freund und Kollege wird sich freuen und ich habe wieder mit Hilfe von Euch eine gute Tat volbracht.
Viele Grüße
Werner
