Unicode ?

[Pit Zyclade]

Hallo Experten!
Bei der Diskussion um ein Häkchen sind anfänglich bei ü in Schriftart Windings gestartet, dann letztlich aber zu Sonderzeichen aus Unicode gelangt.
Dabei ist mir mehreres ausgefallen:

1. Wie kann man Unicode per Tastatur in LO eingeben? (In Wordpad geht das mit ALT+U+Zahl anstandslos, z.B. mit 10015. Dasselbe geht so nicht in LO bzw. es resultiert ein anderes Zeichen)
2. Ab welcher Zahl ist das resultierende Zeichen relativ stabil gegenüber Schriftartformatierung. (So liefert ü (252) in Windigs ein Häkchen, aber ansonsten ist es ein ü und die Schere in windings (35) ist sonst ein Doppelkreuz) - Oder gibt es ein anderes Trennmerkmal zwischen instabilen und relativ formatunabhängigen Symbolen?

calc - UNICODE.ods

(12.12 KiB) 366-mal heruntergeladen

[Mondblatt24]

Hallo,
hier findest Du unter dem Absatz
In MS Word und LibreOffice: Alt-Taste und „C“
eine Erklärung für eine weitere Eingabemethode.

calc - UNICODE.ods

(12.57 KiB) 573-mal heruntergeladen

und zum testen ein paar Codes


Gruß Peter

[Pit Zyclade]

Deine Methode nutzt eine hexadezimale Eingabe (?), meine eine dezimale (?).
Ich habe mal Deine Datei noch mal erweitert:

calc - UNICODE var2.ods

(12.56 KiB) 423-mal heruntergeladen

Die letzte Referenz hat sehr schöne farbige Emojis (heißt doch so?). Leider bleiben die in LO sw. Aber man soll nicht klagen.

Eine Regel, welche Unicodes von der Zecihenformatierung wesentlich verändert werden, kennst Du aber auch nicht?

Aber Dank für Deine Anregung!

[DavidG]

Hallo Pit,

und wie immer im Leben halten sich nicht immer alle an die Spielregeln.
Ich will damit sagen, dass es Schriftarten gibt die nicht alle Unicode-Zeichen korrekt darstellen, bzw. kennen und u.a. ein schwarzes Quadrat zeigen.
Wenn Du nachfolgenden URL und den darin enthaltenen weiterführenden Links folgst, wirst Du sehen,
dass das Thema Unicode eine unendliche Geschichte ist.
https://de.wikipedia.org/wiki/Unicode
https://de.wikipedia.org/wiki/Portal:Unicode
http://www.unicode.org/Public/UCD/latest/
usw...
_____________________________________________________________________________________________________________________

Unicode Liste_02 mit Makros.zip

entzippte Datei ca. 2,3MB groß

(644.07 KiB) 298-mal heruntergeladen

Die von mir hochgeladene CALC-Datei enthält 65536 Zeilen.
Das Laden der Datei kann eine gewissen Zeit dauern, also kein Panik.

In Spalte A hexadezimaler und in Spalte B dezimaler Code.
Daneben habe ich mal angefangen eine gewissen Zuordnung der Symbol zu erreichen.
Ist aber weder vollständig und auch nicht immer korrekt. Trotzdem erreicht man über den gesetzten
Autofilter (x) schon mal schneller an das Ziel seiner Wünsche.

Desweiteren befinden sich in der Datei zwei Makros.
Das erste Makro „EnterUnicodeChar“ habe ich mal aus dem englischen AOO-Forum kopiert und etwas angepasst.
Ruft man das Makro auf, erscheint eine Inputbox, in der man dezimale oder hexadezimale Code eingeben kann.
Die Beschreibung hierzu wird in der Inputbox angezeigt.

Das zweiten Makro „HakenSchwarz“ habe ich geschrieben, da ich des öftern verschiedene Symbole brauche und es
mir zu langwierig ist die Symbole aus dem Menü Sonderzeichen heraus zufischen.
Ich gehe hier auf zweierlei Arten vor um Symbole einzufügen.
Für die wichtisgten nutze ich die Autokorrektur ohne Makro z.B yh+[Leerzeichen] = ✔
Es gibt in der Autokorrektur bereits ein Vorgabe für Häkchen, Haken schwarz und Haken weiß. Ich habe aber
keine Lust dazu quasi einen ganzen Satz zu schreiben. Per Definition:
✔ = :Haken schwarz:+[Leerzeichen]. Funktioniert auch in anderen LO-Programmen.

Nun zum zweiten Makro, dazu habe ich mir eine separate Makro-Bibliothek erstellt:
aSymbol und für jedes Zeichen eine neue Subroutine geschrieben.
Dann habe ich mir eine neue Symbolleiste erstellt, diese habe ich mit Buttons (Symbolen) und das entsprechende Unicode-Symbol dort eingefügt.
So kann man sich mit der Zeit eine riesige Sammlung erstellen und die Zeichen per Makro einfügen.
Es wird in meinem Makro immer die im Tabellenblatt eingestellte Schriftart verwendet.

Ja, man könnte die Makros auch mit Shortcuts belegen, diese sind aber rar gesät. Deshalb die Symbolleiste.

Benutzerdefinierte Symbole zeichne ich mit dem Tool: http://www.axiomx.com/PixelToolbox/
Damit kann man die von LO geforderten 16x16Pixel Symbol zeichnen.
Funktioniert auch unter Windows 10.

Nachtrag: In der Datei fehlt der Makro-Code:

Code: Alles auswählen

REM  *****  BASIC  *****

REM Unicode-Zeichen per Inputbox
Sub EnterUnicodeChar
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
dim unicode as string
dim unicodeVal as long

rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem read unicode from dialog box
unicode = INPUTBOX("Eingabe in dezimal- und hexdezimal-UniCode" & chr(10) & _
					"Wenn hexadezimal, dann &H voranstellen:" & spc(7) & "&H000AE" & chr(10) & _
					"Wenn dezimal, dann:" & spc(42) & "174", "Eingabe Unicodezeichen per dezimal- oder hexadezimal-Code","&H")
'unicode = INPUTBOX("Enter unicode in decimal form - or hexadecimal form, where it has to start with &H:", "Enter Unicode Character by its Decimal or Hexadecimal Code","&H")

rem print character in document
dim args7(1) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Symbols"
unicodeVal = clng(unicode)
args7(0).Value = chr(unicodeVal)
args7(1).Name = "FontName"
args7(1).Value = "Lucida Sans Unicode"
dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args7())

End Sub


REM Diese  Makro fügt Unicode-Zeichen in die aktuell markierte Zelle ein
REM Dazu muss eine dezimal Zahl hinter der Variablen nCharDez= eingegeben werden
Sub HakenSchwarz
Dim oDoc as Object
Dim oCC as Object
Dim oSheet as Object
Dim oSel as Object
Dim nCharDez as Long
'Dim sFont as String



' dezimale Zeichencodes
' ✀ = 9984
' ✂ = 9986
' ✓ Häkchen = 10003
' ✔ Haken schwarz = 10004
' ✅ Haken weiß auf schwarzem Quadrat = 9989 (sehr interessant in LO wird ein schwarzes Quadrat gezeichnet, hier im Forum ein grünes :-)
' ✕ = 10005
' ✖	= 10006
nCharDez=10005

	oDoc=ThisComponent
	oCC=oDoc.getCurrentController()
		' das aktive Sheet ermittlen
		oSheet=oCC.getActiveSheet
			' ausgewählte Zelle ermitteln
			oSel=oDoc.CurrentSelection
'				' eingestellte Schriftart ermittlen
'				sFont=oSheet.CharFontName

	oSel.String=chr(nCharDez)

End Sub

Gruß
David

[Pit Zyclade]

Oh, so eine Sysiphusarbeit hatte ich gar nicht erwartet.
Bei erster Sichtung fällt mit auf, dass Dein letztes Unicode-Zeichen bei 65633 auftaucht, aber in der Titelzeile steht ganz am Ende:
ENDE = A56320.
Ist das ein Relikt oder ein Hinweis, dass die Makros nur bis dahin arbeiten??

Ansonsten ist das mehr als nötig für mich Primitiven.
Da in der Liste komischerweise Lücken sind, gibt es wohl keine einfache Regel bezüglich meiner Anfrage. Muss mich in den nächsten Tagen noch intensiver damit befassen, wenn ich dazu komme. Danke, Danke, Danke!

[DavidG]

Hallo Pit,

na da liege ich ja sogar 3-mal falsch:

Bei erster Sichtung fällt mit auf, dass Dein letztes Unicode-Zeichen bei 65633 auftaucht, aber in der Titelzeile steht ganz am Ende:
ENDE = A56320.

Ich dachte das Ende der Liste liegt bei 65536 und JA: ENDE = A56320 ist ein Relikt.
Außerdem fehlt der Code, da ich diesen nicht im Dokument, sondern in meiner Makro-Bibliothek gespeichert habe.
Hier der Code (weiteres dazu siehe unten):

Code: Alles auswählen

REM  *****  BASIC  *****

REM Unicode-Zeichen per Inputbox
Sub EnterUnicodeChar
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
dim unicode as string
dim unicodeVal as long

rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem read unicode from dialog box
unicode = INPUTBOX("Eingabe in dezimal- und hexdezimal-UniCode" & chr(10) & _
					"Wenn hexadezimal, dann &H voranstellen:" & spc(7) & "&H000AE" & chr(10) & _
					"Wenn dezimal, dann:" & spc(42) & "174", "Eingabe Unicodezeichen per dezimal- oder hexadezimal-Code","&H")
'unicode = INPUTBOX("Enter unicode in decimal form - or hexadecimal form, where it has to start with &H:", "Enter Unicode Character by its Decimal or Hexadecimal Code","&H")

rem print character in document
dim args7(1) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Symbols"
unicodeVal = clng(unicode)
args7(0).Value = chr(unicodeVal)
args7(1).Name = "FontName"
args7(1).Value = "Lucida Sans Unicode"
dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args7())

End Sub


REM Diese  Makro fügt Unicode-Zeichen in die aktuell markierte Zelle ein
REM Dazu muss eine dezimal Zahl hinter der Variablen nCharDez= eingegeben werden
Sub HakenSchwarz
Dim oDoc as Object
Dim oCC as Object
Dim oSheet as Object
Dim oSel as Object
Dim nCharDez as Long
'Dim sFont as String



' dezimale Zeichencodes
' ✀ = 9984
' ✂ = 9986
' ✓ Häkchen = 10003
' ✔ Haken schwarz = 10004
' ✅ Haken weiß auf schwarzem Quadrat = 9989 (sehr interessant in LO wird ein schwarzes Quadrat gezeichnet, hier im Forum ein grünes :-)
' ✕ = 10005
' ✖	= 10006
nCharDez=10005

	oDoc=ThisComponent
	oCC=oDoc.getCurrentController()
		' das aktive Sheet ermittlen
		oSheet=oCC.getActiveSheet
			' ausgewählte Zelle ermitteln
			oSel=oDoc.CurrentSelection
'				' eingestellte Schriftart ermittlen
'				sFont=oSheet.CharFontName

	oSel.String=chr(nCharDez)

End Sub

Da in der Liste komischerweise Lücken sind, gibt es wohl keine einfache Regel bezüglich meiner Anfrage.

Wie ich es schon beschrieben habe, nicht alle Schriftarten können alles korrekt darstellen,
bzw. einige Sonderzeichen existieren in dieser Schriftart nicht.
Es kann aber auch vorkommen, dass Unicode "xyz" z.B. für chinesische Zeichen (oder andre Zeichen) reserviert ist, usw.
Dies ist kein Grund zur Besorgnis.

Auf Windowsrechnern gibt aber auch noch andere Zeichen Codes
ASCII = 255 Zeichen
z.B.
https://www.petefreitag.com/cheatsheets/ascii-codes/
https://www.edv-lehrgang.de/ansi-zeichensatz/

WINDOWS (ISO1252) ANSI = 512 Zeichen
Je nach eingestelltem Gebietsschema (USA/ Deutsch/ China/...) wird die zu diesen Codes
gehörende Zeichentabelle geladen und das passende Tastaturlayout.
Siehe auch: https://de.wikipedia.org/wiki/ISO_8859-15
Ich bin mir nicht sicher, aber ich glaube dies war die letzte Zeichensatzaktualisierung,
um z.B.. das €-Zeichen mit in die Zeichencode-Tabelle aufzunehmen.
--------------------------------------------------------------------------------------------------------------------------------------------------
Nun ist es also auf Windows-Rechner so, dass man im Grunde nicht weiß mit welchem Zeichensatz man gerade arbeitet.
Denn die Maschine macht schon...
TEST:
Ziffern nur auf der Zehnertastatur eingeben, sonst funktioniert dies nicht:
[ALT]+205 ═
[ALT]+0205 Í
Diese Kombis greifen auf die Windowstabellen zu, dabei entspricht die Ziffer ohne vorangestellte NULL dem ASCII-Standard.
Dieser Standard stammt noch aus MS-DOS-Zeiten.
--------------------------------------------------------------------------------------------------------------------------------------------------

Ist das ein Relikt oder ein Hinweis, dass die Makros nur bis dahin arbeiten

Nein, beide Makros arbeiten unabhängig von der Zeichenliste in der Tabelle.
Siehe auch die Kommentare im Code.

1. Wie kann man Unicode per Tastatur in LO eingeben? (In Wordpad geht das mit ALT+U+Zahl anstandslos, z.B. mit 10015. Dasselbe geht so nicht in LO bzw. es resultiert ein anderes Zeichen)

Dazu nutze ich das erste Makro. Erstelle Dir einen Menüpunkt oder eine Symbolleiste und weise das Makro zu.
Zur Verwaltung siehe folgendes, damit kannst Du auch im Writer auf die Makros zugreifen:

1. Erstelle Dir eine neue Bibliothek:
2. MENÜ Extras → Makros → Makros verwalten... →LibreOffice Basic
3. Im nächsten Fenster den Button "Verwalten", dann Register Bibliotheken unter Ort: "Meine Makros & Dialoge" auswählen.
4. Nun auf den Button "Neu". Jetzt vergibst Dur einen Namen für die neue Bibliothek z.B. aUnicode.
   Mit OK bestätigen.
5. Das vorherige Fenster geöffnet lassen und ein neues Modulblatt anlegen:
6. Auf Register "Module" und unter "Meine Module" die gerade erstellte Bibliothek markieren.
7. Dann "Neu" und einen Modulnamen vergeben z.B: modUnicode
8. Nirgends im Bereich der Makros darf mit Umlauten gearbeitet (mit Ausnahme in den Makro Kommentare).
9. Jetzt das Fenster "Makros verwalten" schließen.
10. Du siehst das Fenster "LibreOffice Basic Makros".
11. Hier kannst Du nun das gerade erstellt Modulblatt auswählen (unter "Meine Makros" Bibliothek "aUnicode").
12. Dann auf den Button "Bearbeiten".
13. Die Basic-IDE öffnet sich und hier kannst Du den Code Modulblatt hineinkopieren.
14. Stelle nun den Cursor in die erste Sub-Routine und führe den Code aus.

2. Ab welcher Zahl ist das resultierende Zeichen relativ stabil gegenüber Schriftartformatierung. (So liefert ü (252) in Windigs ein Häkchen, aber ansonsten ist es ein ü und die Schere in windings (35) ist sonst ein Doppelkreuz) - Oder gibt es ein anderes Trennmerkmal zwischen instabilen und relativ formatunabhängigen Symbolen?

Dieses habe ich versucht schon zu erklären. Es ist davon abhängig auf welche Zeichentabelle Du zugreifst.
Instabil ist hier nichts!
Es ist alles eine Frage womit man gerade arbeitet, nur ist dieses aus meiner Sicht nicht immer eindeutig.
ASCII, WINDOWS ANSI oder Unicode, obendrein noch das eingestellte Gebietsschema (deutsch, englisch, usw...) !
Das führt verständlicherweise zu Verwirrungen.

════════════════════════════════════════════════════════════════════════════════════════════
Früher unter MSDOS war es eindeutig: Ich arbeite mit MSDOS, dort wurde per Anweisung die deutsche Zeichentabelle geladen.
Diese bestand aus 255 Zeichen und per Zeichen auf der Tastatur und per [ALT]+Zehnertastatur konnte man auf alle Zeichen zugreifen.
Eine Ausnahme bildeten z.B. einige der Drucker-Steuerzeichen. Fertig.
Heute will ja jeder die "EIERLEGENDEWOLLMILCHSAU mit hübschen grünen Punkte" und wundert sich dann, dass es zu Verwirrungen kommt.

Ascii-Art. Als die Bilder noch nicht liefen...

Code: Alles auswählen

 
   ╔═══════════════╗
   ║   Test It...  ║
   ╚═══════════════╝
  

Gruß
David

[Pit Zyclade]

Habe Schönheitsreparatur vorgenommen: N1 gelöscht, 65536 in B65537 ergänzt (nach der Formel), resultierend in A 10000. UNIZEICHEN bringt nur Rechteck. Also sinnlos eigentlich.
Dann dauert die Sicherung nervtötend lange, obwohl ich auf Speed umgestellt hatte.

Nächste Frage: Die Spalten, die "x" tragen, sollen als Markierung dienen? Warum dann aber Spalte "Alle" ? Spalte N könnte man auch löschen.

[Pit Zyclade]

Welchen Sinn haben die grünen Zeilenhintergründe? Manchmal ist dort die Formatierung abweichend, aber nicht generell. Außderdem sind die Zeichen in den abweichenden Zellen dann mit Arial gleichwertig.

[Pit Zyclade]

...
Heute will ja jeder die "EIERLEGENDEWOLLMILCHSAU mit hübschen grünen Punkte" und wundert sich dann, dass es zu Verwirrungen kommt.

Ascii-Art. Als die Bilder noch nicht liefen...

Code: Alles auswählen

 
   ╔═══════════════╗
   ║   Test It...  ║
   ╚═══════════════╝
  

Kenne ich auch noch. Habe dienstliche Briefe noch mit dem "Großrechner" veranlaßt|bewirkt|gesteuert. Aber davon sind wir nun ja weit entfernt. Meine Veranlassung, mit dem Unicode mich zu beschäftigen, war wirklich nur aus LibreOffice|OpenOffice-Nutzung heraus entstanden, weil ich weiß, das hierbei Unicode genutzt wird und mich die differente Interpretation von ü in Windings bzw. Arial u.a. irritierte (im Zusammenhang mit calc´s Gültigkeitsliste).

[Pit Zyclade]

Hallo David,

1. Erstelle Dir eine neue Bibliothek:
   ...
2. Stelle nun den Cursor in die erste Sub-Routine und führe den Code aus.

Von kleinen Abweichungen beim Procedure abgesehen hat das Einfügen des Makros an richtiger Stelle geklappt.
Der erste Test mit der ersten Subroutine mit hex-Eingabe hat ebenfalls funktioniert.

Aber die zweite Subroutine wollte ich testen, sie will nicht so wie beschrieben:
Basic-Laufzeitfehler / getActiveSheet

ABER: ich habe bemerkt, dass ich die erste Subroutine im writer anwandte. Sie geht natürlich auch unter calc.
Die zweite Subroutine läuft unter calc, aber die oben genannte Fehlermeldung bezieht sich auf writer. Offenbar weil es da keine sheet gibt?!