Beiträge von Windi

Zitat von Schnuffel

für html empfehle ich die Lektüre von: https://wiki.selfhtml.org

Die kenne ich hab da auch schon drin rumgestöbert.

Zitat von Schnuffel

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

Windi

Werner

Die Tabelle ist übrigens die Orginalgröße.

@Schnuffel

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

So soll es aussehen:

Spalte 0 zentriert,

Spalte 1, 3, 4 rechtsbündig formatiert.

Über der Tabelle ist noch einiges an Text das hat wunderbar funktioniert.

Vielleicht hilft dir das weiter: 1 Ausschnitt aus der Console

+>Setting Hotkeys...--> Press Ctrl+Alt+Break to Restart or Ctrl+BREAK to Stop.
<table><h2><tr><td style="border: 1px solid black;text-align: center;">Art.-Nr.
</td><td style="border: 1px solid black;">Art.-Nr.
</td><td style="border: 1px solid black;text-align: right;"> Flaschen
</td><td style="border: 1px solid black;"> Flaschen
</td><td style="border: 1px solid black;text-align: right;"> Weinsorte
</td><td style="border: 1px solid black;"> Weinsorte
</td><td style="border: 1px solid black;text-align: right;"> EZ-Preis
</td><td style="border: 1px solid black;"> EZ-Preis
</td><td style="border: 1px solid black;text-align: right;"> Summe
</td><td style="border: 1px solid black;"> Summe
</td><tr><td style="border: 1px solid black;text-align: center;">08
</td><td style="border: 1px solid black;">08
</td><td style="border: 1px solid black;text-align: right;">1
</td><td style="border: 1px solid black;">1
</td><td style="border: 1px solid black;text-align: right;"> 2022er Blauer Spätburgunder Rosé, lieblich
</td><td style="border: 1px solid black;"> 2022er Blauer Spätburgunder Rosé, lieblich
</td><td style="border: 1px solid black;text-align: right;">4.30 €
</td><td style="border: 1px solid black;">4.30 €
</td><td style="border: 1px solid black;text-align: right;">4.30 €
</td><td style="border: 1px solid black;">4.30 €
</td><tr><td style="border: 1px solid black;text-align: center;">09
</td><td style="border: 1px solid black;">09
</td><td style="border: 1px solid black;text-align: right;">1
</td><td style="border: 1px solid black;">1

Gruß Werner

Jetzt sieht es so aus:

@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

Danke,

das hatte ich auch schon probiert aber dann geht der Rahmen kaputt.

,

Moin,

hab immer noch ein Problem mit HTML.

Wie kriege ich:

Spalte 0 zentriert,

Spalte 1, 3, 4 rechtsbündig formatiert.

Habe schon einiges probiert komme aber nicht weiter.

Vielleicht kann sich ja mal einer das anschauen.

Viele Grüße

Werner

Opt('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>'

For $Col = 0 to Ubound($aWeine, $UBOUND_COLUMNS) - 1
$Wert = BinaryToString(StringToBinary($aWeine[$Row][$Col] & @LF, 1), 1) ; Somit sind Umlaute oder Zeichen wie "´" okay
;MsgBox(0,"", $Wert)
If $Col = 1 then $Wert = '<td> <align=right>' & $Wert
;MsgBox(0,"", $Col)

$Tabelle &= '<td ' & $Rahmen & '>' & $Wert & '</td>'

Next

;$Tabelle &= '</tr>'
Next

$Tabelle &= '</table></h'
ConsoleWrite($Tabelle & @CRLF)

Vielen Dank euch 3!

Schaue es mir an.

Gruß Werner

Hi Sven,

Hab den Wert auf 1),1) gesetzt.

Jetzt sind die Umlaute verschwunden.

$Wert = BinaryToString(StringToBinary($aWeine[$Row][$Col] & @LF, 1), 1) ; Somit sind Umlaute oder Zeichen wie "´" okay

Danke das war genau das was ich gesucht habe.

Gruß Werner

Guten Abend water und Sven SOLVE-SMART,

vielen Dank für Eure Vorschläge.

Ich werde mal versuchen wie weit ich komme.

Werde mich bestimmt nochmal melden.

Viele Grüße

Werner

Moombas vielen Dank!

Habe mich für Version 1 entschieden.

Ich möchte es ohne Funktionen machen (ist leichter für mich).

Vor allem wenn es mal geädert werden muss.

Die Überschrift hat nicht funkioniert, habe sie in das Array eingefügt, war für mich leichter.

Wie bekomme ich eine Trennlinie zwischen den Artikel?

Wenn ich dass so mache verschiebt sich alles:

Global $Linie = "_____________________________________"
Global $Tabelle = '<table>'

For $Row = 0 to Ubound($aWeine, $UBOUND_ROWS) - 1
    $Tabelle &= '<tr>'
    
    For $Col = 0 to Ubound($aWeine, $UBOUND_COLUMNS) - 1
        $Tabelle &= '<td>' & $aWeine[$Row][$Col] & '</td>'
    Next

    $Tabelle &= '<tr>'
    $Tabelle &= '<td>' & $Linie & '</td></tr>'
Next

$Tabelle &= '</table>'

Bevor die Tabelle in die Mail eingefügt wird müssen noch ein paar Variablen eingefügt werden.

z.B. $Rechnungsadresse, $Lieferadresse usw.

Kannst du mir da ein Beispiel geben!

Wie du oben siehst, hab ich kein Plan von HTML.

Hab auch alle Dateien von water durchsucht, ist aber für meine 71 Jahre und wenig englisch Kentnisse mehrere Nummern zu groß.

gestern kam der Anruf!

Ganz kleinlaut, ich kriege die Office Installation nicht hin.

Hab's ihm dann drauf gemacht.

Jetzt geht es weiter.

Ich komme mit dem HTML Kram nicht klar.

Vielleicht kann ja mal einer drüberschauen.

So solte es aussehen!

Es wir immer ein Block eingefügt und keine einzelne Zeilen.

Hier ein Ausschnitt des Scriptes:

; Array heißt $aWeine
Global Const $Cols = 0, $Rows = 0
Global $AlleArtikel = _ArrayToString($aWeine, " " )

;MsgBox(0,"Alle Artikel", $AlleArtikel)

For $Col = 0 to $Cols - 1
    $AlleArtikel &= '<th>' & $aWeine[0][$Col] & '</th>'
Next

$AlleArtikel &= '</tr>'

For $Row = 1 to $Rows - 1
    $AlleArtikel &= '<tr>'

    For $Col = 0 to $Cols - 1
        $AlleArtikel &= '<td>' & $aWeine[$Row][$Col] & '</td>'
    Next

    $AlleArtikel &= '</tr>'
Next

$AlleArtikel &= '</table>'

; Mail zusammen bauen
; Betreff funktioniert
Global $Betreff = "Von Shop: " & $RechAdress

;MsgBox(0,"Betreff", $Betreff)

; Erstelle das E-Mail-Element
$FontSize = $FontSize / $DefaultFontsize
Local $oItems = _
    _OL_ItemCreate($oOutlook, $olMailItem, "*\\" & $MailFolder1 & "\", "", _
    "Subject=" & $Betreff, "BodyFormat=" & $olFormatHTML, 'HTMLBody= <p style="font-size:' & $FontSize & 'em">' & $AlleArtikel & "</p>", "To=" & $To)

Vielen Dank

Werner

Genau so!

Ich merke wir verstehen uns!

Office 2021 gabs natürlich unter 15 € das wollte er nicht (es war genau dasselbe Office 2021 Prof. plus). Da sind bestimmt Viren drin bei dem Preis hat er gesagt.

Er hatte noch eine andere Quelle für 42 €.

Von W11 hab ich ihm auch die Preise gesagt (wie du 9-20€ für die Pro Version).

Er ist überzeugt von Linux und da gibt es für jedes Programm einen Konverter.

Zitat

Ich denke das es insbesondere bei der Branchensoftware zu Problemen kommen könnte.

Das gleiche habe ich auch gesagt.

Den Spaß habe ich, wenn er das Office 2021 installiert. Das geht 100 % schief.

Ich helfe, wirklich gerne im Freundeskreis, aber der Sohn hat 0 Ahnung und weiß alles besser.

Hab gesagt, wenn es nicht klappt sollen sie sich melden. Damit bin ich aus der Sache raus.

Und ob ich dann Zeit habe überlege ich mir noch (sie sind sehr schwierig).

Gruß Werner

Hi Moombas und water ,

wollte mich nochmal melden,
Ich hatte mit dem Sohn, Office 2021 Pro + im Netz rausgesucht (ca 30-40 € Einzellizenz).
Jetzt kommt er und will Linux installieren. (Ich habe nichts gegen Linux)

Sie können nur Sofware bedienen z.B. Branchensoftware.
Sie sind nicht in der Lage eine Exceltabelle auszudrucken die ich ihnen per Mail gesendet habe.

PC mit W10 hat er gesagt: "Da gibt es nur noch bis 2025 Updates" stimmt aber es gibt ja auch noch W11.
Sofware im Betrieb:
Office 2003
Branchensoftware (Wein)
Lexware Buchhaltung
Datev Schlüssel zum Steuerberater.

Es ist ein Familienbetrieb ohne Angestellte.
Vater, Mutter und Sohn (Single).

Was soll ich dazu sagen, (am besten nichts).

Er soll sich einen suchen der ihm Linux installiert und die ganzen Programme zum laufen bringt.

Euch beiden nochmals vielen Dank
und alles Gute.

Gruß Werner

(Ps. hab dabei doch mal wieder was dazu gelernt von euch beiden)

Ich danke Euch beiden.

Hallo Moombas

habs jetzt geschnallt das es HTML ist.

In meinem Alter brauch man ein bisschen länger.

Ich habe ein neues Problem!

War gestern bei meinem Kollegen, er hat noch Office 2003.

Wahrscheinlich wird es damit nicht funktionieren (glaube mal sowas gelesen zu haben).

Ich mache eine Testscript und probiere es damit.

Ich melde mich wieder sobald ich mehr weiß.

Vorerst vielen Dank für deine Mühe.

Gruß Werner

Ich habe hier große Probleme mit:

Wie kann ich die Spalten verschieben?

$AlleArtikel = '<table><tr>'
For $Col = 0 to $Cols - 1
$AlleArtikel &= '<th>' & $arr[0][$Col] & '</th>'
Next
$AlleArtikel &= '</tr>'

For $Row = 1 to $Rows - 1
$AlleArtikel &= '<tr>'
For $Col = 0 to $Cols - 1
$AlleArtikel &= '<td>' & $arr[$Row][$Col] & '</td>'
Next
$AlleArtikel &= '</tr>'
Next
$AlleArtikel &= '</table>'

Muss jetzt erstmal wieder alles zusammen bauen.

Vielen Dank ich melde mich nochmal!

Gruß Werner