Tabellenbreite bei NotesRichTextItem

1. offizieller Beitrag

    Hallo,


    ich möchte bei einem Suchergebnis die Anzeige der Tabelle mit unterschiedlicher Spaltenbreite erstellen.


    Soll heißen:


    Spalte a hat zB. 3 Zeichen
    Spalte b 10 zeichen
    Spalte c 7 Zeichen
    usw.


    Zeichen = maßeinheit


    Zur Zeit hat die Tabelle in jeder spalte die gleiche breite.


    Benutzer Datentyp: NotesRichTextItem


    Kennt jamand eine Lösung?

    • Offizieller Beitrag

    im Notes 6.5.x geht es noch nicht und ob es im 7.x funkt. kann ich nicht sagen, habe gerade keine 7er Designer-Hilfe zur Hand.


    Aber im XML-Stream des RT-Item sollten die breiten im klartext stehen. Eventuell per dxl exportieren, anpassen und wieder importieren.


    Gruß
    Dirk

    Rein logisches Denken verschafft uns keine Erkenntnis über die wirkliche Welt.
    Alle Erkenntnis der Wirklichkeit beginnt mit der Erfahrung und endet mit ihr.
    Alle Aussagen, zu denen man auf rein logischen Wegen kommt, sind, was die Realität angeht, vollkommen leer.
    Albert Einstein

    Danke für den Tipp.
    Das ist allerdings ein wenig aua.... :)


    Folgendes Problehm:


    Habe diesen Code:


    *****Code Anfang****
    Set Exporter = Session.CreateDXLExporter
    OutputString = Exporter.Export(Source)
    OutputString = Replace(OutputString,"Typ","Top")
    Set Importer = Session.CreateDXLImporter
    Importer.DocumentImportOption = 5
    Call Importer.Import(OutputString,Session.CurrentDatabase)
    Msgbox Cstr(importer.ImportedNoteCount)


    ****Code Ende****


    Nach der Designerhilfe soll das eigentlich gehen. Tut es aber nicht und ich finde auch nicht raus warum nicht...


    Kann mir hier wieder jemand 'nen Tipp geben?

    Was ist Source denn für ein Designelement ?
    Die Elemente haben ja IDs und wenn du diese in die gleiche DB wieder importierst, dann versucht der ein vorhandenes Element zu überschreiben. Die Option die das zulässt hast du aber nicht gesetzt

    Ich habe hier jetzt mal die ganze Function:


    Function PatchXML(Source As NotesDocument)
    Dim Session As New NotesSession
    Dim Workspace As New NotesUIWorkspace
    Dim Exporter As NotesDXLExporter
    Dim Importer As NotesDXLImporter
    Dim OutputString As String
    Dim Body As NotesRichTextItem

    Set Exporter = Session.CreateDXLExporter
    OutputString = Exporter.Export(Source)
    OutputString = Replace(OutputString,"Typ","Top")
    Set Importer = Session.CreateDXLImporter
    Importer.DocumentImportOption = 5
    Call Importer.Import(OutputString,Session.CurrentDatabase)
    Msgbox Cstr(importer.ImportedNoteCount)
    End Function


    Source wird der Inhalt einer Variable mit dem Namen srdoc (Typ: NotesDocument) übergeben.