Richtextformat Parsen

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von hassowuff.

    Richtextformat Parsen

    Hallo Ihr lieben, ich sitze immernoch an meinem Dokument-Verwaltungsprogramm.

    Derzeit bin ich gerade dabei verschiedene Dateikonvertierungen zu implementieren. Dazu bediene ich mich unter anderem an PDFSharp und Migradoc.
    Da im Netz kaum etwas zu finden ist, wie man nun RTF zu Migradoc parst und schließlich zu PDF umwandelt, dachte ich mir, dass ich mich der Sache einmal annehme.
    Grund dafür ist auch, dass ich Docx-Dateien nicht direkt einlesen kann und zu RTF umwandle und somit sollte ich mir in Punkto RTF etwas mehr Mühe geben.

    Hab ihr vielleicht Lust und Zeit mir hier etwas zu helfen, da ich gerade nicht so genau weis, ob ich einen guten Ansatz gewählt habe und wie ich nun von meiner Strukturierung mit Migradoc zusammen komme.

    Hier nachfolgend mein Ansatz:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Text
    2. Imports System.Text.RegularExpressions
    4. Public Class RTF_Parser
    6. Public Property raw As String = ""
    7. Public Property rawLines As List(Of String) = New List(Of String)
    8. Public Property fontList As List(Of Font) = New List(Of Font)
    9. Public Property colorList As List(Of Color) = New List(Of Color)
    10. Public Property commands As List(Of String) = New List(Of String)
    12. Public Sub New(rawRtf As String)
    13. raw = rawRtf
    14. colorList.Add(Color.Black) ' Standard-Color: Black / Colorindexing in RTF begins by 1
    15. Parse()
    16. End Sub
    18. Public Sub Parse()
    19. SplitLines() ' Split lines by CrLf to List(of String)
    20. GenerateFontList() ' Read RTF FontTable
    21. GenerateColorList() ' Read RTF ColorTable
    22. ReadLines() ' Read each command in each line
    23. End Sub
    25. Private Sub SplitLines()
    26. Dim lines As String() = raw.Split(vbNewLine)
    27. For Each line As String In lines
    28. If line.Trim <> "" Then rawLines.Add(line)
    29. Next
    30. End Sub
    32. Private fntListIdx As Integer = 0
    33. Private Sub GenerateFontList()
    34. ' Search line with fonttable and save the index to "fntListIdx"
    35. For i As Integer = 0 To rawLines.Count - 1
    36. If rawLines(i).Contains("{\fonttbl") Then
    37. fntListIdx = i
    38. Exit For
    39. End If
    40. Next
    42. ' Match the name of each font in fonttable
    43. Dim matches As MatchCollection = Regex.Matches(rawLines(fntListIdx), "{\\f[A-z0-9]*\s]*([A-z0-9\s]*);}")
    44. For Each match As Match In matches
    45. If match.Success = True And match.Groups.Count = 2 Then
    46. ' Save it to a List(of Font)
    47. fontList.Add(New Font(match.Groups(1).Value, 11.25))
    48. End If
    49. Next
    50. End Sub
    52. Private colListIdx As Integer = 0
    53. Private Sub GenerateColorList()
    54. ' Search line with colortable and save the index to "colListIdx"
    55. For i As Integer = 0 To rawLines.Count - 1
    56. If rawLines(i).Contains("{\colortbl") Then
    57. colListIdx = i
    58. Exit For
    59. End If
    60. Next
    62. ' Match the Values (red, green, blue) for each Color in table
    63. Dim matches As MatchCollection = Regex.Matches(rawLines(colListIdx), "\\red([0-9]*)\\green([0-9]*)\\blue([0-9]*);")
    64. For Each match As Match In matches
    65. If match.Success And match.Groups.Count = 4 Then
    66. Dim r As Integer = Integer.Parse(match.Groups(1).Value)
    67. Dim g As Integer = Integer.Parse(match.Groups(2).Value)
    68. Dim b As Integer = Integer.Parse(match.Groups(3).Value)
    69. ' Save it to an List(of Color)
    70. colorList.Add(Color.FromArgb(r, g, b))
    71. End If
    72. Next
    73. End Sub
    75. Private Sub ReadLines()
    76. ' Startline after Color- and Fonttable
    77. Dim s As Integer = IIf(fntListIdx > colListIdx, fntListIdx, colListIdx) + 1
    79. ' Holder for free Text (ignores Linebreaks)
    80. Dim txt As String = ""
    82. ' Go through all lines
    83. For lineIdx As Integer = s To rawLines.Count - 1
    84. Dim lineStr As String = rawLines(lineIdx) ' original Raw-Line
    86. ' Holders for command name and value
    87. Dim befStarted As Boolean = False ' is true if char "\" is passed
    88. Dim befName As String = "" ' becomes the command charwise if befStarted = true
    89. Dim befVal As String = "" ' becomes the value for the command (only numeric)
    91. For Each lineLet As Char In lineStr
    92. If lineLet = "\" Then ' command begins!
    93. If befStarted = False Then ' is there an active command? Yes:
    94. addCommand("txt", txt) ' - save the free text
    95. txt = "" ' - reset the free text
    96. befStarted = True ' - start command-recording
    97. Else ' no? Then:
    98. addCommand(befName, befVal) ' - command completed -> save it!
    99. befStarted = False ' - stop command-recording
    100. befName = "" ' - reset command-name
    101. befVal = "" ' - reset command-value
    102. End If
    103. ElseIf lineLet = " " Then ' Spacechar (?in freetext or after last command?)
    104. If befStarted = True Then ' is there an active command? Yes:
    105. addCommand(befName, befVal) ' - command completed -> save it!
    106. befStarted = False ' - stop command-recording
    107. befName = "" ' - reset command-name
    108. befVal = "" ' - reset command-value
    109. Else ' no? Then:
    110. txt &= lineLet ' - add Spacechar to freetext
    111. End If
    112. ElseIf IsNumeric(lineLet) = True Then ' Numeric char! In freetext or command-value?
    113. If befStarted = True Then ' is there an active command? Yes:
    114. befVal &= lineLet ' - add Number to command-value
    115. Else ' no? Then:
    116. txt &= lineLet ' - add Number to freetext
    117. End If
    118. Else ' All other chars (Letters and so on..)
    119. If befStarted = True Then ' is there an active command? Yes:
    120. befName &= lineLet ' - add char to command-name
    121. Else ' no? Then:
    122. txt &= lineLet ' - add char to freetext
    123. End If
    124. End If
    125. Next ' After this "Next" end of Line is reached!
    126. If befStarted = True Then ' is command-recording on? Yes:
    127. addCommand(befName, befVal) ' - command completed -> save it!
    128. befStarted = False ' - stop command-recording
    129. befName = "" ' - reset command-name
    130. befVal = "" ' - reset command-value
    131. End If
    132. Next
    133. End Sub
    135. Private Sub addCommand(name As String, value As String)
    136. commands.Add(name & "=" & value) ' Save name and value to an List(of String) -> for Debug!
    137. Select Case name
    138. Case "pard" ' begin of Paragraph and end of last Paragraph
    139. ' Value = ""
    140. Case "par" ' linebreak
    141. ' Value = ""
    142. Case "f" ' font-selector
    143. ' Value = indexnumber at Fontlist
    144. Case "fs" ' font-size
    145. ' Value = size in half-points
    146. Case "cf" ' font-color
    147. ' Value (>0) = indexnumber at colorlist / Value (=0) = end of the last color
    148. Case "b" ' bold font
    149. ' Value ("") = Start / Value ("0") = End
    150. Case "i" ' italic font
    151. ' Value ("") = Start / Value ("0") = Ende
    152. Case "ul" ' underlining start
    153. ' Value = ""
    154. Case "ulnone" ' underlining stop/end
    155. ' Value = ""
    156. Case "tab" ' text indent
    157. ' Value = ""
    158. Case "'B" ' symbol
    159. ' Value (7) = · (Point for Lists)
    160. Case Else
    161. Debug.WriteLine("Unknown Command: " & name & "=" & value)
    162. End Select
    163. End Sub
    165. End Class



    Die Verwendung kann so aussehen:

    - Form mit Richtextbox + PropertyGrid

    VB.NET-Quellcode

    1. Dim rtfParser As New RTF_Parser(RichTextBox1.Rtf)
    2. PropertyGrid1.SelectedObject = rtfParser


    RTF-Inhalt für die Richtextbox ist im Anhang!

    Ich würde mich über Tipps zur Verbesserung und allgemeine Mithilfe echt freuen!

    Danke und Gruß Hassowuff
    Dateien

    • test.rtf

      (41,69 kB, 63 mal heruntergeladen, zuletzt: )

    • RTF-Parser.vb

      (8,38 kB, 35 mal heruntergeladen, zuletzt: )
    __________________________
    01:     CLS : SCREEN 12
    02: LINE (0, 20)-(640, 22), 15, BF
    03: ECHO "MFG HASSOWUFF"
    [F5]

    Richtextformat Parsen, Schritt 2

    :thumbsup: Hallo Ihr lieben,

    bin hier schon ein ganzes Stück weiter!
    Würde mich wirklich freuen, wenn Ihr mithelfen würdet.

    Im Anhang liegt eine Zip mit dem gesamten Projekt zum RTF-Parser, als einziges NUGET-Paket ist "Migradoc GDI" installiert, was "PDFSharp GDI" beinhaltet.

    Aktuell liefert der Parser auf Knopfdruck ein PDF, bei dem es aber noch an so einigem fehlt:
    • Umlaute und Sonderzeichen wie äöü
    • PNG-Bilder (pngblip) werden noch nicht gelesen
    • Auflistungen
    • Tabellen
    • Textrichtungen und -ausrichtungen
    • Rahmen und Linien
    Und ja, ich hatte oben erwähnt, dass ich nicht genau weiß, ob ich mit meinem Codeansatz an Migradoc ran komme..
    Dazu kann ich nur sagen, jaein: Grundstruktur war schon gut, aber Migradoc hat eigene Klassen und Enumerationen für Color, Font und Underline.
    Wahrscheinlich noch viel mehr, aber das ist das, wo ich bislang angestoßen bin.

    Danke und einen schönen Tag!

    Gruß Hassowuff
    Dateien

    • RTF-Parser.zip

      (1,36 MB, 58 mal heruntergeladen, zuletzt: )
    __________________________
    01:     CLS : SCREEN 12
    02: LINE (0, 20)-(640, 22), 15, BF
    03: ECHO "MFG HASSOWUFF"
    [F5]

    Geht's um Funktion oder Codeverbesserungen? Zu Zweiterem:
    empfohlene VS-Einstellungen aktivieren, IIF() durch If() ersetzen, ein Char wird so "geschrieben": "."c, Boolean-Vergleiche mit True sind überflüssig, leere EventHandler löschen, Fange nur Exceptions ab, die Du kennst und sinnvoll bearbeiten kannst
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Danke @VaporiZed !
    Das sind alles alte Gewohnheiten und habe das ganze natürlich sofort angepasst.

    Zum Thema Funktion habe ich noch ein dickes Problem! In meinem RTF-Dokument ist ein Absatz mit einer anderen Schriftart "Spongeboy", welche bei mir im System registriert ist.
    Aus dem RTF lese ich den Font-Table und erstelle mir eine List(of Font).
    Migradoc hat jedoch eine eigene Klasse dafür: MigraDoc.DocumentObjectModel.Font

    Das Problem
    Erstelle ich nun eine Instanz mit

    VB.NET-Quellcode

    1. Dim myFnt as new MigraDoc.DocumentObjectModel.Font(fontList(fontNameIdx).Name)

    dann erhalte ich einen Fehler beim speichern des PDF's:

    Quellcode

    1. System.NullReferenceException
    2. HResult=0x80004003
    3. Nachricht = Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
    4. Quelle = PdfSharp-gdi
    5. Stapelüberwachung:
    6. bei PdfSharp.Fonts.OpenType.OpenTypeFontface.CreateFontSubSet(Dictionary`2 glyphs, Boolean cidFont)
    7. bei PdfSharp.Pdf.Advanced.PdfTrueTypeFont.PrepareForSave()
    8. bei PdfSharp.Pdf.Advanced.PdfFontTable.PrepareForSave()
    9. bei PdfSharp.Pdf.PdfDocument.PrepareForSave()
    10. bei PdfSharp.Pdf.PdfDocument.DoSave(PdfWriter writer)
    11. bei PdfSharp.Pdf.PdfDocument.Save(Stream stream, Boolean closeStream)
    12. bei PdfSharp.Pdf.PdfDocument.Save(String path)
    13. bei RTF_Parser.RTF_Parser.Save() in C:\Users\dejav\source\repos\RTF-Parser\RTF-Parser\classes\RTF-Parser.vb: Zeile224


    Was mache ich falsch?

    Aus dem Quellcode von PDFSharp werde ich leider nicht schlau:

    Spoiler anzeigen

    C#-Quellcode

    1. /// <summary>
    2. /// Creates a new font image that is a subset of this font image containing only the specified glyphs.
    3. /// </summary>
    4. public OpenTypeFontface CreateFontSubSet(Dictionary<int, object> glyphs, bool cidFont)
    5. {
    6. // Create new font image
    7. OpenTypeFontface fontData = new OpenTypeFontface(this);
    9. // Create new loca and glyf table
    10. IndexToLocationTable locaNew = new IndexToLocationTable();
    11. locaNew.ShortIndex = loca.ShortIndex;
    12. GlyphDataTable glyfNew = new GlyphDataTable();
    14. // Add all required tables
    15. //fontData.AddTable(os2);
    16. if (!cidFont)
    17. fontData.AddTable(cmap);
    18. if (cvt != null)
    19. fontData.AddTable(cvt);
    20. if (fpgm != null)
    21. fontData.AddTable(fpgm);
    22. fontData.AddTable(glyfNew);
    23. fontData.AddTable(head);
    24. fontData.AddTable(hhea);
    25. fontData.AddTable(hmtx);
    26. fontData.AddTable(locaNew);
    27. if (maxp != null)
    28. fontData.AddTable(maxp);
    29. //fontData.AddTable(name);
    30. if (prep != null)
    31. fontData.AddTable(prep);
    33. // Get closure of used glyphs.
    34. glyf.CompleteGlyphClosure(glyphs);
    36. // Create a sorted array of all used glyphs.
    37. int glyphCount = glyphs.Count;
    38. int[] glyphArray = new int[glyphCount];
    39. glyphs.Keys.CopyTo(glyphArray, 0);
    40. Array.Sort(glyphArray);
    42. // Calculate new size of glyph table.
    43. int size = 0;
    44. for (int idx = 0; idx < glyphCount; idx++)
    45. size += glyf.GetGlyphSize(glyphArray[idx]);
    46. glyfNew.DirectoryEntry.Length = size;
    48. // Create new loca table
    49. int numGlyphs = maxp.numGlyphs;
    50. locaNew.LocaTable = new int[numGlyphs + 1];
    52. // Create new glyf table
    53. glyfNew.GlyphTable = new byte[glyfNew.DirectoryEntry.PaddedLength];
    55. // Fill new glyf and loca table
    56. int glyphOffset = 0;
    57. int glyphIndex = 0;
    58. for (int idx = 0; idx < numGlyphs; idx++)
    59. {
    60. locaNew.LocaTable[idx] = glyphOffset;
    61. if (glyphIndex < glyphCount && glyphArray[glyphIndex] == idx)
    62. {
    63. glyphIndex++;
    64. byte[] bytes = glyf.GetGlyphData(idx);
    65. int length = bytes.Length;
    66. if (length > 0)
    67. {
    68. Buffer.BlockCopy(bytes, 0, glyfNew.GlyphTable, glyphOffset, length);
    69. glyphOffset += length;
    70. }
    71. }
    72. }
    73. locaNew.LocaTable[numGlyphs] = glyphOffset;
    75. // Compile font tables into byte array
    76. fontData.Compile();
    78. return fontData;
    79. }


    Gruß hassowuff
    Dateien

    • RTF-Parser.zip

      (1,36 MB, 57 mal heruntergeladen, zuletzt: )
    __________________________
    01:     CLS : SCREEN 12
    02: LINE (0, 20)-(640, 22), 15, BF
    03: ECHO "MFG HASSOWUFF"
    [F5]

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „hassowuff“ ()

    @hassowuff Überleg mal, nicht den RichText zu parsen, sondern zeichenweise den SelectedText abzufragen auf allerlei Selection~~~-Properties.
    docs.microsoft.com/de-de/dotne…t?view=windowsdesktop-6.0
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo @RodFromGermany

    Brauch ich dann nicht letztlich eine "virtuelle" RichTextBox in meiner Klasse? Und wie komm ich dann an die Informationen zu Absätzen, Tabellen und Bildern?
    Theorethisch ist meine Klasse im Moment noch ziemlich Chaotisch, denn die Strukturierung von Migradoc und RTF liegen nah bei einander.

    Siehe hier: pdfsharp.net/wiki/HelloMigraDoc-sample.ashx

    Gruß Hassowuff
    __________________________
    01:     CLS : SCREEN 12
    02: LINE (0, 20)-(640, 22), 15, BF
    03: ECHO "MFG HASSOWUFF"
    [F5]

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „hassowuff“ ()

    Richtextformat Parsen, Schritt 3

    Hallo Ihr beiden,

    Nach einem "Cleanup" meines Codes und einigen Anpassungen an die Strukturierung von Migradoc sieht das ganze jetzt schon ganz ordentlich aus. :thumbup: (IM ANHANG!)

    Könnt ihr mir an zwei Stellen etwas auf die Sprünge helfen?

    Stelle 1

    :huh: Hier gibt es doch bestimmt eine bessere Lösung, oder?

    VB.NET-Quellcode

    1. Private Sub PrepareRawRtf()
    2. RawRtf = RawRtf.Replace("\'e4", "ä")
    3. RawRtf = RawRtf.Replace("\'f6", "ö")
    4. RawRtf = RawRtf.Replace("\'fc", "ü")
    5. RawRtf = RawRtf.Replace("\'c4", "Ä")
    6. RawRtf = RawRtf.Replace("\'d6", "Ö")
    7. RawRtf = RawRtf.Replace("\'dc", "Ü")
    8. RawRtf = RawRtf.Replace("\'df", "ß")
    9. End Sub


    Stelle 2

    ?( Immernoch das Schriftarten-Problem:

    VB.NET-Quellcode

    1. Private Sub AddCommand(name As String, value As String)
    2. Commands.Add(name & "=" & value) ' Save name and value to an List(of String) -> for Debug!
    3. Select Case name
    4. '...
    5. Case "f" ' font-selector
    6. ' Value = indexnumber at Fontlist
    7. fontNameIdx = Integer.Parse(value)
    8. 'TODO: Schriftart ändern:
    9. 'mdStyleActive.Font.Name = FontList(fontNameIdx).Name
    10. '...
    11. Case Else
    12. Debug.WriteLine("Unknown Command: " & name & "=" & value)
    13. End Select
    14. End Sub


    Danke für eure Mithilfe!

    Gruß hassowuff
    Dateien

    • RTF-Parser.zip

      (1,36 MB, 44 mal heruntergeladen, zuletzt: )
    __________________________
    01:     CLS : SCREEN 12
    02: LINE (0, 20)-(640, 22), 15, BF
    03: ECHO "MFG HASSOWUFF"
    [F5]

    aus Zeitgründen nur 1. Miniproblem: einfach weitere Replaces dranhängen.
    RawRtf = RawRtf.Replace("\'e4", "ä").Replace("\'f6", "ö").Replace…
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    hassowuff schrieb:

    Und wie komm ich dann an die Informationen zu Absätzen, Tabellen und Bildern?
    Klar.
    Mir fiel auf, dass der PDF-Export ein chaotisches Dokument erzeugt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Richtextformat Parsen, Schritt 3

    Guten Morgen!

    Ich bin schon wieder fleißig und habe das Parsing nocheinmal überarbeitet! (Aktuelles Projekt im Anhang)

    Folgendes hat sich geändert:
    • Anstelle alles Zeichen für Zeichen zu durchlaufen, bediene ich mich Regex.Match um Befehl-Wert-Paare zu finden
    • Trennen der Befehl-Wert-Paare wird nun auch durch Regex.Match erledigt
    • Die Verschachtelungen durch "{" und "}" werden nun erkannt, aber bislang nicht weiter verarbeitet
    • Der ColorTable und der FontTable könnten besser und fehlerfrei erkannt werden, da diese nicht mehr gesucht werden müssten (ABER: habe ich noch nicht ganz fertig!)
    • Befehl-Wert-Paare sind nun weitestgehend erfasst, werden aber bisher nur die wenigsten verarbeitet (Hier hätte ich gern eure Mithilfe :whistling: )
    • Textformatierungen werden direkt und ohne Umweg in Migradoc gesetzt ("mdFormat.Style")
    Was noch nicht klappt:
    • Eingebettete Bilder einlesen und in Migradoc ins Dokument schreiben (Hier hätte ich gern eure Mithilfe :whistling: )
    • Textausrichtungen
    • Sub- und Superscript
    • Schriftarten (Hier hätte ich gern eure Mithilfe :whistling: )
    • Tabellen & Linien/Rahmen
    • Listen werden noch nicht richtig bzw. nur teilweise erkannt
    Ich brauch eure Hilfe:
    • Beim einlesen der eingebetteten PNG-Grafiken
    • Beim setzen der Schriftarten in Migradoc
    • Und wer Lust hat, darf sich auch gern der Thematik "Tabellen" annehmen, da fürchte ich mich noch ein wenig davor
    NUGET-Paket im Projekt: "PDFsharp-MigraDoc-gdi" (v1.50.5147) von "empira Software GmbH" (MIT-License)

    PS an @RodFromGermany: Ja das PDF sieht noch sehr chaotisch aus, weil ja viele RTF-Tags noch nicht umgesetzt werden, bzw. bisher nicht erkannt wurden. (Jetzt ist es ein wenig besser)

    Danke und Gruß,

    hassowuff
    Dateien

    • RTF-Parser.zip

      (1,37 MB, 44 mal heruntergeladen, zuletzt: )
    __________________________
    01:     CLS : SCREEN 12
    02: LINE (0, 20)-(640, 22), 15, BF
    03: ECHO "MFG HASSOWUFF"
    [F5]

    Richtextformat Parsen, Schritt 3

    Kurzes Update!

    Eingebettete Bilder einlesen und in Migradoc ins Dokument schreiben (Hier hätte ich gern eure Mithilfe :whistling: )


    Ist erledigt und Update im Anhang! :thumbsup:

    Liebe Grüße,

    hassowuff
    Dateien

    • RTF-Parser.zip

      (1,38 MB, 39 mal heruntergeladen, zuletzt: )
    __________________________
    01:     CLS : SCREEN 12
    02: LINE (0, 20)-(640, 22), 15, BF
    03: ECHO "MFG HASSOWUFF"
    [F5]

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „hassowuff“ ()

    @hassowuff Falls Dein primäres Ziel eine PDF-Erstellung aus einem RichText ist, sieh Dir mal dieses Projekt an:
    WriteItDown00.zip
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RTF to Migradoc/PDF Parser

    Hoch die Hände! Wochenende!

    Hallo Ihr lieben, ich wollte mich mal wieder mit einem kleinen Update melden!
    Ich bin mittlerweile an gutes Stück vorangekommen.

    Danke auch nochmal an @RodFromGermany für das Beispielprojekt! Die Idee ist genial, aber DLL-Imports und Marshalls waren irgendwie noch nie meine Welt und wollen einfach keinen Fuß fassen in meinem Kopf.

    Was geht bisher?
    • Die meisten Textformatierungen, wie Farbe, Fett, Kursiv, Unterstrichen, Größe und Schriftart
    • Textausrichtung / Absatzbündigkeit, Blocksatz
    • In RTF gebettete PNG-Bilder
    • Tabellen (Ja ich hab's geschafft :thumbsup: )
    • Auflistungen (Noch verbuggt || )
    Was geht nicht?
    • Text-Highlights (unterstützt MigraDoc nicht || )
    • Verbundene Zeilen/Spalten einer Tabelle
    • und viele viele weitere Dinge, sofern man sich an RTF-Dokumentationen orientiert
    Seht euch das Projekt gern mal an, vielleicht gibt es ja noch Dinge, die ich Grundsätzlich verbessern kann.
    Dateien

    • RTF-Parser.zip

      (1,46 MB, 47 mal heruntergeladen, zuletzt: )
    __________________________
    01:     CLS : SCREEN 12
    02: LINE (0, 20)-(640, 22), 15, BF
    03: ECHO "MFG HASSOWUFF"
    [F5]

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „hassowuff“ ()