Ersetzen: Zahl normal - Zahl tiefgestellt

[karolus]

Hallo

Code: Alles auswählen

import re
from com.sun.star.sheet.CellFlags import STRING

rex = re.compile(r'\d')

def repl( s ):
    return f'{int(s.group(0))+8320:c}'

def subcodes(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.CurrentSelection
    for cell in sel.queryContentCells( STRING ).Cells:
        cell.String = rex.sub( repl, cell.String)

oder besser gleich per »str.translate«

Code: Alles auswählen

from com.sun.star.sheet.CellFlags import STRING

subs = ''.join(f'{n:c}' for n in range(8320, 8330))
subtable = str.maketrans('0123456789',  subs)


def subcodes(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.CurrentSelection
    for cell in sel.queryContentCells( STRING ).Cells:
        cell.String = cell.String.translate(subtable)

[RPP63]

Moin!
Aus Interesse habe ich mal VBA-Makros geschrieben, als xlsm gespeichert und sie in Calc "übersetzen" lassen.
Funktioniert!

Ziffern per Unizeichen tiefstellen:

Code: Alles auswählen

Option VBASupport 1
Option Explicit

Sub Chem()
Dim Cell As Range, i As Byte
If TypeName(Selection) = "Range" Then
  For Each Cell In Selection
    For i = 1 To Len(Cell.Text)
      With Cell.Characters(i, 1)
        If IsNumeric(.Text) Then .Text = ChrW(.Text + 8320)
      End With
    Next
  Next
End If
End Sub

Wieder retour:

Code: Alles auswählen

Sub UnChem()
Dim Cell As Range, i As Byte
If TypeName(Selection) = "Range" Then
  For Each Cell In Selection
    For i = 1 To Len(Cell.Text)
      With Cell.Characters(i, 1)
        If AscW(.Text) > 8319 And AscW(.Text) < 8330 Then .Text = AscW(.Text) - 8320
      End With
    Next
  Next
End If
End Sub

[karolus]

plus Rückwandlung von tiefgestellten Ziffern zu normalen Ziffern:

Code: Alles auswählen

from com.sun.star.sheet.CellFlags import STRING

subs = ''.join(f'{n:c}' for n in range(8320,8330))
subtable = str.maketrans('0123456789', subs)
asciitable = {v: k for k, v in subtable.items()}


def subcodes(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.CurrentSelection
    for cell in sel.queryContentCells( STRING ).Cells:
        cell.String = cell.String.translate(subtable)

def undo_subcodes(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.CurrentSelection
    for cell in sel.queryContentCells( STRING ).Cells:
        cell.String = cell.String.translate(asciitable)