Sorry, wieder mal den "falschen" Absender erwischt ...
------ Weitergeleitete Nachricht ------
Von: "Hans-Werner Herold" <hanswernerher...@t-online.de>
An: "users@de.libreoffice.org" <users@de.libreoffice.org>
Gesendet: 24.08.2020 17:51:51
Betreff: BasicMakro - Im Kontext RegExp - "Look-ahead assertion"
funktionieren "&" bzw. "$0" nicht !
Hallo *,
ich mal wieder mit 'nem BUG-Verdacht :-O ...
K o n t e x t
[1] LibreOffice MakroBasic unterstützt (1) die Meta-Zeichen und -Syntax
der "ICU Regular Expressions documentation
<http://userguide.icu-project.org/strings/regexp>" (2).
[2] "ICU Regular Expressions documentation
<http://userguide.icu-project.org/strings/regexp>" unterstützt die
"Look-ahead assertion - (?= ... )" und die "Look-behind assertion (?<=
... )".
[3] "&" und "$0" beinhalten das, was via Suchkriterien gefunden wurde
(3).
B e z ü g e
(1) LibreOffice WRITER [Datei] > [Suchen und ersetzen...] > [Hilfe] >
[Liste der regulären Ausdrücke]: "[...] Für eine vollständige Liste
unterstützter Metazeichen und -syntax siehe ICU Regular Expressions
documentation <http://userguide.icu-project.org/strings/regexp>
(englisch). [...]"
(2) http://userguide.icu-project.org/strings/regexp
(3) LibreOffice WRITER [Datei] > [Suchen und ersetzen...] > [Hilfe] >
[Liste der regulären Ausdrücke]: "[...] & oder $0 - Fügt dem Begriff im
Feld [Ersetzen] die Zeichenfolge hinzu, die anhand der Suchkriterien im
Feld [Suchen] gefunden wurde, wenn Sie eine Ersetzung vornehmen. [...]"
P r o b l e m / F e h l e r
+ Mittels "Look-behind assertion" wird nach der Zeichenkette "DEF"
gesucht, der die Zeichenkette "ABC" VORAN-gestellt ist. Mit Hilfe der
"Look-behind assertion" wird aber (letztendlich) nicht "ABCDEF"
gefunden, sondern (nur) "DEF", was auch so gewollt ist. "DEF" wird dann
rot eingefärbt.
+ Mittels "Look-ahead assertion" wird nach der Zeichenkette "UVW"
gesucht, der die Zeichenkette "XYZ" NACH-gestellt ist. Mit Hilfe der
"Look-ahead assertion" wird aber (letztendlich) nicht "UVWXYZ" gefunden,
sondern (nur) "XYZ", was auch so gewollt ist. "XYZ" wird dann blau
eingefärbt.
Das funktioniert (im Prinzip) alles, das/der Problem/Fehler kommt erst
jetzt:
Mit "&" bzw. "$0" kann man dem oRD.ReplaceString die gefundene
Zeichenkette übergeben und das oRD.setReplaceAttributes(aAttR())
erledigt dann die Färbung.
Im Kontext der "Look-behind assertion" beinhalten "&" bzw. "$0" die
gefundene Zeichenkette. Im Kontext der "Look-ahead assertion" aber
nicht, mit der Folge, dass die gefundene Zeichenkette nicht nur gefärbt,
sondern auch durch "&" bzw. "$0" ersetzt wird - und das ist ja wohl
nicht ganz richtig.
Man kann zwar den Fehler kompensieren, indem man im Kontext der
"Look-ahead assertion" bei oRD.ReplaceString anstatt "&" bzw. "$0"
einfach "UVW" angibt, aber es bleibt doch ein Fehler, denn es gibt
keinen (syntax- und/oder programmier-logischen) Grund, warum bei der
"Look-behind assertion" "&" bzw. "$0" funktionieren und bei der
"Look-ahead assertion" "&" bzw. "$0" nicht funktionieren sollten -
zumindest sehe ich keinen.
R e p r o d u k t i o n
+ Neues WRITER-Dokument öffnen.
+ Diese 6 Zeilen einfügen:
Look-behind assertion:
ABCDEF
123DEF
Look-ahead assertion:
UVWXYZ
UVW123
+ Makro starten (s.u.)
+ Ergebnis
Bei ABCDEF wird DEF rot gefärbt, sonst nichts.
Bei UVWXYZ wird UVW blau gefärbt, sonst nichts.
==>> Kann jemand den "&/$0"-Fehler bei der "Look-ahead assertion"
nachvollziehen UND bestätigen ? <<==
Und bevor mich jemand fragt, ob ich nichts besseres zu tun habe als mich
mit solchem "kryptischen Sch..." zu beschäftigen ... Im bin gerade mit
Test/Feinschliff bezüglich meines "CodeColorizerBasic"-Makros
beschäftigt und dabei beim Testen auf nachfolgenden BasicMakroCode
gestoßen:
[1] Variablen-Typ-Deklarationszeichen (beispielsweise): Dim VarSingle!,
Dim VarDouble# ...
[2] Read/Write <=> Datei | Dateinummer (beispielsweise): #DatNum
Die nachgestellten ( ! # ) [1] und das vorangestellte ( # ) [2] Zeichen
sind eben auch (im weiteren Sinne) "Schlüsselwörter". Nur diese Zeichen
zu finden und zu färben funktioniert eben sehr elegant (und wohl nur)
mit "Look-behind"- [1] und "Look-ahead" [2] - Assertionen.
Grüße
Hans-Werner :-))
Sub SearchAndReplace
Dim oWD As Object
Dim oRD As Object
Dim aAttR(0) As New com.sun.star.beans.PropertyValue
oWD = ThisComponent
oRD = oWD.createReplaceDescriptor()
' Look-behind assertion (?<= ... ) - Suche ABCDEF und finde nur DEF:
oRD.SearchString = "(?<=ABC)DEF"
oRD.searchRegularExpression = True
oRD.searchCaseSensitive = True
'oRD.ReplaceString = "$0" ' O.K.
oRD.ReplaceString = "&" ' O.K.
aAttR(0).Name = "CharColor"
aAttR(0).Value = RGB(255,000,000) ' red
oRD.setReplaceAttributes(aAttR())
oWD.replaceAll(oRD)
' Look-ahead assertion (?= ... ) - Suche UVWXYZ und finde nur UVW:
oRD.SearchString = "UVW(?=XYZ)"
oRD.searchRegularExpression = True
oRD.searchCaseSensitive = True
'oRD.ReplaceString = "$0" ' ERROR
'oRD.ReplaceString = "&" ' ERROR
oRD.ReplaceString = "UVW" ' WORKAROUND
aAttR(0).Name = "CharColor"
aAttR(0).Value = RGB(000,000,255) ' blue
oRD.setReplaceAttributes(aAttR())
oWD.replaceAll(oRD)
End Sub
--
Liste abmelden mit E-Mail an: users+unsubscr...@de.libreoffice.org
Probleme?
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
