Hallo,

Matthias Tacke war kürzlich hier so nett und hatte ein Makro verfasst,
welches das Speichern einer Calc-Datei in einem bestimmten CSV-Format
erlaubt.
Das Makro hat schon einige Begeisterung bei Nutzern der FritzBoxFon
ausgelöst. :)
http://borumat.de/ergonomie/telefonbuch-fritz-fon

Jetzt habe ich versucht das Makro leicht anzupassen, weil für ein
Blackberry-Handheld ein anderes CSV-Format nötig ist.

Der relevante Teil des Makros FritzBox-Makros lautet:

| args2(1).Value = "Text - txt - csv (StarCalc)"
| args2(2).Name = "FilterOptions"
| args2(2).Value = "59,0,ANSI,1,1/2/2/2"
| args2(3).Name = "SelectionOnly"
| args2(3).Value = true

Wie muss man bitte die 3. Zeile anpassen, damit folgendes Format
herauskommt:

"foo","bar"

Also:
Trennzeichen: ,
Feldbegrenzer: "

Und dann fehlt noch etwas:
In der Quelldatei lautet die Überschriftenzeile:

| Nachname | Telefonnummer |

In der Zieldatei für das Blackberry, müssen die Feldbezeichner jedoch
so lauten:
"Last Name","Home Phone"

Wie ersetzt man per Makro die erste Zeile der Zieldatei?

Vielleicht interessiert sich ja eine von Euch Makrokundigen für die
Idee.
Ich würde auch dieses Makro gerne einem größeren Kreis (von
Blackberrynutzern) zur Verfügung stellen.
Wie immer: natürlich mit Erwähnung des Autors des Makros :)

Ein freies Format für wesentliche Daten ist IMHO eine gute Sache.

Über Eure Hilfe würde ich mich freuen.

Gruß, Andreas
--
http://borumat.de/firefox-browser-tipps
http://borumat.de/html-und-css-tipps
http://borumat.de/heisse-schokolade-aus-ganzen-kakaobohnen

Andreas Borutta wrote:
> Hallo,
>
> Matthias Tacke war kürzlich hier so nett und hatte ein Makro verfasst,
> welches das Speichern einer Calc-Datei in einem bestimmten CSV-Format
> erlaubt.
> Das Makro hat schon einige Begeisterung bei Nutzern der FritzBoxFon
> ausgelöst. :)
> http://borumat.de/ergonomie/telefonbuch-fritz-fon
>
> Jetzt habe ich versucht das Makro leicht anzupassen, weil für ein
> Blackberry-Handheld ein anderes CSV-Format nötig ist.
>
> Der relevante Teil des Makros FritzBox-Makros lautet:
>
> | args2(1).Value = "Text - txt - csv (StarCalc)"
> | args2(2).Name = "FilterOptions"
> | args2(2).Value = "59,0,ANSI,1,1/2/2/2"
> | args2(3).Name = "SelectionOnly"
> | args2(3).Value = true
>
> Wie muss man bitte die 3. Zeile anpassen, damit folgendes Format
> herauskommt:
>
> "foo","bar"
>
> Also:
> Trennzeichen: ,
> Feldbegrenzer: "
>

Hallo Andreas,
bin ich zu schnell oder traut sich da keiner dran ;-)

' SaveAs CSV-------------------------------------------------------
BlackBerryHeader ' siehe unten
dim args2(3) as new com.sun.star.beans.PropertyValue
args2(0).Name = "URL" : args2(0).Value = _
"file:///C:/DeinBlackberryPfad/Adressen.csv"
args2(1).Name = "FilterName"
args2(1).Value = "Text - txt - csv (StarCalc)"
args2(2).Name = "FilterOptions"
args2(2).Value = "59,0,ANSI,1,1/2/2/2"
' AnsiSpaltentrennzeichen, AnsiTextbegrenzer
' 0=keins 34=" 39=' 44=, 59=; 124=|
args2(3).Name = "SelectionOnly"
args2(3).Value = true
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args2())


> Und dann fehlt noch etwas:
> In der Quelldatei lautet die Überschriftenzeile:
>
> | Nachname | Telefonnummer |
>
> In der Zieldatei für das Blackberry, müssen die Feldbezeichner jedoch
> so lauten:
> "Last Name","Home Phone"
>
Wenn du die Datei in Calc einliest, hast du doch schon das Problem, oder nicht?


> Wie ersetzt man per Makro die erste Zeile der Zieldatei?

Nicht Zieldatei - aktuelle Datei.
Beim Speichern als CSV wird die Zieldatei erzeugt/überschrieben.

Makroaufzeichnung starten, Änderungen durchführen, Makro speichern ;-)

Frei nach ?Goethe?
hab ich gerade keine Zeit etwas Kürzeres zu schreiben ;-)


sub BlackBerryHeader
dim document, dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Sel" : args1(0).Value = false
dispatcher.executeDispatch(document, ".uno:GoToStart", "", 0, args1())

dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName" : args2(0).Value = "Last Name"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())

dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "By" : args3(0).Value = 1
args3(1).Name = "Sel" : args3(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args3())

dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "StringName" : args4(0).Value = "Home Phone"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args4())

end sub

> Vielleicht interessiert sich ja eine von Euch Makrokundigen für die
> Idee.
> Ich würde auch dieses Makro gerne einem größeren Kreis (von
> Blackberrynutzern) zur Verfügung stellen.
> Wie immer: natürlich mit Erwähnung des Autors des Makros :)
>
Jaja, Absulotion erteilt.

--
Grüße
Matthias

Matthias Tacke schrieb:

> Hallo Andreas,
> bin ich zu schnell oder traut sich da keiner dran ;-)

:)
Danke!

> ' SaveAs CSV-------------------------------------------------------
> BlackBerryHeader ' siehe unten
> dim args2(3) as new com.sun.star.beans.PropertyValue
> args2(0).Name = "URL" : args2(0).Value = _
> "file:///C:/DeinBlackberryPfad/Adressen.csv"
> args2(1).Name = "FilterName"
> args2(1).Value = "Text - txt - csv (StarCalc)"
> args2(2).Name = "FilterOptions"
> args2(2).Value = "59,0,ANSI,1,1/2/2/2"
> ' AnsiSpaltentrennzeichen, AnsiTextbegrenzer
> ' 0=keins 34=" 39=' 44=, 59=; 124=|

Hier komme ich noch nicht mit.
Spaltentrennzeichen ist 44
Textbergrenzer ist 34

Warum besteht dann der Wert aus sovielen Zeichen?
"59,0,ANSI,1,1/2/2/2"

>> Und dann fehlt noch etwas:
>> In der Quelldatei lautet die Überschriftenzeile:
>>
>>| Nachname | Telefonnummer |
>>
>> In der Zieldatei für das Blackberry, müssen die Feldbezeichner jedoch
>> so lauten:
>> "Last Name","Home Phone"
>>
> Wenn du die Datei in Calc einliest, hast du doch schon das Problem, oder nicht?

Da verstehst Du was miss.
Ich lese die Datei nicht in Calc ein.

Die Calc-Datei ist die Referenzdatei/ Quelldatei.

Aus ihr werden sowohl die Datei für die Fritzbox als auch für das
Blackberry erzeugt.

Editiert wird also ausschließlich in der Calc-Datei.

>> Wie ersetzt man per Makro die erste Zeile der Zieldatei?
>
> Nicht Zieldatei - aktuelle Datei.
> Beim Speichern als CSV wird die Zieldatei erzeugt/überschrieben.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^
Genau.

In der Calc-Datei soll die Überschriftenzeile unverändert bleiben.

> Frei nach ?Goethe?
> hab ich gerade keine Zeit etwas Kürzeres zu schreiben ;-)

[...]
Das ersetzt die Überschriftenzeile in der Calc-Datei.

Dort sollen sie jedoch unverändert bleiben.

Dagegen sollen
"Last Name","Home Phone"
in der "bb-adressbuch.txt", der Zieldatei, erscheinen.

Gruß, Andreas
--
http://borumat.de/firefox-browser-tipps
http://borumat.de/html-und-css-tipps
http://borumat.de/heisse-schokolade-aus-ganzen-kakaobohnen

Andreas Borutta wrote:
> Matthias Tacke schrieb:
> Hier komme ich noch nicht mit.
> Spaltentrennzeichen ist 44
> Textbergrenzer ist 34
>
> Warum besteht dann der Wert aus sovielen Zeichen?
> "59,0,ANSI,1,1/2/2/2"

Da hab ich wohl eine falsche Version gepostet.

Soll latürnich heißen:
args2(2).Value = "44,34,ANSI,1,1/2/2/2"
Field Separator-^ ^ ^ ^ ^ ^ ^ ^-Cell Format Code Text
Text Delimiter-+ | | | | +-Column two
Character Set-+ | | +- Cell Format Code Text
Number of first Line-+ +-Column one

Tabelle aus dem DevelopersGuide Seite 590 [1]:
Cell
Format
Code Meaning
1 Standard
2 Text
3 MM/DD/YY
4 DD/MM/YY
5 YY/MM/DD
6 -
7 -
8 -
9 ignore field (do not import)
10 US-English (decimal numbers are formatted according to the US system

Wobei der FilterOptionsString (speziell ab Number of first Line) beim
Importieren eine wesentlichere Bedeutung hat.

> Da verstehst Du was miss.
> Ich lese die Datei nicht in Calc ein.
>
Na dann lädst du sie eben, da ist doch für die in Calc befindliche Datei
kein Unterschied.

> Die Calc-Datei ist die Referenzdatei/ Quelldatei.
>
> Aus ihr werden sowohl die Datei für die Fritzbox als auch für das
> Blackberry erzeugt.
>
> Editiert wird also ausschließlich in der Calc-Datei.
>
>>> Wie ersetzt man per Makro die erste Zeile der Zieldatei?
>> Nicht Zieldatei - aktuelle Datei.
>> Beim Speichern als CSV wird die Zieldatei erzeugt/überschrieben.
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^
> Genau.
>
> In der Calc-Datei soll die Überschriftenzeile unverändert bleiben.
>
Tut sie doch auch, solange Du die geänderte Version nicht unter dem
gleichen Namen der Quelle speicherst.

> Das ersetzt die Überschriftenzeile in der Calc-Datei.
>
Nein, nur im RAM nicht auf der Platte.

> Dort sollen sie jedoch unverändert bleiben.
>
> Dagegen sollen
> "Last Name","Home Phone"
> in der "bb-adressbuch.txt", der Zieldatei, erscheinen.
>
Das tut es doch auch mit meiner Version. Speichern als CSV speichert die
aktuelle Version unter neuem Format/Namen ohne die ursprüngliche
Herkunftsdatei zu ändern.
Aber gut zu deiner Sicherheit hier eine kombinierte Version:
(benutzt das schon gepostete SelectUsed)

sub BlackBerryAdr
dim document, dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Sel" : args1(0).Value = false
dispatcher.executeDispatch(document, ".uno:GoToStart", "", 0, args1())

dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName" : args2(0).Value = "Last Name"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())

dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "By" : args3(0).Value = 1
args3(1).Name = "Sel" : args3(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args3())

dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "StringName" : args4(0).Value = "Home Phone"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args4())

SelectUsed

' SaveAs CSV-------------------------------------------------------
dim StProp2(3) as new com.sun.star.beans.PropertyValue
StProp2(0).Name = "URL" : StProp2(0).Value = _
"file:///C:/bb-adressbuch.txt"
StProp2(1).Name = "FilterName"
StProp2(1).Value = "Text - txt - csv (StarCalc)"
StProp2(2).Name = "FilterOptions"
StProp2(2).Value = "44,34,ANSI,1,1/2/2/2"
' AnsiSpaltentrennzeichen, AnsiTextbegrenzer
' 0=keins 34=" 39=' 44=, 59=; 124=|
StProp2(3).Name = "SelectionOnly" : StProp2(3).Value = true
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, StProp2())
end sub

Komisch, erst heißt es, Du verstehst nicht so viel von Makros und jetzt
zweifelst Du ;-)
Du kannst dir gerne den DeveloperGuide runterladen und dich damit
beschäftigen (ca 25,8 MB)

[1] <http://api.openoffice.org/docs/DevelopersGuide/DevelopersGuide.pdf>

--
Grüße
Matthias

Matthias Tacke schrieb:

>> Hier komme ich noch nicht mit.
>> Spaltentrennzeichen ist 44
>> Textbergrenzer ist 34
>>
>> Warum besteht dann der Wert aus sovielen Zeichen?
>> "59,0,ANSI,1,1/2/2/2"
>
> Da hab ich wohl eine falsche Version gepostet.

[...]

Danke für die Angabe der Bedeutung der Bestandteile.
Die neue Version speichert genau im erwünschten Format.

>> Da verstehst Du was miss.
>> Ich lese die Datei nicht in Calc ein.
>>
> Na dann lädst du sie eben, da ist doch für die in Calc befindliche Datei
> kein Unterschied.

Nochmal zur Verdeutlichung mein Ziel:

* Quelldatei "adressen.ods" ist geöffnet
* sie wird editiert
* sie wird gespeichert
* am Ereignis Speichern hängen zwei Ereignisse:
- Fritzbox-Makro
- Blackberry-Makro
* die beiden Textdateien C:\Programme\FRITZ!Box Monitor\Adressen.adr
und C:\bb\adressen.txt werden nicht in Calc geöffnet, sie werden
nirgendwo geöffnet, sondern nur erzeugt bzw. überschrieben.
* die Überschriftenzeile der C:\Programme\FRITZ!Box
Monitor\Adressen.adr muss lauten:
Nachname;Telefonnummer
* die Überschriftenzeile der C:\bb\adressen.txt muss lauten:
"Last Name","Home Phone"
* Im Ideal enthält die Überschriftenzeile der Quelldatei adressen.ods
die Überschriftenzeile:
Name | Telefonnummer
In anderen Worten: alle drei Dateien enthalten verschiedene
Überschriftenzeilen

Dieses Gesamtverhalten erscheint mir die beste Usability zu besitzen.

Ist jetzt klarer geworden, was ich meine?

>> Das ersetzt die Überschriftenzeile in der Calc-Datei.
>>
> Nein, nur im RAM nicht auf der Platte.

Schon klar.
Aber der Nutzer sieht dann eine Datei, die er nicht sehen muss.
Und falls er kurz danacha erneut editieren will, muss er die
adressen.ods wieder öffnen.
Das finde ich weit weniger elegant als das oben beschriebene
Verhalten.
Wie siehst Du das?

> Komisch, erst heißt es, Du verstehst nicht so viel von Makros und jetzt
> zweifelst Du ;-)

Ich versuche mich nur verständlich zu machen.

> Du kannst dir gerne den DeveloperGuide runterladen und dich damit
> beschäftigen (ca 25,8 MB)

Ich besitze wirklich kein Talent für das Programmieren.

Das Usenet bietet Möglichkeiten gemeinsam etwas zu entwickeln.
Mein Teil an so einem Mini-Projekt ist die Idee, das Testen, das
Dokumentieren, das Bereitstellen.

Ich /erwarte/ selbstverständlich nichts bei einer Bitte um Hilfe. Ich
freue mich jedenfalls, wenn ein nützliches, rundes Gesamtprojekt
herauskommt.

Das größte Projekt dieser Art war BTW ein sehr ausgereiftes PHP-Skript
zur vollautomatischen Erzeugung von Inhaltsverzeichnissen auf
Webseiten.
Die Idee, das Konzept stand etwa ein Jahr auf meiner bescheidenen
PHP-Seite.
Dann sprach mich ein Programmierer an, der das spannend und gut fand.
Seitdem gibt es das Skript.
Die Zusammenarbeit hat ihm und mir Freude gemacht.
Und ich habe schon reichlich begeisterte Mails von Nutzern des
Skriptes erhalten :)

http://borumat.de/php-tipps-und-skripte#autotoc

Aber das alles nur am Rande. Vielleicht verstehst Du so besser, dass
es mir nicht Faulenzerei oder Schmarotzerei geht.

Gruß, Andreas
--
http://borumat.de/firefox-browser-tipps
http://borumat.de/html-und-css-tipps
http://borumat.de/heisse-schokolade-aus-ganzen-kakaobohnen

Matthias Tacke schrieb:

[...]

Ich kann mich erst ab dem 29. wieder melden.

Gruß, Andreas

Andreas Borutta wrote:
> Nochmal zur Verdeutlichung mein Ziel:
>
> * Quelldatei "adressen.ods" ist geöffnet
> * sie wird editiert
> * sie wird gespeichert
> * am Ereignis Speichern hängen zwei Ereignisse:
> - Fritzbox-Makro
> - Blackberry-Makro
> * die beiden Textdateien C:\Programme\FRITZ!Box Monitor\Adressen.adr
> und C:\bb\adressen.txt werden nicht in Calc geöffnet, sie werden
> nirgendwo geöffnet, sondern nur erzeugt bzw. überschrieben.
> * die Überschriftenzeile der C:\Programme\FRITZ!Box
> Monitor\Adressen.adr muss lauten:
> Nachname;Telefonnummer
> * die Überschriftenzeile der C:\bb\adressen.txt muss lauten:
> "Last Name","Home Phone"
> * Im Ideal enthält die Überschriftenzeile der Quelldatei adressen.ods
> die Überschriftenzeile:
> Name | Telefonnummer
> In anderen Worten: alle drei Dateien enthalten verschiedene
> Überschriftenzeilen
>
> Dieses Gesamtverhalten erscheint mir die beste Usability zu besitzen.
>
> Ist jetzt klarer geworden, was ich meine?
>
Na ja, das war mir schon vorher weitgehend klar, aber deine Anforderung
das Original unverändert zu lassen aber etwas anderes abzuspeichern lässt
sich nicht so einfach umsetzen.

Ich bin aber inzwischen über ein Makro gestolpert das Tabellenblätter in
unterschiedliche CSV Dateien abspeichert.

Unter der Voraussetzung das genau 3 Tabellenblätter mit exakt den Namen
"Adressen", "BlackBerry", "FritzBox" in der Adressen.odt stehen
sollte dies funktionieren (der Inhalt der Blätter BlackBerry und FritzBox
spielt keine Rolle, die werden jedesmal aus Adressen neu erzeugt) :

Sub AdressenSpeichernBBFB
Dim oCalcDoc, oSheet, oCell as Object
Dim FiProp(2) As New com.sun.star.beans.PropertyValue
Dim sURL as String
oCalcDoc = ThisComponent
' Alte Version löschen, kopieren, verschieben, bearbeiten, sichern
'...zuerst BlackBerry
oCalcDoc.Sheets.removeByName("BlackBerry")
oCalcDoc.Sheets.copyByName("Adressen","Blackberry", 0 )
oCalcDoc.Sheets.moveByName("BlackBerry",oCalcDoc.Sheets.getCount())
oSheet = oCalcDoc.Sheets.getByName("BlackBerry")
oCalcDoc.CurrentController.setActiveSheet(oSheet)
oCell = oSheet.getCellByPosition( 0, 0 )
oCell.String = "Last Name"
oCell = oSheet.getCellByPosition( 1, 0 )
oCell.String = "Home Phone"
sURL = "file:///C:/bb/adressbuch.txt"
FiProp(0).Name = "Overwrite" :FiProp(0).Value = True
FiProp(1).Name = "FilterName"
FiProp(1).Value = "Text - txt - csv (StarCalc)"
FiProp(2).Name = "FilterOptions"
FiProp(2).Value = "44,34,ANSI,1,1/2/2/2"
oCalcDoc.storeToURL(ConvertToURL(sURL),FiProp())

' ... dann FritzBox
oCalcDoc.Sheets.removeByName("FritzBox")
oCalcDoc.Sheets.copyByName("Adressen", "FritzBox", 0 )
oCalcDoc.Sheets.moveByName("FritzBox",oCalcDoc.Sheets.getCount())
oSheet = oCalcDoc.Sheets.getByName("FritzBox")
oCalcDoc.CurrentController.setActiveSheet(oSheet)
oCell = oSheet.getCellByPosition( 0, 0 )
oCell.String = "Nachname"
oCell = oSheet.getCellByPosition( 1, 0 )
oCell.String = "Telefonnummer"
sURL = "file:///C:/Programme/FRITZ!Box Monitor/Adressen.adr"
FiProp(2).Value = "59,0,ANSI,1,1/2/2/2"
' StopFBMon
oCalcDoc.storeToURL(ConvertToURL(sURL),FiProp())
' StartFBMon

' ... und zurück zu Adressen
oSheet = oCalcDoc.Sheets.getByName("Adressen")
oCalcDoc.CurrentController.setActiveSheet(oSheet)
End Sub

PS: Wenn du das Sub in BB/FB aufteilen willst, mußt du FiProp(0)-(2)
vollständig wiederholen.

--
Grüße
Matthias

Matthias Tacke schrieb:

[...]

>> Dieses Gesamtverhalten erscheint mir die beste Usability zu besitzen.
>>
>> Ist jetzt klarer geworden, was ich meine?
>>
> Na ja, das war mir schon vorher weitgehend klar, aber deine Anforderung
> das Original unverändert zu lassen aber etwas anderes abzuspeichern lässt
> sich nicht so einfach umsetzen.
>
> Ich bin aber inzwischen über ein Makro gestolpert das Tabellenblätter in
> unterschiedliche CSV Dateien abspeichert.
>
> Unter der Voraussetzung das genau 3 Tabellenblätter mit exakt den Namen
> "Adressen", "BlackBerry", "FritzBox" in der Adressen.odt stehen
> sollte dies funktionieren (der Inhalt der Blätter BlackBerry und FritzBox
> spielt keine Rolle, die werden jedesmal aus Adressen neu erzeugt) :

Wenn ich Dich richtig verstehe, soll es eine Änderung in der
Quelldatei geben.
Bisher existieren nur ein Tabellenblatt.
Es sollen also zwei zusätzliche angelegt werden, richtig?

Wenn es nur so geht, nehme ich das natürlich hin.

Die bessere Usability hat IMHO jedoch eine Lösung, wo die Quelldatei
so einfach wie irgend möglich bleibt - also nur aus einer einzigen
Tabelle besteht - und sämtliche Informationen für den Transfer im
Makro stecken.
Unabhängig von der Lösbarkeit einer solchen Aufgabe: Siehst Du/Seht
ihr das auch so?

Falls diese Lösung eben nicht möglich ist, könnte es pragmatisch so
weitergehen, dass man die Blätter "Blackberry" und "FritzBox"
unsichtbar macht.

Mich erstaunt, dass ein Vorgang, den ich laienhaft wie folgt
skizziere, sich nicht in einem Makro abbilden lässt:

Situation: Quelldatei "adressen.odt" wurde geändert

1 Speichern "adressen.odt"
2 Speichern unter (im gewünschten CSV) "blackberry.txt"
3 Schließen der "blackberry.txt"
4 Öffnen von "adressen.odt"

Würd' mich freuen, wenn Du das nochmal kommentieren könntest, bevor
ich die neuen Makros "einbaue".

Ab Sa bin für 10Tage offline. Meine Antwort dauert dann etwas.

Gruß, Andreas
--
http://borumat.de/firefox-browser-tipps
http://borumat.de/html-und-css-tipps
http://borumat.de/heisse-schokolade-aus-ganzen-kakaobohnen