Zunächst möchte ich mich vorstellen. Mein Name ist Michael habe PC Knntnisse soweit das ich Server aufsetzen kann, oder mit der Verwaltung von Synology NAS Systemen.
Leider ist meine Programmierkenntnisse sehr eingeschränkt. In früheren Jahren konnte ich etwas Basic Programmieren, aber schon lange her.
Folgendes Erbe musste ich antreten. Ein Bekannter macht mit einer Apache Xampp Datenbank aus 2007 Historische Auktionen. Diese Daten werden ab und zu überarbeitet und neu Kategorien angelegt. Da ein Kolege,der ihm diese Daten in eine katalog.txt exportiert hat, leider verstorben ist, versuche ich mich nun daran.
Mein Problem ist folgendes:
In der exportierten Datei sind die Kategorien mit dem Anfangsmarker und Endmarker versehen (#KAT# #kat#), analog dazu die Überschrift mit (#TI# #ti#), der eigentliche Text mit (#TXT #txt#)
und dazwischen noch der Preis (#P# #p#)
Beispiel:
#KAT#VARIA; GEMÄLDE u. GRAPHIKEN#kat#
#TI#0 2 Radierungen von A. Lancon - André al. Auguste Lancon 1836 - 1885#ti#
#TXT#je eine Szene aus dem Deutsch-französischen Krieg 1870-71 darstellend: 1 x
Reiterpatrouille in Stonne bei Sedan am 29. August 1870; 1 x ratsende
franzöische Kolonne auf der Route d`Amagne am 26. August 1870; je neuzeitlich
ger. mit Passepartout u. Glas, 35 x 30 cm - qualitätvolle Graphiken (62/3/119) [1-2] alte Originalgraphiken - Rahmen leicht bestoßen #P#EUR20,-#p##txt#
Formatierungen:
Kategorie: Schriftart Arial 9 Fett
Überschrift: Arial 7 Fett
Text: Arial 7
Preis : Arial 7 Fett
Auktionsnummer: Arial 6
Ergebnis sollte dann folgendes ergeben:
VARIA; GEMÄLDE u. GRAPHIKEN
1 2 Radierungen von A. Lancon - André al. Auguste Lancon 1836 - 1885
je eine Szene aus dem Deutsch-französischen Krieg 1870-71 darstellend: 1 x Reiterpatrouille in Stonne bei Sedan am 29. August 1870; 1 x ratsende franzöische Kolonne auf der Route d`Amagne am 26. August 1870; je neuzeitlich ger. mit Passepartout u. Glas, 35 x 30 cm - qualitätvolle Graphiken [1-2] alte Originalgraphiken - Rahmen leicht bestoßen
[62/3/119] EUR 20,-
Mein erstes Macro zum entfernen der Marker lautet:
Code: Alles auswählen
sub EinheitenErsetzen
dim myDoc as object, mySuche as Object
'oFunctionAccess = createUnoService( "com.sun.star.sheet.FunctionAccess" )
myDoc = thisComponent
mySuche=myDoc.createReplaceDescriptor()
With mySuche
.SearchRegularExpression = True
.setSearchString("#KAT#")
.setReplaceString("")
end With
myDoc.replaceAll(mySuche)
end subDiese Macro kann ich auch umschreiben für die Überschrift, den Text usw.
Aber leider weis ist nicht wie ich mit Formatierung im Code arbeiten kann.
Vorab vielen dank für eure Hilfe.
Gruß
Michael
